экспорт с ADOTable в Excel

[Alexsandr]

Всем доброго времени суток. Подскажите плиз, как сделать экспорт с DBGrid в Excel? Есть таблица ZRADOTable и DBGrid с полями Vidrabot,Kolvo,Cena,Cym1.Поле Cym1 вычисляемое. В документе Excel Akt
находящегося С:\Akt, поле Vidrabot ячейка B45,Kolvo ячейка AC45,Cena ячейка AI45,Cym1 ячейка AN45.

[Stilet]

А не будет ли проще сам Экзель настроить на базу? Импорт данных в нем еще не отменяли вроде.

[Alexsandr]

А как сделать чтоб они импортировались в нужные ячейки из текущего DBGrida?

[_SERGEYX_]

Посмотри внизу страницы "Похожие темы". Много раз обсуждалось.

[Alexsandr]

темы почитал. Только у меня выводятся все колонки DBGrid в определённой ячейке,а мне надо чтобы каждая колонка DBGrida выводилась
в назначиную ячейку EXCEL,тобиш в созданый шаблон. вот код:

procedure TAktRabotForm.Button4Click(Sender: TObject);
var
ExcelApp,Sheet : variant;
row :integer;
col:integer;

begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Ap plication');
ExcelApp.workbooks.open('C:\Avtoser viseMbd\DataSklad\Printact.xls');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Акт выполненных работ';
for row :=0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet. Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
DBGrid1.DataSource.DataSet.Next;
ExcelApp.Range[excelapp.cells[7,1],excelapp.cells[7+DBGrid1.DataSource.DataSet.Record Count-1,9]].select;

end;
end;


end.