5 respuestas en este tema

[Mechis]

Buenos Dias,

Estoy trabajando con Delphi 5 y tengo un archivo de excel que genero desde la aplicacion, hasta aqui todo perfecto; el problema se me presenta al momento de querer guardarlo en disco.

Tengo predefinida la ruta fisica donde deseo guardar y uso el siguiente código:

delphi

oXL := CreateOleObject('Excel.Application');
oWB := oXL.Workbooks.Add();
.
.
.
 
oXL.Visible := True;
oXL.UserControl := True;
 
oWB.Saveas(FileName :=ruta +'\Archivo_' + Mes + '.xls',AddToRecentFiles := False);

El error lo arroja al ejecutar el SaveAS, dice OLE error 800A03EC.
La variable ruta tiene la ruta correcta, ya lo verifique

Gracias por su ayuda, Saludos

[poliburro]

No se , pero me parece que es un problema con la instalación de excel. El equipo que te genera error tiene instalado office?

[Mechis]

Si, si tiene office instalado..

Probando y probando resolvi, quedo de la siguiente manera:

delphi

10.oWB.Saveas(ruta +'\Archivo_' + Mes + '.xls');

De todos modos muchas gracias

[bcp9520]

Mechis... solo como un dato. Hace unos meses se me presento un problema similar en algunos PC en los que instalaba la aplicación y era que dentro del nombre del archivo utilizaba un "\". El problema era la configuración regional de algunos PC, es decir el formato de fecha se utilizaba como mm/dd/aaaa y por alguna razón generaba un error, con los pc configurados como mm-dd-aaaa no habia problema.

Espero que le sea util a alguien.
Saludos.

[poliburro]

Gracias por compartir la solución

[Sergio]

El seguindo parámetro de saveas es el formato a utilizar, si no pones nada no te da error y usa el "por defecto", pero puedes forzarlo si quieres:

delphi

  // 51 = xlOpenXMLWorkbook (without macro's in 2007-2010, xlsx)
  // 52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2010, xlsm)
  // 50 = xlExcel12 (Excel Binary Workbook in 2007-2010 with or without macro's, xlsb)
  // 56 = xlExcel8 (97-2003 format in Excel 2007-2010, xls)
  // More on this here: [url=http://www.rondebruin.nl/saveas.htm]http://www.rondebruin.nl/saveas.htm[/url]
  Document.Saveas(strName, 56);