خروجی با فرمت اکسل برای دلفی 7 [بایگانی]

helia

23 / July / 2014, 08:51 PM

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

yanin

24 / July / 2014, 06:03 PM

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

دانلود ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])

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

hooch

25 / July / 2014, 04:40 AM

با سلام
براي خروجي اکسل در دلفي ابندا يک باتون در فرم رها و در پنجره 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;

نمونه : [فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>][1].zip

yanin

25 / July / 2014, 05:17 AM

من برای خروجی و گزارشگیری در اکسل مشکلی ندارم ولی تویه کاری که میخوام با دو سلول یه فایل اکسل انجام بدم به مشکل خوردی
ممشکل اینه که من میخوام با اکسل ارتباط برقرار کنم یعنی یک داده به یک سلول بدم و جواب رو از سلول دیگه دریافت کنم این مشکل مربوط به فایل اکسل موجود در این سایت [فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>] میخوام وقتی دما رو به C7 بدیم فشار رو از C8 دریافت کنیم این فابل اکسل از ماکرو استفاده میکنه که باید فعال یاشه
خیلی فوری به جواب این نیاز دارم

admin

27 / July / 2014, 03:42 AM

سلام مهندس.
این لینک رو ببینید
[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]
اگه درست منظورتون رو متوجه شده باشم ، تقریبا کارتون رو راه میندازه ...

admin

27 / July / 2014, 03:47 AM

با سلام
براي خروجي اکسل در دلفي ابندا يک باتون در فرم رها و در پنجره 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;

نمونه : [فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>][1].zip

سلام.
لطفا تمام فایلهای پیوست رو در خود انجمن ضمیمه کنید.
ضمنا این لینک هم تقریبا کاری مشابه کار شما انجام داده [فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]