這個可是我自己的代碼.今天做的時候順便記下.雖然這些都是很初級的東西.最近懶的很,除了工作,也不愿意動腦筋學習.(反面人物,大家別攻擊我啊~~).
下面的是一個菜單事件,雖然可以寫成一個函數,但是,我懶得整理.相信看的人也應該都會的啊...是吧?
procedure TForm1.SaveToEx1Click(Sender: TObject);
var
ExcelApp,xlSheet : Variant;
i,j: integer;
FileNM : string;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
xlsheet := CreateOleObject('Excel.Sheet');
Except
ShowMessage('請檢查您的機器有沒有安裝Excel!');
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
try
xlSheet := ExcelApp.WorkBooks.Add;
for i := 1 to StringGrid1.ColCount do
begin
for j := 1 to StringGrid1.RowCount do
xlSheet.WorkSheets[1].Cells[j, i] := StringGrid1.Cells[i - 1,j - 1];
end;
if SaveDialog1.Execute then
FileNM := SaveDialog1.FileName;
xlSheet.SaveAs(FileNm);
ShowMessage('導出數據完成!');
finally
xlSheet.Close;
ExcelApp.Quit;
ExcelApp := UnAssigned;
end;
end;
http://hi.baidu.com/yueyun889/blog/item/0dd9848fc8dfcaf8503d9275.html
