DATASET轉存EXCEL
[code delphi]
USES COMOBJ;
procedure DataSetToXLS(ds:TDataSet;fname:String);
var MyExcel: Variant;
x,y:integer;
begin
MyExcel := CreateOleOBject('Excel.Application');
MyExcel.WorkBooks.Add;

y:=1;
//標題列
for x:=1 to ds.FieldCount do
begin
MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x] := ds.Fields[x-1].DisplayName;
// 將該欄設為標選
MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x].Select;
// 將標題欄位變粗體字
MyExcel.Selection.Font.Bold := true;
// 設定欄位寬度
//MyExcel.WorkBooks[1].WorkSheets[1].Columns[x].ColumnWidth := ds.Fields[x-1].DisplayWidth;

//每一欄轉成文字型態
MyExcel.Columns[x].Select;
MyExcel.Selection.NumberFormatLocal:='@';
end;

inc(y);
while not ds.eof do
begin
for x:=1 to ds.FieldCount do
begin //將資料塞進每一欄
MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x] := ds.Fields[x-1].AsString;
end;
inc(y);
ds.next;
end;
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,1].Select;
MyExcel.Columns.AutoFit;
MyExcel.WorkBooks[1].Saveas(fname);
MyExcel.WorkBooks[1].Close(fname); //關閉
end;
[/code]

------
What do we live for if not to make life less difficult for each other?