Abrir un Archivo xls

[javicho_villa]

Hola a todos:

Gracias por la atencion prestada, tengo un problemita tengo que jalar datos de un archivo .xls (excel) a un StringGrid. este proceso en bien frecunte. Lei algunos hilos pero no logro solucionar mi problema.

Si alguien pudiera ayudarme se lo agradeciria muchisimo.

Saludos,

Javier Villa.

[[Bicho]]

Y el problemas es???

Es que mi bola mágica no funciona ahora mismo.

Saludos

P.d: jalar en España es comer, no se como te sentirá comerte unos datos que proviene de Excel

[Neftali [Germán.Estévez]]

Puedes abrirlo vía Automatización, o lo que creo que es más sencillo, utilizando ADO.
Si configuras correstamente la conexión puedes leer la hoja de excel como si fuera un TTable. Aquí puedes ver cómo hacerlo.

[javicho_villa]

gracias por las respuestas, prodrian si no fuera mucha molestia que componentes agrego a mi form y un poquito de codigo para ver como utilizarlas
gracias

[Neftali [Germán.Estévez]]

¿Has leído la página correspondiente al link que te he puesto?

En la parte inforior (al final del artículo) se lee:
The files accompanying this article are available for download.

¿?¿?¿?¿?¿

[javicho_villa]

Gracias, lei el articulo pero creo que es mas que nada cuando tu abres un archivo que el contenido esta en forma de una tabla, lo que yo necesito es acceder a celdas especificas y extraer esa informacion a un StringGrid, es por eso que tengo los problemas.

Saludos,

Javier Villa.

[Neftali [Germán.Estévez]]

En ese caso utiliza automatización.

[[Bicho]]

Entonces no tienes nada más que recorrer la tabla una vez ya la tengas cargada con los datos del XLS y pasar los datos al StringGrid

Debes averiguar cuantas columnas tendrá y a partir de allí

Código Delphi [-]
  //recuerda cada vez que entres en esta función debes tener vaciado el StringGrid
  Table1.open;
   for x := 0 to Table1.Recordcount-1 do begin
     Stringgrid1.Cells[1, x] := Table1.FieldByName('Campo1').AsString;
     Stringgrid1.Cells[2, x] := Table1.FieldByName('Campo2').AsString;
     // y así hasta cuantas columnas tengas
     StringGrid1.Rowcount :=  StringGrid1.Rowcount + 1;
     table1.Next;
   end;
 Table1.Close;

Espero te sirva.

Saludos