[starcon]

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

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

Код:

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

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;

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

Спасибо

[starcon]

Разобрался сам.
Вот может кому пригодится

Код:

1 2 3 4 5 6 7 8

DBGridEh1.DataSource.DataSet.First;       for i:=0 to  DBGridEh1.DataSource.DataSet.RecordCount-1 do       begin       sheet.cells[index,1]:=DBGridEh1.DataSource.DataSet.Fields.Fields[0].AsString;       sheet.cells[index,2]:=DBGridEh1.DataSource.DataSet.Fields.Fields[1].AsString;       sheet.cells[index,3]:=DBGridEh1.DataSource.DataSet.Fields.Fields[2].AsString;       sheet.cells[index,4]:=DBGridEh1.DataSource.DataSet.Fields.Fields[3].AsString;       sheet.cells[index,5]:=DBGridEh1.DataSource.DataSet.Fields.Fields[4].AsString;

[lmikle]

Маньяк...
... а в цикле указать DBGridEh1.FieldCount-1 не судьба была?

[starcon]

Спасибо
Можно было.
Но мне ещё нужно забрать кроме последней колонки и 8-ю колонку.
Так что мой пример , меня устроил.

[lmikle]

Все-равно, маньяк
Можно сделать массив индексов и ходит по нему...

[starcon]

Подскажите ,как уже в Экселе , нарисовать границы.
Именно в заполненных строках?

[lmikle]

Вот так это делает сам Excel:

Код:

1 2 3 4 5 6 7 8 9

Range("D7:J18").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft)     .LineStyle = xlContinuous     .ColorIndex = 0     .TintAndShade = 0     .Weight = xlThin End With

Через позднее связываение прямо так же и пишешь.