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

[[Al González]]

En una situación así, revisar el estándar de esos archivos puede ser un buen punto de partida: http://www.ecma-international.org/pu...s/Ecma-376.htm



¡A dónde te fuiste a meter, compadre! ¿Qué empresa es? ¿Industrias Picapiedra Jurasic Inc.?

[TiammatMX]

Empezado por Al González

...¡A dónde te fuiste a meter, compadre! ¿Qué empresa es? ¿Industrias Picapiedra Jurasic Inc.? ...

A una empresa en Puebla de Zaragoza, propiedad de un contador de casi 80 años y "lidereada" por un ingeniero de sistemas que no ha trabajado en NINGÚN OTRO SECTOR O EMPRESA..., ¿ahora entiendes por qué ME URGE salir de aquí?

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

[[Al González]]

Enhorabuena. Qué curiosa sintaxis.

[TiammatMX]

Empezado por Al González

Enhorabuena. Qué curiosa sintaxis.

Es dBase III+ + Clipper + "Manejo" de objetos + "Uso" de OCX y DLL's = XBase++

Por eso me contrataron (supuestamente), por que manejo todo éso...

[[newtron]]

Empezado por TiammatMX

Es dBase III+ + Clipper + "Manejo" de objetos + "Uso" de OCX y DLL's = XBase++

Por eso me contrataron (supuestamente), por que manejo todo éso...

Una pregunta tonta. ¿Clipper no se usaba en msdos? ¿qué herramienta usas para compilar ese código?

Saludos

[TiammatMX]

Empezado por newtron

Una pregunta tonta. ¿Clipper no se usaba en msdos? ¿qué herramienta usas para compilar ese código?...

No es tonta. XBase++ por sí mismo es un compilador. No es RAID ni tiene IDE, así que casi casi estoy programando con alambres...

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