Отчет в EXEL

[Proxx-asb]

Подскажите как вывести отчет бд в excel?

[ScorpioN_T]

какие компоенеты используешь...
Вот пример с использованием DBGrid :

procedure TForm2.SpeedButton7Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'OtchetPokyp.xls');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';

for col :=0 to DBGrid1.Columns.Count-1 do
ExcelApp.WorkBooks[1].WorkSheets[1].cells[6,col+2].value:=dbgrid1.fields[col].displaylabel;

for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
DBGrid1.DataSource.DataSet.Next;

end;
ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true;
end;

[Proxx-asb]

Работаю с компонентами DBText! В dbText выводится информация.... и из этих дбтекстов нужно вывести все в EXCEL!

[Лесовик]

Не могу из Delphi сохранить числовой формат (NumberFormat)
В макросе Delphi нужный мне формат - текстовый - "@"
нет соответствующей константы.