[starcon]

Добрый день всем.

Не могу разобраться , как вывести в эксель не все столбцы.
Мне нужно выводить в эксель все столцы , кроме последнего.
Вот код

Код:

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;

Как из экспорта исключить последний столб?.
Разобрался как первый не экспотрировать.

Спасибо