Экспорт в Excel

[Hobbit_88]

Значит имеется база Acsess соединение ado. Нужно экспортировать данные в excel уже имеется документ с шапкой в него помещает результат запроса. вот код procedure TForm5.SpeedButton3Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Ap plication');
ExcelApp.workbooks.open(ExtractFile Path(ParamStr(0))+'OtchetPokyp.xls' );
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';
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;
ExcelApp.Selection.Borders.LineStyl e:= xlContinuous;
end;
end;

Как сделать если неизвестно количество строк. Добавить программно вниз документа место для подписи и печати.

[Скандербег]

Как вариант вставить необходимое количество пустых строк между "шапкой" и "подвалом".

  Rng := ExcelApp.WorkBooks[1].WorkSheets[1].Cells[Row+8, 1];
  Rng.Select;
  for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
    ExcelApp.Selection.EntireRow.Insert;

for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
...

Rng : Variant;

[S@fer]

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

Как сделать если неизвестно количество строк. Добавить программно вниз документа место для подписи и печати.

В ваших значениях col,row уже стоит последняя ячейка записи, надо немного переделать

TForm5.SpeedButton3Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'OtchetPokyp.xls');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';
for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-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;

end;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,row+10].value:='Подпись'
end;

[Hobbit_88]

S@fer в вашем коде подпись вставляется в определенную ячейку, а я не знаю какое количество строк у меня будет после запроса и которые нужно экспортировать в excel. Если их будет больше чем на которой стоит подпись то они наложатся, и не будет видно подписи.

[S@fer]

Вы же вставляете записи через цикл

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;end;

Допустим объявите еще одну переменную , которой в теле цикла будете считать количество строк, а затем уже брать значение этой переменной.

[Hobbit_88]

Все спасибо разобрался