خروجی با فرمت اکسل برای دلفی 7
سلام خدمت همه دوستای خوبم
من دنبال یه کامپوننت برای خروجی اکسل از دلفی 7 می گردم.
البته چند سال پیش یه کامپوننت خیلی خوب رو که وبلاگ بی نظیر کلینیک دلفی معرفی کرده بود دانلود و استفاده کردم، حالا بعد از سالها هرچی دنبالش می گردم پیداش نمی کنم
اسمش رو در پایان پست می نویسم، لطفاً دوستان کمک کنند.
FlexCel 3.2.1 for Delphi 6-2010 & C++Builder 2006-2010 Cracked
پاسخ : خروجی با فرمت اکسل برای دلفی 7
اینم کامپننت
TMS FlexCel
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
البته کامپننت های خوب دیگه هم هست که من یکیشون رو توی قسمت کامپننت های انجمن گذاشتم
نمونه کامپننت های برای کار با فایل اکسل
EMS Advanced Excel Report
xlsReadWrite
NativeExcel
TscExcelExport
Excel Component Suite
پاسخ : خروجی با فرمت اکسل برای دلفی 7
با سلام
براي خروجي اکسل در دلفي ابندا يک باتون در فرم رها و در پنجره 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
پاسخ : خروجی با فرمت اکسل برای دلفی 7
من برای خروجی و گزارشگیری در اکسل مشکلی ندارم ولی تویه کاری که میخوام با دو سلول یه فایل اکسل انجام بدم به مشکل خوردی
ممشکل اینه که من میخوام با اکسل ارتباط برقرار کنم یعنی یک داده به یک سلول بدم و جواب رو از سلول دیگه دریافت کنم این مشکل مربوط به فایل اکسل موجود در این سایت [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید] میخوام وقتی دما رو به C7 بدیم فشار رو از C8 دریافت کنیم این فابل اکسل از ماکرو استفاده میکنه که باید فعال یاشه
خیلی فوری به جواب این نیاز دارم
پاسخ : خروجی با فرمت اکسل برای دلفی 7
سلام مهندس.
این لینک رو ببینید
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
اگه درست منظورتون رو متوجه شده باشم ، تقریبا کارتون رو راه میندازه ...
پاسخ : خروجی با فرمت اکسل برای دلفی 7
نقل قول:
با سلام
براي خروجي اکسل در دلفي ابندا يک باتون در فرم رها و در پنجره 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
سلام.
لطفا تمام فایلهای پیوست رو در خود انجمن ضمیمه کنید.
ضمنا این لینک هم تقریبا کاری مشابه کار شما انجام داده [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]