Abrir archivo excel 2007 o 2010
 

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

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.

Gracias ecfisa voy a revisar los links

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!

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!

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

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

Hola amigos una consulta en el ultimo código de la primer URL mensiona a un FSheet..
el cual me tira el siguiente error.
[DCC Error] Unit1.pas(102): E2003 Undeclared identifier: 'FSheet'

alguien sabe donde o como se declara el FSheet?
Gracias.

Buenas, lo que te está queriendo decir el error es que no conoce FSheet, como si fuera una variable que no ha sido declarada.
Mas abajo hay un usuario que menciona lo mismo, y le contestan lo siguiente:

"Hi Pablo,
FSheet is a stringGrid that I have with some values and LastModule can be discarded.
Regards,"

Saludos

Yo tengo un inconveniente con delphi xe 5 donde utilizo unas para excel, las cuales funcionan perfectamente con delphi 2007 pero con xe5 no, el error es que el archivo me aparece con vista protegida siempre y en 2007 no, alguien aun me puede ayudar?