Экспорт c Excell в Access

[sashaslam]

Нужно экспортировать данные с Excell в Access. Какие компоненты использовать, что будет оптимально??? напишите код, кто знает,хоть для одной ячейки, как с Excell в Access записать данные. Или скиньте ссылку на материал по данной теме...

[hug666]

Компаненты:
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;

uses ComObj;(Надо прописать)
procedure TForm1.Button1Click(Sender: TObject);
var
Workbook, Sheet: variant;
st : String;
begin
Excel:=CreateOleObject('Excel.Appli cation');
Excel.DisplayAlerts:=False;
Workbook:=Excel.Workbooks.Open('пут ь к Excel'); {Пример:Workbook:=Excel.Workbooks.O pen('c:1.xls')}
Sheet:= WorkBook.ActiveSheet;
st:= Sheet.cells[номер строки,номер столбца] ;{Пример: st:= Sheet.cells[6,3] }
Excel:= UnAssigned;
ADOTable1.Insert;
ADOTable1.FieldByName('Названия поля в таблице Ассеss').AsString:=st;
ADOTable1.Post;
end;

[AD_min]

Подскажи те как его завершить

[Andrei]

Сообщение от AD_min

Подскажи те как его завершить

//Закрываю все открытые рабочие книги Exel
for i:=1 to Ecxel.Workbooks.Count do Excel.Workbooks[i].Close;
//Закрываю приложение Exel
Excel.Application.Quit;