[Hobbit_88]

Значит имеется база Acsess соединение ado. Нужно экспортировать данные в excel уже имеется документ с шапкой в него помещает результат запроса. вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure 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; ExcelApp.Range[excelapp.cells[7,1],excelapp.cells[7+DBGrid1.DataSource.DataSet.RecordCount-1,9]].select; ExcelApp.Selection.Borders.LineStyle:= xlContinuous; end; end;

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

[Страдалецъ]

Не понял, почему неизвестно? А это что?

Код:

1	DBGrid1.DataSource.DataSet.RecordCount-1