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

[TiammatMX]

...pero tengo algunos problemas.

¡Buen día/tarde/noche!, requiero información y ayuda para resolver una pequeña particularidad.

Tengo un programa que debe realizar una exportación de datos a Excel (*.xls) , de tres columnas obtenidas de SQL Server. Actualmente lo realiza cómodamente con ésta línea de conexión:
cConn := "DBQ="+cNomArc + ";Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;MaxScanRows=0;FirstRowHasNames=1;DriverId=278"

Donde cNomArc es el nombre del archivo que contendrá los nuevos datos.

Probé con la línea:
cConn := 'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ='+cNomArc+';Mode=ReadWrite;ReadOnly=False;Extended Properties="Mode=ReadWrite;ReadOnly=False;HDR=YES"'

recomendada en alguno de los sitios de desarrolladores que frecuento, y además de obtener un archivo ridículamente pequeño (7 Kb), no es legible para Excel marcando "Excel no puede leer el archivo 'x' porque el formato de la extensión...", ya saben...

Y ahora el problema es que necesito exportarlo a *.xlsx para "modernizar" la salida de los datos; en el otro extremo (es decir, la importación de datos) tengo ésta conexión plenamente funcional y leyendo cómodamente archivos *.xlsx:
cConn := 'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ='+cNomArc+';Extended Properties="Mode=Read;ReadOnly=True;HDR=YES"'


Obviamente, he probado con varias conexiones la exportación, hasta que me topé con una recomendación emanada directamente de Microsoft donde dice que la exportación DEBE NECESARIAMENTE ser en formato Excel 97-2003 *.xls para ser viable..., pero debo exportarlo en *.xlsx funcional si deseo continuar con el diseño del sistema...

¿Alguien tendrá alguna idea que pueda servirme? Agradezco de antemano su paciencia y comprensión.

[roman]

Podrías intentar acceder a Excel vía OLE, tú sabes, usando OleVariants y COM y llenando las celdas una a una. El problema ahí sería la velocidad. Si es una tabla muy grande podría ser algo lento. Incluso, se me ocurre que podrías poner los datos en CSV en el portapapeles y luego, mediante OLE, pegar el contenido en el archivo xlsx.

LineComment Saludos

[TiammatMX]

...Podrías intentar acceder a Excel vía OLE, tú sabes, usando OleVariants y COM ...

Efectivamente, el tema de la velocidad es crucial. Si por exportar 2,000 registros se tarda en el método actual casi un minuto, me lo reclaman cada vez que pueden...

Gracias.

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

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:


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]

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

[Al González]

[...]el lenguaje en el que debo aplicar ésta exportación es XBase++, casi nada.qP:-)
¿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 :p), 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 (https://github.com/algonzalez74/GHFreebrary/blob/master/GHF.OpenXMLSpreadsheet.pas) y asociadas están pensadas para realizar diversas tareas con documentos de OpenXML (https://es.wikipedia.org/wiki/Office_Open_XML), 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]

¿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/publications/standards/Ecma-376.htm

:)

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

[TiammatMX]

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

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í:


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]

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]

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]

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... :D:D

[roman]

Y al final quedó así:


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]

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...:D:D:D:D:D

Los tiempos..., ni mejor ni peor, con ése código tarda cerca de 1 minuto en leer, 50 y algo mil registros.!!!:-|!!!:-|^\||/^\||/^\||/