Clipper/FiveWin - DBF A EXCEL

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. )

El Excel es capaz de abrir un fichero DBF directamente.

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

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