Como importar datos desde Excel?

[*Caro*]

Hola axlrafael, también lo puedes hacer de esta forma.

Código Delphi [-]
const
  xlCellTypeLastCell = $0000000B;
var
 Excel, Sheet: OLEVariant;
 CantRow, CantCol, i, j : Integer;
 RangoMatriz: Variant;
begin
  FileName := 'C:\Archivo.xls';
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(FileName);
 
  Sheet := Excel.Workbooks[ExtractFileName(FileName)].WorkSheets[1];
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
 
  CantRow := Excel.ActiveCell.Row;
  CantCol := Excel.ActiveCell.Column;
 
  RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;
 
  for i:=1 to CantRow do
   begin
    for j:=1 to CantCol do
     begin
      Showmessage(RangoMatriz[i,j]);
      //haces todo lo que necesites hacer
     end;
   end;//for

Saluditos

[axlrafael]

Muchas gracias amigo, tratare de hacerlo ahorita como ustedes me dijeron, solo otra cosita por favor, cuales componentes debo utilizar para hacer esto??

gracias

[[BlueSteel]]

Empezado por axlrafael

Muchas gracias amigo, tratare de hacerlo ahorita como ustedes me dijeron, solo otra cosita por favor, cuales componentes debo utilizar para hacer esto??

gracias

Hola, creo que en el ejemplo de caro, no tienes que usar ningun componente en especial...

en el mode de importar los datos desde excel que te dí yo, te describo que componentes se utilizan...

Para tu caso puedes utilizar lo sgte.. Utilizar un componente de tipo DataSet (en la Jedi encuentras el JvDataSet).. vincularlo al archivo de Excel.. y mostrar los datos en un DBGrid que este vinculado al DataSet... yo utilizo ese metodo para capturar los datos desde un archivo de texto con columnas fijas... y me va de maravillas

Salu2

[axlrafael]

Hola disculpen, se me olvido mencionar que trabajo con Delphi 6. Para mi amigo BlueSteel, perdoname pero no encuentro el componente DataSet ni tampoco la Jedi ni el JvDataSet .

[roman]

También puedes usar los componentes ADO. Aquí hay detalles de cómo usarlos para acceder a una hoja de Excel.

// Saludos

[ledesmarc]

Empezado por roman

También puedes usar los componentes ADO. Aquí hay detalles de cómo usarlos para acceder a una hoja de Excel.

// Saludos

Roman muy buena tu info, pero tengo un problema cuando quiero importar desde el excel (usando Ado) lo hace bien cuando se trata de una columna que sean todos del mismo tipo para mi caso(son todos numeros) el tema es que cuando en la columna hay mesclados numeros y letras en una misma celda, la importacion se corta (osea importa hasta esa celda)y la verdad me he cansado de buscar pero no encuentro el porque.
Te agredecere cualquier sugerencia
Saludos.
Marcos

[[BlueSteel]]

Empezado por axlrafael

Hola disculpen, se me olvido mencionar que trabajo con Delphi 6. Para mi amigo BlueSteel, perdoname pero no encuentro el componente DataSet ni tampoco la Jedi ni el JvDataSet .

Hola...

Para encontrar esos componentes, debes intalar el Pack de Jedi..JCV y JCVL... no se si estan aquí... pero en más de un foro se ha tratado

Salu2

Revisa este link... donde puedes descargar dicho componente

[axlrafael]

Muchisimas gracias Caro, me sirvio de mucho tu código, te debo una

[axlrafael]

Hola Caro, quiero preguntarte ¿porque es que despues de utilizar el archivo de excel en mi aplicación ya no me deja abrirlo de nueva cuenta?, he notado que cuando jalo cualquier archivo Excel en la aplicación no me deja abrirlo, me lo abre de tipo solo lectura y por logica no me deja guardarlo si lo quiero modificar.

Tambien note que en el administrador de tareas me abre tantas veces intente abrir yo el mismo archivo que utilice en la aplicación un proceso que es el de Excel ("EXCEL.EXE")

Espero que me puedas ayudar de nuevacuenta.

Saludos y suerte

[*Caro*]

Hola amiguito Roman, ya me funciona utilizando Cells como me indicas, muchísimas gracias . Lo que pasaba es que yo accedía a la celda, como esta en mi codígo casi al principio de este hilo.

Saluditos

[axlrafael]

De nueva cuenta muchisisimas gracias Caro, no sabes como me has ayudado en todo este tiempo, te lo agradesco de corazón, ya te debo miles .

Sobre tu otro código, voy a checarlo, porque con el anterior me sirve mucho, de todas maneras lo tomare en cuenta.

Saludos y suerte a todos con sus proyectos.