Abrir archivo excel 2007 o 2010

[cmfab]

Hola a todos !!!

uso el siguiente trozo de código para abrir y leer las celdas de un archivo de excel

Código Delphi [-]
  if not OpenDialog1.Execute then exit;
  FileName := opendialog1.FileName;
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(FileName);
  Sheet := Excel.Workbooks[ExtractFileName(FileName)].WorkSheets[1];
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

pero solo me funciona con archivos de office 2003 (*.xls). que instrucción debería usar si el usuario selecciona un arhivo *.xlsx de office 2007 o 2010.

Gracias de antemano

[ecfisa]

Hola cmfab.

No sé que versión de Delphi estas usando.... mirá en estos enlaces:

• Working with Microsoft Excel (.xlsx) files in Delphi 2010
• Delphi unit to easily open Access and Excel files. Vas a tener que probarla (no uso Office).

Saludos.

[cmfab]

Gracias ecfisa voy a revisar los links

[Jetzuvely21]

Hola cmfab, tengo el mismo problema para la lectura de los archivos para office 2007 y 2010. Estoy trabajando en delphi 5 y utilizo el mismo trozo de codigo que tu para abrir los archivos (objeto ole). ¿encontraste alguna solución?...Yo por el momento he buscado en el foro y he encontrado que se puede hacer con ADO,instalando componentes externos y con archivos csv (delimitado por comas).

De antemano muchas gracias, saludos!

[cmfab]

Hola, Jetzuvely21

Lamento decirte que no me ha funcionado para office 2010, por lo que mi cliente optó por dejar los archivos en formato 2003. si hay alguna solucion sería bueno que alguien dejara el codigo detallado.

un saludo !!!!

[Jetzuvely21]

Empezado por cmfab

Hola, Jetzuvely21

Lamento decirte que no me ha funcionado para office 2010, por lo que mi cliente optó por dejar los archivos en formato 2003. si hay alguna solucion sería bueno que alguien dejara el codigo detallado.

un saludo !!!!

Gracias por contestarme cmfab, yo opté por los ADO y la importación ya la hice con excel y con .csv, aunque ahora lo que ando buscando el porqué me devuelve algunos valores en blanco cuando son de tipo caracter o cadena de texto.

Ojalá si haya una solución para OLE.... >_<'


Nuevamente gracias y saludos!

[elaguna]

Ya tiene algún tiempo el tema pero si alguien llega con la misma duda le podría servir.

Empezado por ecfisa

Hola cmfab.

No sé que versión de Delphi estas usando.... mirá en estos enlaces:

• Working with Microsoft Excel (.xlsx) files in Delphi 2010
• Delphi unit to easily open Access and Excel files. Vas a tener que probarla (no uso Office).

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