Ver Mensaje Individual
  #7  
Antiguo 10-08-2012
Avatar de elaguna
elaguna elaguna is offline
Miembro
 
Registrado: abr 2009
Ubicación: México
Posts: 51
Reputación: 16
elaguna Va por buen camino
Ya tiene algún tiempo el tema pero si alguien llega con la misma duda le podría servir.

Cita:
Empezado por ecfisa Ver Mensaje
Hola cmfab.

No sé que versión de Delphi estas usando.... mirá en estos enlaces:Saludos.
El primer enlace es el que me pareció más claro y funciona muy bien, sólo un pequeño detalle falta:

Código Delphi [-]
begin
    newWorkbook := XLSXReader.Workbooks.Add('C:\book1.xlsx', GetUserDefaultLCID);
    objXLS := Excel_TLB.TExcelWorkbook.Create(nil);
    objXLS.ConnectTo(newWorkbook);
    objSheet := Excel_TLB.TExcelWorksheet.Create(nil);
    ...

falta inicializar la variable XLSXReader, y obviamente liberarla al final, entonces queda:
Código Delphi [-]
 begin
    XLSReader := Excel_TLB.TExcelApplication.Create(nil);

     newWorkbook := XLSXReader.Workbooks.Add('C:\book1.xlsx', GetUserDefaultLCID);
     objXLS := Excel_TLB.TExcelWorkbook.Create(nil);
     objXLS.ConnectTo(newWorkbook);
     objSheet := Excel_TLB.TExcelWorksheet.Create(nil);
    ...
    ...
    FreeAndNil(objXLS);
      FreeAndNil(objSheet);
    FreeAndNil(XLSXReader);

y es todo, y con eso funciona perfectamente.

Espero les sirva a todos, si hay alguna otra observación, háganla saber.

Saludos

Eduardo Laguna
__________________
No lo intentes!. Hazlo o no lo hagas, pero no lo intentes !!! (Yoda)
Responder Con Cita