利用Variant變量用DELPHI操作EXCEL

　分　　類：應用軟件

　　語　　種：簡體中文

　　編輯器：Delphi6

　　平　　台：Win9x,Win2k/NT

　　作品源代碼： http://file.ddvip.com/2008_11/1225675737_ddvip_3533.zip

　　軟件或演示： -

　　代碼大小： 216.3K

　　軟件大小： -

　　利用Variant變量用Delphi操作Excel，代碼摘要：

var
v:Variant;
procedure TForm1.Button1Click(Sender: TObject);
begin //打開Excel新建文件
try
v:= CreateOleObject('Excel.Application');
v.Visible := CheckBox1.Checked;//是否顯示
v.Workbooks.Add;//新建Excel文件
v.Workbooks[1].WorkSheets[1].Name := 'Delphi演示';
// Sheet:= v.Workbooks[1].WorkSheets['Delphi演示'];//等效下面的語句
Sheet:= v.Workbooks[1].WorkSheets[1];
Sheet.Cells[1,1] :='Delphi盒子';
Sheet.Cells[2,1] :='http://www.Delphibox.com';
except
Showmessage('初始化Excel失敗，可能沒裝Excel，或者其他錯誤；請重起再試。');
v.DisplayAlerts := false;//是否提示存盤
v.Quit;//如果出錯則退出
exit;
end;
Application.Restore;
Application.BringToFront;
end;