باز هم excell

[V60]

اقا من دنبال انتقال اطلاعات از dbgride به اکسل بودم اول هم جستجو کردم
وبه این لینک رسیدم
http://www.barnamenevis.org/forum/viewtopic.php?t=10678&postdays=0&postorder=asc&sta rt=10
ولی اون کدی که آقای ع.و گذاشته بود ایراد می گرفت از این خطوط
WorkBk : _WorkBook;
WorkSheet : _WorkSheet;
ExcelApplication1.Connect;
و البته مابقی دوستان هم چیزهایی گذاشته بودند که در هنگاام نصب و اجرا به دنبال این پک می گردد و پیداش نمی کند
dcloffice2k50
حال من چی کنم :(

[شفیعی]

سلام



VAR
Excel: Variant;
zl, i,J : integer;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Add; // leere Tabelle wird erzeugt, 1. Blatt angew?hlt
Excel.Visible := True;
DM.TNAGH.First;
zl := 2; // Feldbezeichner übertragen
J:=1;
For I:=0 To DM.TNAGH.FieldCount-1 Do
IF DBGrid1.Columns[I].Visible THEN
BEGIN
Excel.Cells[zl,J+1]:=DBGrid1.Columns[I].Title.Capt ion;
J:=J+1;
END;
inc(zl);
while not DM.TNAGH.Eof do
begin
J:=1;
Excel.Cells[zl,1] :=INTTOSTR(ZL-2);
For i :=0 to DM.TNAGH.Fieldcount-1 do
IF DBGrid1.Columns[I].Visible THEN
BEGIN
Excel.Cells[zl, J+1] :=DM.TNAGH.Fields[i].AsString;
J:=J+1;
END;
inc(zl);
DM.TNAGH.Next;
end;


USES COMOBJ

[V60]

متشکر
راستی مشکل اون را هم حل کردم
در نصب پکیج 5 اشکال داشت
آقای شفیعی دستتان درد نکند