FiveTech Support Forums

Hola. Tengo una aplicacion donde necesito leer una base dbf, y mostrarla en excel. Usando los samples de fivewin (tengo harbour 803), pude hacerla sin problemas. Pero uno de los campos de la dbf, a pesar de ser texto, tiene valores "001","002", etc. y se muestran en la planilla excel como numericos, cosa que no me sirve. ¿tienen idea como puedo hacer para que en la planillita me aparezca "001", "002", etc... o sea, el tipo de dato que quiero, no me sirve transformarlo antes a mi, porque puedo tener valores "001", "002", pero tambien "T5079-P1".
¿Hay algun propiedad para establecer la celda con formato "texto"? color a la fuente, bold, etc, le pude poner, pero esto no. Gracias. Atte.

diegopolverelli wrote:Hola. Tengo una aplicacion donde necesito leer una base dbf, y mostrarla en excel. Usando los samples de fivewin (tengo harbour 803), pude hacerla sin problemas. Despues tengo que tomar los datos modificados y validar algunas cosas. Pero si pongo un numero en una columna, no lo puedo recuperar. En realidad no puedo tratar el dato. ¿existe alguna funcion que me diga que tipo de dato es el que tengo? ej.: xart_codig=5 y despues como se si preguntar si xart_codig=0 o a "0" si que falle la aplicacion. Gracias.

Hola,
se me ocurre que al ller el campo verifiques si es numerico o texto, si es texto le "sumas" un espacio a la variable leida

cDato :=_Field->campo

If VALTYPE(cdato) = "C"
cDato := " " + cDato
EndIF

...
..

Salu2

Espectacular. Mil gracias...!!!

Diego,

Prueba con:

oHoja:Cells( ... ):NumberFormat := '@'

le indica que dichas celdas son tipo caracter

Antonio, yo use un esquema similar a de los samples, utilizando OLESETPROPERTY y OLEGETPROPERTY. ¿como se puede invocar de la manera que me decis vos? tenes algun ejemplo. Te adjunto un codigo donde leo de una base y lleno una tabla xls.
Otra cosa, cuando la tabla es grande, por ej, 10000 reg. el proceso de llenar el .xls tarda muchisimo (10 /20 minutos) ¿que puede ser?
Gracias. Atte.

//---------------------
FUNCTION IMPO_LCOS(XLISPRE, odlg)

LOCAL oWnd, oOwc, hActiveWindow, nCounter, hsheet, x, cell, font, xfila, xfin, format
LOCAL XVERSION, xcompleta

// en la base ini guardo un parametro con la version del office
SELE 99
USE C:\TEMPO\INI SHARED
LOCA FOR INI->PARAMETRO='VERSION'
IF !EOF()
DO CASE
CASE VAL(LEFT(INI->VALOR,1))=1
XVERSION="OWC9.Spreadsheet"
CASE VAL(LEFT(INI->VALOR,1))=2
XVERSION="OWC10.Spreadsheet"
CASE VAL(LEFT(INI->VALOR,1))=3
XVERSION="OWC11.Spreadsheet"
CASE VAL(LEFT(INI->VALOR,1))=4
XVERSION="OWC12.Spreadsheet"
OTHERWISE
XVERSION="OWC"+ALLTRIM(SUBSTR(INI->VALOR,2,2))+".Spreadsheet"
ENDCASE
ELSE
XVERSION="OWC11.Spreadsheet"
ENDIF

SELE 99
USE

odlg:disable()

DEFINE WINDOW oWnd Title "IMPORTACION DE LISTA DE COSTOS "+alltrim(upper(xlispre))

@ 0, 0 ACTIVEX oOwc;
PROGID XVERSION

// PROGID "OWC10.Spreadsheet"

hActiveWindow = oOwc:GetProp( "ActiveWindow" )

OleSetProperty( hActiveWindow, "ColumnHeadings", 1, "Codigo" )
OleSetProperty( hActiveWindow, "ColumnHeadings", 2, "Descripcion" )
OleSetProperty( hActiveWindow, "ColumnHeadings", 3, "Precio" )

hSheet = oOwc:GetProp( "ActiveSheet" )

x:=1
sele 1
use &empre\costo.sx shared
COPY TO C:\TEMPO\TMPCOSTO FOR COSTO->CLI_LISPR=XLISPRE
USE C:\TEMPO\TMPCOSTO ALIAS COSTO

SELE 2
USE &EMPREST\ART.SX INDEX &EMPREST\ARTC SHARED

CURSORWAIT()

if msgyesno("Edita la lista de costos completa? (esta operacion tarda mas tiempo)","Atencion")
xcompleta=.t.
else
xcompleta=.f.
endif

SELE 1
INDEX ON COSTO->ART_CODIG TO C:\TEMPO\TMPART3
go top
do while !eof()
XART_CODIG:=COSTO->ART_CODIG
SELE 2
SET SOFTSEEK OFF
SEEK XART_CODIG
IF !EOF()
OleSetProperty( hActiveWindow, "RowHeadings", x, Str( x ) )
OleSetProperty( hSheet, "Cells", x, 1, "'"+XART_CODIG )
SELE 2
OleSetProperty( hSheet, "Cells", x, 2, ART->ART_DESCR )
SELE 1
OleSetProperty( hSheet, "Cells", x, 3, COSTO->PRECIO )
ENDIF
x:=x+1

    if xcompleta=.f. .and. x>10
            sele 1
            go bott
    endif

    sele 1
    skip

enddo

CURSORARROW()

// OleSetProperty( hActiveWindow, "ViewableRange", "A1:D6" )

hSheet = oOwc:GetProp( "ActiveSheet" )

oWnd:oClient = oOwc

ACTIVATE WINDOW oWnd valid VERIFICA(HSHEET,xlispre,odlg)

RETURN NIL

quetal diego, aqui un ejemplo , de crear una xls

por bloques, usando la class TExcelScript():New('Victor') y
TClipBoard():New() aunque tambien se puede con ELE directo.

nRow := 2
nStart := nRow
cMemo := ""

dbselectArea( cArtics )
dbgotop()
do while !eof()
cMemo += field->codigo
cMemo += chr(9)+field->alterno
cMemo += chr(9)+field->unidad
cMemo += chr(9)+field->nombre
cMemo += CRLF

     if len(cMemo) >= 20000 .or. eof()

      oClip := TClipBoard():New()
      oClip:Clear()
      oClip:SetText( cMemo )
      cCell := "A" + Alltrim( Str( nStart ) )
      oRange := oExcel:oSheet:Range( cCell )
      oRange:Select()
      oExcel:oSheet:Paste()
      oClip:End()

      nStart := nRow

      cMemo := ""
  endif



sysrefresh()
dbselectArea(cArtics )
dbskip()

enddo

saludos.. Cesar C.C.

Diego,

Es preferible usar la clase TOleAuto de Harbour/xHarbour cuando tienes que acceder a ese tipo de datos. El código es más simple.

Antonio Linares wrote:Diego,

Es preferible usar la clase TOleAuto de Harbour/xHarbour cuando tienes que acceder a ese tipo de datos. El código es más simple.

Antonio Linares wrote:Diego,

Busca en estos foros por CreateObject ó por TOleAuto. Hay muchos ejemplos.

Aqui tienes un ejemplo de Enrico:

Code: Select all Collapse

FUNCTION MAIN() 

    LOCAL oExcel := CREATEOBJECT( "Excel.Application" ) 

    LOCAL oSheet 

    oExcel:WorkBooks:Open( "E:\XHARBOUR\TEST.XLS" ) 

    oSheet = oExcel:ActiveSheet 

    ? oSheet:Cells( 1, 1 ):Value 
    ? oSheet:Cells( 2, 1 ):Value 
    ? oSheet:Cells( 3, 1 ):Value 

    ? oSheet:Range( "A1" ):Value 

    oExcel:Quit() 

    RETURN NIL

En cuanto a que es el TOleAuto, revisa esto:
http://en.wikipedia.org/wiki/OLE_Automation

Diego,

> C:\FW192\SAROSSX\F_EXCEL.OBJ

Estas usando la versión 1.92 de FiveWin ???

Antonio Linares wrote:Diego,

> C:\FW192\SAROSSX\F_EXCEL.OBJ

Estas usando la versión 1.92 de FiveWin ???