DBGrid->Word

[Bestmachin]

Доброго времени суток! Подскажите как можно экспортировать данные из
DBGrid->Word нужно чтобы было как ...


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


XArr:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Applicat ion');
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)+IntToS tr(j)].Value := XArr;
ADOQuery1.Next;
j:=j+1;
end;

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

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

[S@fer]

Почитайте вот эту статью из delphi World