DBGrid->EXCEL

[Neba]

Хочу содержымое DBGrid перегнать в ексель.

Вот код:
procedure ExportDBGrid(toExcel: Boolean);
var
bm: TBookMark;
col, row: Integer;
sline: string;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
DBGrid1.DataSource.DataSet.DisableC ontrols;
bm := DBGrid1.DataSource.DataSet.GetBookm ark;
DBGrid1.DataSource.DataSet.First;
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application' );
ExcelApp.WorkBooks.Add(xlWBatWorkSh eet);
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Grid Data';
end;

mem := TMemo.Create(Self);
mem.Visible := false;
mem.Parent := MainForm;
mem.Clear;
sline := '';

for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].DisplayLabel + #9;
mem.Lines.Add(sline);

for row := 0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do
begin
sline := '';
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].AsString + #9;
mem.Lines.Add(sline);
DBGrid1.DataSource.DataSet.Next;
end;

mem.SelectAll;
mem.CopyToClipboard;

if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
ExcelApp.Visible := true;
end;

FreeAndNil(ExcelApp);
DBGrid1.DataSource.DataSet.GotoBook mark(bm);
DBGrid1.DataSource.DataSet.FreeBook mark(bm);
DBGrid1.DataSource.DataSet.EnableCo ntrols;
Screen.Cursor := crDefault;
end;


И видает такие ошибки:
[Error] fmNaclsU.pas(153): Undeclared identifier: 'TBookMark'
[Error] fmNaclsU.pas(160): Undeclared identifier: 'DBGrid1'

[Claster]

Вот тебе компонент, да прибудет с тобой сила (Експорт в Excel SQL WORD TXT и многое многое другое)

[Hobbit_88]

procedure TForm5.SpeedButton3Click(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 := false;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';
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;
ExcelApp.Visible := True;
end;

Вот держи код должен работать. Только в сеции uses не забудь добавитьExcelXP, comobj. Если что не будет работать спрашивай. Еще для этого кода надо Ексельвский документ создать с шапкой. И работает он нажатием на кнопку достаточно простой и эфективный код.

[oblachko]

XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin


 XArr:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;

 j := 1;

 ADOTable1.First;
 while not ADOQuery1.Eof do
  begin
   i:=1;
   while i<=ADOQuery1.FieldCount do
    begin
     XArr[i] := ADOQuery1.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;
   ADOQuery1.Next;
   j:=j+1;
  end;

XL.Range['A1',CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;

 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;

[ScorpioN_T]

Hobbit_88

я вижу в моей теме по бывал
Вот еще один вариант, но УЖЕ без ШАПКИ, т.е. не надо отдельно созавать на компе Excel документ...

procedure TForm2.SpeedButton5Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;

ExcelApp:=CreateOLEObject('Excel.Application'); // создает объект
ExcelApp.WorkBooks.add; //новый док
ExcelApp.visible:=true;  // показывает док

ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'ScorpioN'; // переименовывание ЛИСТА 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].cells[1,1]:='Дата';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,2]:=datetostr(now);
ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true;
ExcelApp.WorkBooks[1].WorkSheets[2].visible:=false;
ExcelApp.WorkBooks[1].WorkSheets[3].visible:=false;
end;

[DaMadQuest]

а как сделать несколько ячеек в одну?

ExcelApp.WorkBooks[1].WorkSheets[1].Range['D1']:='name';

мне нужно, чтобы она занимала несколько ячеек. помогите пожалуйста

и еще, как перевернуть текст в ячейке?

[motorway]

Поясните последний вопрос - что нужно сделать, что значит несколько ячеек?

[fum]

20 часов поисков наконец то увенчались успехом!) Теперь этот долбаный dbgrid выводится в excel! Ура! Спасибо всем вам!))))))