Clipper/FiveWin - DBF A EXCEL

   
Vista:

DBF A EXCEL

Publicado por Marcelo (10 intervenciones) el 16/07/2010 00:14:59
quiero exportar una DBF a Excel pero SIN que se abra la hoja excel, que se genere con un determinado nombre y que luego se abra desde excel.
La rutina actual abre la hoja y va formando la planilla y se hace muy lento.
Si laguno sabe como se hace le agradezco.
Saludos
Marcelo

FUNCTION xlsventas(Titulo)
oExcel := TExcelScript():New()
oExcel:Create( "Tempo2.xls" )

sele Ventas
go top

oExcel:visualizar(.t.)
oExcel:Say( 1 , 1 , Titulo,"Arial", 10, .T., .T.,.T. )

oExcel:AddCol( {|| Ventas->Fecha } , 1 , , , {|| "Fecha" } , )
oExcel:AddCol( {|| Ventas->Nombre } , 1 , , , {|| "Concepto" } , )
oExcel:AddCol( {|| Ventas->Ticket} , 1 , , , {|| "TICKET" }, )
oExcel:AddCol( {|| Ventas->Total } , 1 , , , {|| "NETO" }, )
oExcel:AddCol( {|| Ventas->A_Cuenta } , 1 , , , {|| "COBRADO" }, )
oExcel:AddCol( {|| Ventas->Total-Ventas->A_Cuenta } , 1 , , , {|| "SALDO" }, )
oExcel:AddCol( {|| Ventas->Fiscal } , 1 , , , {|| "FISCAL" }, )
oExcel:AddCol( {|| Ventas->FCantidad } , 1 , , , {|| "Cant." }, )
oExcel:AddCol( {|| Ventas->FNombre } , 1 , , , {|| "Concepto" } , )
oExcel:AddCol( {|| Ventas->FNeto } , 1 , , , {|| "NETO" }, )
oExcel:Browse( 3,2 ,"Ventas" , , , , )

RETURN ( .T. )
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:DBF A EXCEL

Publicado por Antoni Masana (168 intervenciones) el 16/07/2010 07:57:23
El Excel es capaz de abrir un fichero DBF directamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:DBF A EXCEL

Publicado por marcelo (10 intervenciones) el 16/07/2010 15:12:24
si, ya lo se, pero por varias razones necesito hacerlo con Texcels.lib y busco que sea mas veloz como cuando lo hacia en 16 bits con FileXls.lib pero esta última no funciona en 32 bits
gracias por responder.
Saludos
Marcelo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:DBF A EXCEL

Publicado por Andres Rodriguez (2 intervenciones) el 09/12/2010 06:38:02
Saludos !!!

Has un bucle, eso es lo que hago y la transferencia es rapidisima...
y en oExcel:visualizar( .T. ) le cambias a .F. para que no se muestre la hoja.


LOCAL x := 0
LOCAL y := 1

USE CAT_ART ALIAS ARTICULO NEW
DBGOTOP()

DO WHILE !EOF()
oExcel:Cells( ++x, y ):Value := ARTICULO->CVE_ART
oExcel:Cells( x, y+1):Value := ARTICULO->NOM_ART
oExcel:Cells( x, y+2 ):Value := ARTICULO->DES_ART
oExcel:Cells( x, y+3 ):Value := ARTICULO->UM
DBSKIP()
ENDDO

Claro, esto es con xharbour donde creas el objeto excel asi:

oExcel := TOLeAuto():New( "Excel.Application" )

oExcel:Visible := VERDAD <- esto es para que se vea el libro
oExcel:Workbooks:Add() <- esto para agregarle una hoja

Espero haberte ayudado, aunque veo que ya lleva algo de tiempo la pregunta...

Atte...

Andres Rodriguez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar