با استفاده از این تابع می توانید از این پس به راحتی اطلاعات را از بانک خود به نرم افزار اکسل انتقال دهید
نکته این که قبل از استفاده باید نرم افزار اکسل را نصب کرده باشید
procedure ExporttoExl(TheDataset:TDataSet;SheetExcelName:String);
var
XApp:Variant;
sheet:Variant;
r,c:Integer;
q:Integer;
row,col:Integer;
fildName:Integer;
begin
try
begin
XApp:=CreateOle("Excel.Application");
XApp.Visible:=true;
end;
except
showmessage("Unable to link with MS Excel, it seems as it is not installed on this system.");
exit;
end;
XApp.WorkBooks.Add(-4167); //open a new blank workbook
XApp.WorkBooks[1].WorkSheets[1].Name:="Sheet1";
//give any name required to ExcelSheet
sheet:=XApp.WorkBooks[1].WorkSheets["Sheet1"];
for fildName:=0 to TheDataset.FieldCount-1 do
//TheDataset refer to the any dataset holding data
begin
q:=fildName+1;
sheet.Cells[1,q]:=TheDataset.Fields[fildName].FieldName; // enter the column headings
end;
//now supply the data from table to excel sheet
TheDataset.First;
for r:=0 to TheDataset.RecordCount-1 do
begin
for c:=0 to TheDataset.FieldCount-1 do
begin
row:=r+2;
col:=c+1;
sheet.Cells[row,col]:=TheDataset.Fields[c].AsString;
end;
TheDataset.Next;
end;
//set font attributes of required range if required
XApp.WorkSheets["Sheet1"].Range["A1:AA1"].Font.Bold:=True;
XApp.WorkSheets["Sheet1"].Range["A1:AA1"].Font.Color := clblue;
XApp.WorkSheets["Sheet1"].Range["A1:AA1"].Font.Color := clblue;
XApp.WorkSheets["Sheet1"].Range["A1:K1"].Borders.LineStyle :=13;
// set other attributes as below
XApp.WorkSheets["Sheet1"].Range["A1:K11"].HorizontalAlignment := 3;
// .Borders.LineStyle :=13;
XApp.WorkSheets["Sheet1"].Columns[1].ColumnWidth:=10;
XApp.WorkSheets["Sheet1"].Columns[2].ColumnWidth:=10;
XApp.WorkSheets["Sheet1"].Columns[3].ColumnWidth:=15;
XApp.WorkSheets["Sheet1"].Columns[4].ColumnWidth:=6;
XApp.WorkSheets["Sheet1"].Columns[5].ColumnWidth:=18;
XApp.WorkSheets["Sheet1"].Columns[6].ColumnWidth:=9;
XApp.WorkSheets["Sheet1"].Columns[7].ColumnWidth:=23;
XApp.WorkSheets["Sheet1"].Columns[8].ColumnWidth:=23;
XApp.WorkSheets["Sheet1"].Columns[9].ColumnWidth:=23;
XApp.WorkSheets["Sheet1"].Columns[10].ColumnWidth:=10;
xapp.caption := "Exported from Demo programmed by SK Arora,the digitiger";
XApp.WorkSheets["Sheet1"].name := "Exported from " + SheetExcelName;
//assuming dataset is TTable based its tablename can be given as title of worksheet
//close;
end;
به عنوان مثال
procedure TForm1.Button1Click(Sender: T);
begin
ExporttoExl(ClientDataSet1,"Sabetee");
close;
end;
برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)
یک ساعت فوق العاده
اضافه کردن زبان فارسی به ویندوز XP
یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها
بستن پنجره
پاک کردن برنامه به وسیله ی خودش
دانلود کردن سورس یک سایت
بدست آوردن آدرس جاری IE
پاک کردن آدرسهای IE
آموزش کار با IntraWeb در دلفی
مبدل ها
تصویر به bmp2icon) Icon)
تشخیص اینکه HARD DISK ما چند درایو دارد.
اینم یک برنامه ای که ICON درایوها را تغییر می دهد.
درست کردن فیلتر زرد رنگ روی ایمیج
[همه عناوین(126)][عناوین آرشیوشده]
بازدید دیروز: 4
کل بازدید :87854
در این وبلاگ سعی میکنم مطالب مربوط به برنامه نویسی دلفی ، پاسکال و گرافیک رایانه ای 2 بعدی و 3 بعدی را به روز کنم منتظر سوالات شما نیز هستم
قویترین سایت دانلود رایگان نرم افزار [18]
دانلود رایگان نرم افزار [39]
دایره المعارف فارسی رایانه [22]
اخبار فناوری 2 [29]
فروش انواع نوت بوک [32]
کتابخانه مجازی ایران [25]
مقالات آماده کامپیوتری [33]
بزرگترین سایت دانلود3 [73]
اخبار فناوری 1 [18]
خفن ترین کدهای جاوا اسکریپت [29]
قیمت انواع سخت افزار2 [34]
آخرین قیمت سخت افزار ها [23]
دانلود کتاب های فارسی [49]
علم الکترونیک و کامپیوتر [28]
[آرشیو(20)]