Вот представлено ниже программный код, который позволяет при нажатии на кнопку открыть Excel и перекачать данные из БД в таблицу Excell.
В данном программном коде рисуются горизонтальные заголовки, например, Sheet.Cells[2,2]:= 'Менеджер проекта'; Вопрос! Как создать вертикальные заголовки???

procedure TForm1.SpeedButton8Click(Sender: TObject);
var
XLApp, Sheet, Colum:Variant;
index, i: Integer;
begin
XLApp:= CreateOleObject('excel.Application');
XLApp.Visible:= True;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';
Colum:= XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;
Colum.Columns[1].ColumnWidth:= 30;
Colum.Columns[2].ColumnWidth:= 20;
...
Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;
Colum.Rows[2].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[1,2]:= 'Pressing Business';
Sheet.Cells[2,1]:= 'Проект';
Sheet.Cells[2,2]:= 'Менеджер проекта';
...
index:= 3;
DataModule2.TProjects.First;
for i:=0 to DataModule2.TProjects.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule2.TProjects.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=DataModule2.TProjects.Fields.Fields[1].AsString;
...
Inc(index);
DataModule2.TProjects.Next;
end;
Добавлено @ 15:21
Заодно, если знаете, как создать заголовки в Excel в две, а то и три строки...
Добавлено @ 15:21

Только не говорите мне, что этого никто не знает...

Код

Sheet:= XLApp.Workbooks[1].WorkSheets['Отчет'];  Sheet.Cells[1,1].Orientation := 90;  Sheet.Cells[1,1] := 'Вертикальный заголовок';

Так можно?

Да можно... Спасибо!