باز هم excell

[V60]

اقا من دنبال انتقال اطلاعات از dbgride به اکسل بودم اول هم جستجو کردم
وبه این لینک رسیدم
http://www.barnamenevis.org/vi...c&start=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&#  91;I].Title.Caption;

                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 اشکال داشت
آقای شفیعی دستتان درد نکند