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

[roman]

No tengo Delphi a mano y mi fluidez en el lenguaje ya no es lo que era, pero aquí una base de la cual partir:

Código Delphi [-]
uses ComObj, Clipbrd;

(*
  Exporta el contenido de un DataSet a un archivo de Excel. Desde luego, Excel debe estar instalado
  en el sistema y el archivo resultante estará en el formato de la versión instalada.
*)
procedure Exportar(DataSet: TDataSet; Archivo: String);
var
  Excel, Libro: OleVariant;
  CSV: TStrings;
  Linea: String;

begin
  CSV := TStringList.Create;

  try
    DataSet.First;

    while not DataSet.Eof do
    begin
      Linea := '';

      for I := 0 to DataSet.Fields.Count - 1 do
        Linea := Linea + '"' + DataSet.Fields[i].AsString + '"' + #9;

      CSV.Add(Linea);
      DataSet.Next;
    end;

    Clipboard.AsText := CSV.Text;

    Excel := CreateOleObject('Excel.Application');
    Excel.SheetsInNewWorkbook := 1;
    Libro := Excel.WorkBooks.Add;
    Libro.ActiveSheet.Paste();
    Libro.SaveAs(Archivo);
  finally
    Excel.Quit;
    CSV.Free;
  end;
end;

LineComment Saludos

[TiammatMX]

Empezado por roman

No tengo Delphi a mano y mi fluidez en el lenguaje ya no es lo que era, pero aquí una base de la cual partir...

...y una buena base, por cierto. No te preocupes, Román, el lenguaje en el que debo aplicar ésta exportación es XBase++, casi nada.

[[Al González]]

Empezado por TiammatMX

[...]el lenguaje en el que debo aplicar ésta exportación es XBase++, casi nada.

¿Y por qué no lo decías, Felipe?

Si esa cosa, XBase++, admite DLLs de Windows (y la solución es para ejecutarse en Windows ), entonces podrías programar la solución en Delphi compilándola como DLL, y que la aplicación hecha en esa cosa, XBase++, llame a las funciones de la DLL para realizar la exportación.

La clase TghOpenXMLSpreadsheet y asociadas están pensadas para realizar diversas tareas con documentos de OpenXML, concretamente Excel de formato moderno. Sin embargo, no están aún lo suficientemente actualizadas para trabajar fuera de Delphi XE7 o permitir la escritura de forma fácil. Actualmente estoy trabajando en la adaptación para Delphi Berlin, en la cual pienso incluir también la capacidad de comprimir y descomprimir el documento.

Recordar que .xlsx no es más que un .zip con ciertas carpetas y archivos XML definidos por Microsoft.

¡Saludos!

Al González.

[TiammatMX]

Empezado por Al González

¿Y por qué no lo decías, Felipe? ...

Por que, compadre Al, en ésta empresa son ALÉRGICOS a VisualBASIC, C#, Delphi, ObjectPASCAL, Python..., o sea, a todo lo que NO sea su antiquísimo lenguaje para desarrollar. Por eso deseaba una solución general, que pudiera aplicar sin necesidad de dirigirla a un lenguaje específico.

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