Delphi - Leer Archivo excel

De antemano muchas gracias, mi pregunta: si esposible leer un archivo excel desde delphi?, solo leerlo no modificarlo, necesito pasar unos datos de una planilla excel a una base de datos cualquiera, mo importa la base de datos que sea, encontre unos componentes pero todos son de pago y ya para hacer cosas muy potentes, como digo solo necesito leer el archivo. Les agreadecería muchisimo si pudieran ayudarme.

en este link hay un codigo que te puede servir, lee una hoja excel para imprimierla atraves de delphi.
para recuperar los datos e insertarlos en una tabla de cuaquier base de datos tienes que leer el valor que tiene la celdas como esta en esta linea.

appExcel.WorkBooks[1].Worksheets[1].Cells[i, j] ; { Valor de la celda en Excel}

y pasarlo al campo de la tabla o el query, dependiendo del componente usas.
detodas maneras esta claro el ejemplo en el codigo.

http://www.latindevelopers.com/forum/viewtopic.134.html#p326

suerte.

Exelente es exactamente lo que necesito, te agradesco mucho y en cualquier cosa que pueda ayudarte enviame unmail, muchas gracias!.

Buenas Tardes, tengo una duda :S estoy pasando unos datos de excel a un archivo txt, cuando todas las lineas estan llenas genera el archivo bien, pero cuando empieza con lineas vacias o tiene lineas vacias entre datos, no copia nada, en mi caso cuando empieza vacio no copia nada, y cuando tiene lineas de por medio solo escribe las 3 primeras columnas :( Ayuda Por favor.. Soy Nueva en esto.

procedure TPrincipalForm.BitBotonIniciarClick(Sender: TObject);

var
appExcel : Variant;
i, j, k : integer;
contenido,resultado : String;
x : string;
numCampos : integer;
numFilas : integer;
begin

if (FileListBox.ItemIndex >= 0) then
begin
appExcel := CreateOleObject('Excel.Application');
appExcel.WorkBooks.Open(FileListBox.FileName);

numFilas := appExcel.ActiveCell.Row;

numCampos := appExcel.ActiveCell.Column;

for i := 2 to (numFilas) do
begin
contenido := '';
for j := 1 to numCampos do
begin
x := appExcel.WorkBooks[1].Worksheets[1].Cells[i, j];
if (x<>'') then
begin
If ((x='Femenino') or (x='Obrero')or(x='Egresado') or (x='Obrera')or(x='Egresada')) then
begin
x:='2';
end;
If ((x='Masculino') or (x='Empleado')or(x='Ingresado') or (x='Empleada')or(x='Ingresada')) then
begin
x:='1';
end;

if ((j=6) or (j=8) or (j=11)) then
begin
resultado:=EliminarCaracteres(x);
x:=resultado;
end;
contenido := contenido + x;

if (j <> numCampos) then
contenido := contenido + ';';
end;
end;
Cls_Utilidades.CrearArchivoTexto(DirectoryListBox.Directory+'\ArchivoNomina'+Cls_Utilidades.DameFechaSin(Now())+'.txt',contenido);
end;

appExcel.Quit;
appExcel := Unassigned;
Application.MessageBox('Archivo Generado Satisfactoriamente','Atención', MB_ICONINFORMATION);
end
else
Application.MessageBox('Debe seleccionar el Archivo de Excel','Atención', MB_ICONINFORMATION);
end;

Hola.

El problema es en la línea:

numFilas := appExcel.ActiveCell.Row;

La cual toma el número total de filas hasta la primera vacia.

En lugar de eso puedes usar un repeat de la siguiente forma:

repeat
x := appExcel.WorkBooks[1].Worksheets[1].Cells[i, j];
If ((x='Femenino') or (x='Obrero')or(x='Egresado') or (x='Obrera')or(x='Egresada')) then
x:='2';
Inc(i);
until (VarType(appExcel.WorkBooks[1].Worksheets[1].Cells[i, 1].Value2) = VarEmpty);

uses comobj

procedure TForm1.Button4Click(Sender: TObject);
var
appExcel: Variant;
i, j: integer;
sql: String;
x: string;
const
numCampos: integer = 3;
numFilas: integer = 4;

begin
appExcel := CreateOleObject('Excel.Application');
appExcel.WorkBooks.Open('C:Excel.xls');

Memo1.Lines.Clear;
for i := 2 to (numfilas + 2) do // en la fila 1 esta el nombre del campo
begin
sql := '';
for j := 1 to numCampos do
begin
x := appExcel.WorkBooks[1].Worksheets[1].Cells[i, j];
sql := sql + x + '''';
if j <> numCampos then
sql := sql + ',''';
end;
sql := 'insert into mitabla values(''' + sql + ')';
Memo1.Lines.Add(sql);
end;

appExcel.Quit;
appExcel := Unassigned;
end;

quiero agradecer todo este link referido al manejo de excel, realmenet muy claro y me re-sirvio.

desde gualeguaychu entre rios - ciudad a favor del medioambiente y en contra de pasteras como botnia los saludos.

javascript:alert('Hola bobo');