Debo realizar una exportación de datos a Excel (*.xlsx)...

[roman]

Empezado por TiammatMX

Y al final quedó así:

Código Delphi [-]
    oExcel := CreateObject( "Excel.Application" )
* FEOL No eliminar ésta línea, si'l vous plait...
*      oExcel:visible := .T.
      oExcel:SheetsInNewWorkbook := 1
    oHoja := oExcel:Workbooks:Add
      oSheet := oHoja:ActiveSheet
      oSheet:Cells( 1, 1 ):value := 'CODIGO'
      oSheet:Cells( 1, 2 ):value := 'PRECIO'
      oSheet:Cells( 1, 3 ):value := 'MONEDA'

      cStmt    := "SELECT ACODPRO, APREACT AS PRECIO, ATIPMON AS MONEDA FROM FALISPR WHERE ANUMLIS=?"
      oCurArti := ADODataSet():create( cStmt, gConn )
      oCurArti:Execute( oLis:value )

      DO WHILE !oCurArti:EOF()

        oSheet:Cells( iRen, 1 ):value := oCurArti:ACODPRO
        oSheet:Cells( iRen, 2 ):value := oCurArti:PRECIO
        oSheet:Cells( iRen, 3 ):value := oCurArti:MONEDA

         oCurArti:skip()
         iRen++
      ENDDO

      oHoja:SaveAs( cNomArc )
      oExcel:ActiveWorkbook:Close()
      oExcel:Quit()

OK, no es Delphi, pero creo que quedó entendible. Hace lo que debe, sin problemas o errores..., gracias a todos por su colaboración.

Guau! O sea que con Clipper tienes acceso a objetos COM? Y, ¿qué tal los tiempos? ¿Cuanto tarda el volcado?

LineComment Saludos

[TiammatMX]

Empezado por roman

Guau! O sea que con Clipper tienes acceso a objetos COM? Y, ¿qué tal los tiempos? ¿Cuanto tarda el volcado?...

Aclaración, Román. NO ES CLIPPER, es un lenguaje que toma "lo mejor de ..." (dBase III, III+, IV, Clipper, algo de C/C++) y lo hace "más o menos Windows". Digo, tampoco es el mejor, pero es lo que hay. Y los viejitos como yo, somos especialistas, sobre todo los que alguna vez usamos esos lenguajes...

Los tiempos..., ni mejor ni peor, con ése código tarda cerca de 1 minuto en leer, 50 y algo mil registros.