importar datos de excel a firebird

[Dalmine]

hola que tal mira asi yo recorro el excel, ya sabiando cuantas columnas tiene y teniendo una tabla de acuerdo a los campos que tien excel

table1.open;
While not ADODataSet1.EoF do begin
table1.insert;
Table1.FieldByName('nombre').Value := AdoDataSet1.Fields[0].Value ;
Table1.FieldByName('num').Value:= AdoDataSet1.Fields[1].Value ;
Table1.FieldByName('num1').Value := AdoDataSet1.Fields[2].Value ;
Table1.FieldByName('ape').Value := AdoDataSet1.Fields[3].Value ;
table1.post;
AdoDataSet1.Next;
end;
end;


para guiarme he usado este ejemplo que hizo otro companero del foro http://www.clubdelphi.com/foros/show...xcel+a+paradox

suertee