Здравствуйте, Жуков Сергей!

Может не самый удачный способ, но очень простой:
Берем ADODataSet, в ConnectionString пишем :
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ПолныйПутьИИмяФайла.xls;Extended Properties=Excel 8.0;Persist Security Info=False

Далее в CommandText пишем : select * from [Sheet1$], где Sheet1$ имя листа книги Excel обязательно в квадратных скобках.
Далее открываем набор данных и переносим в таблицу Interbase.

Здравствуйте, Жуков Сергей!

еще можно воспользоваться компонентом
TExcelApplication со вкладки SERVERS

var s:string;
begin
ExcelApplication1.Visible[lcid(0)]:=false; // запускает ексель в невидемом режиме
ExcelApplication1.Workbooks.Add(FileName,lcid(0)); // добавляем файл екселья
s:=ExcelApplication1.Range[‘A1‘,emptyparam].Value; // в переменную s заносим данные ячейки A1;
end;
добавление записи в бд:
ibtable1.AppendRecord([‘Rec1‘,‘Rec2‘,‘Rec3‘]);
или
ibtable1.InsertRecord([‘Rec1‘,‘Rec2‘,‘Rec3‘]); // указываем только значения для всех полей по порядку, как они идут в БД.

то есть примерно такой код получиться

Приложение:
var i: integer;beginExcelApplication1.Visible[lcid(0)]:=false; ExcelApplication1.Workbooks.Add(FileName,lcid(0)); i:=1;while ExcelApplication1.Range[‘A‘+inttostr(i),emptyparam].Value<>‘‘ dobegin IBTable1.AppendRecord([ ExcelApplication1.Range[‘A‘+inttostr(i),emptyparam].Value, ExcelApplication1.Range[‘B‘+inttostr(i),emptyparam].Value, ExcelApplication1.Range[‘C‘+inttostr(i),emptyparam].Value]); inc(i);end;