из DBGridEh в Exel

[Abay]

Всем привет, нужно пренести данные из таблицы, в Excel, но только определенный столбец, в заранее благодарю

[Pitbull]

procedure PrintRepEx();
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
//создание объекта
XLApp:= CreateOleObject('Excel.Application' );
XLApp.Visible:=true;
XLApp.DisplayAlerts:=false;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='название листа';
Colum:=XLApp.Workbooks[1].WorkSheets['название листа'].Columns;

//настройка столбцов и строк(не обязательно)
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=10;
Colum.Columns[3].ColumnWidth:=10;
Colum:=XLApp.Workbooks[1].WorkSheets['название листа'].Rows;
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['название листа'];

//делаем заголовки столбцов
Sheet.Cells[3,1]:='название колонки 1';
Sheet.Cells[3,2]:='название колонки 2 ';
Sheet.Cells[3,3]:='название колонки 3 ';

//а вот и сам ввод данных из таблицы в Эксел
index:=4; {указываем с какой страницы начинать вывод в Excele, т.к у меня уже первые 3 строки уже наполнены, то начинаем с 4-й}
Table1 .First;
for i:=0 to DataModule1.proezd_main .RecordCount-1 do
begin
Sheet.Cells[index,1]:=Table1.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=Table1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=Table1.Fields.Fields[2].AsString;
Inc(index);
Table1.Next;
end;

end;

[Abay]

Благодарю Pitbull, все вышло супер

[Pitbull]

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

Благодарю Pitbull, все вышло супер

та незачто