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

[Casimiro Notevi]

Un bucle recorriendo un dataset y enviando a un fichero de texto del tipo csv es rapidísimo y muy simple de hacer. ¿No te viene bien ese formato?

[TiammatMX]

Empezado por Casimiro Notevi

Un bucle recorriendo un dataset y enviando a un fichero de texto del tipo csv es rapidísimo y muy simple de hacer. ¿No te viene bien ese formato?

No, Casimiro. Lamentablemente para mí, DEBE SER NECESARIAMENTE EN XLSX..., el caso del CSV ya está contemplado desde el principio de los tiempos de éste programa (en el que estoy trabajando)...

[roman]

Acabo de pegar 2600 registros en formato CSV en una hoja xlsx en un abrir y cerrar de ojos. A ese tiempo (abrir y cerrar de ojos) únicamente tendrías que añadir el tiempo de formar los datos CSV (debe ser imperceptible) crear el archivo y guardarlo. Te aseguro que tardará menos de un minuto y el archivo final estará en formato xlsx. Lo del CSV en memoria el cliente ni lo sabrá.

LineComment Saludos

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