خروجی با فرمت اکسل برای دلفی 7

سلام خدمت همه دوستای خوبم
من دنبال یه کامپوننت برای خروجی اکسل از دلفی 7 می گردم.
البته چند سال پیش یه کامپوننت خیلی خوب رو که وبلاگ بی نظیر کلینیک دلفی معرفی کرده بود دانلود و استفاده کردم، حالا بعد از سالها هرچی دنبالش می گردم پیداش نمی کنم
اسمش رو در پایان پست می نویسم، لطفاً دوستان کمک کنند.
FlexCel 3.2.1 for Delphi 6-2010 & C++Builder 2006-2010 Cracked

اینم کامپننت
TMS FlexCel

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

البته کامپننت های خوب دیگه هم هست که من یکیشون رو توی قسمت کامپننت های انجمن گذاشتم
نمونه کامپننت های برای کار با فایل اکسل
EMS Advanced Excel Report
xlsReadWrite
NativeExcel
TscExcelExport
Excel Component Suite

با سلام
براي خروجي اکسل در دلفي ابندا يک باتون در فرم رها و در پنجره code Editor باتون فوق کد ذیل را مي نويسيم البته ابتدا در قسمت uses بايستي کلمه comobj را بنويسيم.

کد:

---

var
    XApp:Variant;
    sheet:Variant;
    r,c:Integer;
    row,col:Integer;
    filName:Integer;
    q:Integer;
begin
    ADOQuery1.open;
    ADOQuery1.First;
    XApp:=CreateOleObject('Excel.Application');
    XApp.Visible:=true;
    XApp.WorkBooks.Add(-4167);
    XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
    sheet:=XApp.WorkBooks[1].WorkSheets['Sheet1'];
    for filName:=0 to ADOQuery1.FieldCount-1 do
    begin
        q:=filName+1;
        sheet.Cells[1,q]:=ADOQuery1.Fields[filName].FieldName;
        XApp.WorkSheets['Sheet1'].Columns[FilName+1].ColumnWidth:=10;
    end;
    for r:=0 to ADOQuery1.RecordCount-1 do
    begin
        for c:=0 to ADOQuery1.FieldCount-1 do
        begin
            row:=r+2;
            col:=c+1;
            sheet.Cells[row,col]:=Trim(ADOQuery1.Fields[c].AsString);
        end;
        ADOQuery1.Next;
    end;
    XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Bold:=True;
    XApp.WorkSheets['Sheet1'].Range['A1:M1'].Borders.LineStyle :=13;
    XApp.WorkSheets['Sheet1'].Range['A2:M'+inttostr(ADOQuery1.RecordCount-1)].Borders.LineStyle :=1;
end;

---

نمونه : [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید][1].zip

من برای خروجی و گزارشگیری در اکسل مشکلی ندارم ولی تویه کاری که میخوام با دو سلول یه فایل اکسل انجام بدم به مشکل خوردی
ممشکل اینه که من میخوام با اکسل ارتباط برقرار کنم یعنی یک داده به یک سلول بدم و جواب رو از سلول دیگه دریافت کنم این مشکل مربوط به فایل اکسل موجود در این سایت [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید] میخوام وقتی دما رو به C7 بدیم فشار رو از C8 دریافت کنیم این فابل اکسل از ماکرو استفاده میکنه که باید فعال یاشه
خیلی فوری به جواب این نیاز دارم

سلام مهندس.
این لینک رو ببینید
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
اگه درست منظورتون رو متوجه شده باشم ، تقریبا کارتون رو راه میندازه ...

نقل قول:

---

نوشته اصلی توسط hooch [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

با سلام
براي خروجي اکسل در دلفي ابندا يک باتون در فرم رها و در پنجره code Editor باتون فوق کد ذیل را مي نويسيم البته ابتدا در قسمت uses بايستي کلمه comobj را بنويسيم.

کد:

---

var
    XApp:Variant;
    sheet:Variant;
    r,c:Integer;
    row,col:Integer;
    filName:Integer;
    q:Integer;
begin
    ADOQuery1.open;
    ADOQuery1.First;
    XApp:=CreateOleObject('Excel.Application');
    XApp.Visible:=true;
    XApp.WorkBooks.Add(-4167);
    XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
    sheet:=XApp.WorkBooks[1].WorkSheets['Sheet1'];
    for filName:=0 to ADOQuery1.FieldCount-1 do
    begin
        q:=filName+1;
        sheet.Cells[1,q]:=ADOQuery1.Fields[filName].FieldName;
        XApp.WorkSheets['Sheet1'].Columns[FilName+1].ColumnWidth:=10;
    end;
    for r:=0 to ADOQuery1.RecordCount-1 do
    begin
        for c:=0 to ADOQuery1.FieldCount-1 do
        begin
            row:=r+2;
            col:=c+1;
            sheet.Cells[row,col]:=Trim(ADOQuery1.Fields[c].AsString);
        end;
        ADOQuery1.Next;
    end;
    XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Bold:=True;
    XApp.WorkSheets['Sheet1'].Range['A1:M1'].Borders.LineStyle :=13;
    XApp.WorkSheets['Sheet1'].Range['A2:M'+inttostr(ADOQuery1.RecordCount-1)].Borders.LineStyle :=1;
end;

---

نمونه : [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید][1].zip

---

سلام.
لطفا تمام فایلهای پیوست رو در خود انجمن ضمیمه کنید.
ضمنا این لینک هم تقریبا کاری مشابه کار شما انجام داده [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]