Сохранить базу в ексель

[iliili]

Подскажите, как сохранить базу в ексель формате?))))))))))

использую ClientDataSet и DBGrid

[BARNEY]

procedure TExpert.BitBtn10Click(Sender: TObject);
var
ex:Variant;
ws:Variant;
i,ii:integer;
begin
ex:=CreateOleObject('Excel.Application');
ex.visible:=false;
ex.Workbooks.add();
ws := ex.ActiveSheet;
Qselect.First;
for II := 1 to 48 do  //переписываем название столбцов
     ws.cells[1,ii]:=DBGrid1.Columns[ii].Title.Caption;
i:=2;
while (not Qselect.Eof) do // сами данные перетаскиваем 
 begin
    for II := 1 to 48 do
    ws.cells[i,ii]:=Qselect.Fields[ii].AsString; 
    i:=i+1;
   Qselect.Next;
 end;
  ws.Columns.AutoFit;
  ex.visible:=true;

end;

[iliili]

спасибо))
а подключать что нить надо?))

[Serge_Bliznykov]

а подключать что нить надо?))

надо.
вставляете код. начинаете компилировать. Delphi выдаёт ошибку, что неопознанный идентификатор. (ну, например, на CreateOleObject). Выделяете его. нажимаете F1 - читаете описание и модуль, где это описано.
для данной функции, это модуль ComObj
Его и надо дописать в Uses

ну и ещё. подобный код использует OLE-автоматизацию и, следовательно, будет работать ТОЛЬКО в том случае, если на данном компьютере есть установленный Microsoft Excel.

[BARNEY]

ОФФ
Serge_Bliznykov, ну как ребёнку всё разжувал..скоро молодёжь вообще думать перестанет