|
#1
|
|||
|
|||
Экспорт в Эксель
Добрый день всем.
Не могу разобраться , как вывести в эксель не все столбцы. Мне нужно выводить в эксель все столцы , кроме последнего. Вот код Код:
procedure TForm11.Button7Click(Sender: TObject); var i,j,index: Integer; ExcelApp,sheet: Variant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Visible := False; ExcelApp.WorkBooks.Add(-4167); ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Архив'; sheet:=ExcelApp.WorkBooks[1].WorkSheets['Архив']; index:=2; DBGridEh1.DataSource.DataSet.First; for i:=1 to DBGridEh1.DataSource.DataSet.RecordCount do begin for j:=1 to DBGridEh1.FieldCount do sheet.cells[index,j]:=DBGridEh1.fields[j-1].asstring; inc(index); DBGridEh1.DataSource.DataSet.Next; end; ExcelApp.Visible := true; end; Разобрался как первый не экспотрировать. Спасибо |