?? 如何在delphi中操作excel.html
字號:
<html>
<head>
<title>如何在Delphi中操作Excel2001年02月16日 14:55</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
p { font-size: 12px; line-height: 22px}
-->
</style>
<style type="text/css">
<!--
.Name01 { font-size: 12px; line-height: 20px; color: #FF3300}
.Time01 { font-size: 9px; color: #666666}
-->
</style>
<style type="text/css">
<!--
.Name02 { font-size: 12px; color: #009999; line-height: 18px}
.Time02 { font-size: 9px; color: #666666; line-height: 9px}
.index01 { font-size: 12px; line-height: 20px; color: #FFFFFF}
.content { font-size: 12px; line-height: 24px}
.name00 { font-size: 24pt; color: #666666}
-->
</style>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="" background="back.gif">
<p>
<span class="name00">
<font color="#FF3300">如何在Delphi中操作Excel</font><br></span>
<span class="Name01">
<font color="#666666">（作者：穆永 2001年02月16日 14:55）</font></span><br><br>
<span class="content"> 在數(shù)據(jù)庫應(yīng)用軟件的開發(fā)過程中，經(jīng)常需要把數(shù)據(jù)轉(zhuǎn)換成Excel文件,讓用戶作進(jìn)一步的數(shù)據(jù)處理。而Delphi是開發(fā)數(shù)據(jù)庫應(yīng)用系統(tǒng)的常用工具，那么，如何在Delphi中操作Excel呢?
<BR><BR> 我們知道,在Microsoft Office軟件中有一種內(nèi)嵌的編程語言VBA,它是一種宏語言，利用它,你可以編寫出功能強(qiáng)大的代碼,如打開文件、修改數(shù)據(jù)、保存數(shù)據(jù)和設(shè)置字體等。另一方面,Microsoft Office軟件中的宏能以VBA代碼的形式記錄下你的操作過程。因此借助宏操作,可以很輕松地實(shí)現(xiàn)某一功能,并把這些代碼稍作修改嵌入到你的軟件中。但是VBA也存在一個缺點(diǎn),它必須有Microsoft Office作平臺,在哪里編寫,必須在哪里執(zhí)行。例如在Excel下編寫的一段VBA代碼,則它只有在Excel下才能運(yùn)行。因此,筆者的方法就是把VBA代碼嵌入到Delphi中,從而實(shí)現(xiàn)用Delphi操作Excel。
<BR><BR> 下面,我們以Delphi程序?yàn)槔?說明這種調(diào)用方法：
<BR><BR> Unit excel;
<BR><BR> interface
<BR><BR> uses
<BR><BR> Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;
<BR><BR> //ComObj是操作OLE對象的函數(shù)集
<BR><BR> type TForm1 =class(TForm)
<BR><BR> Button1: TButton;
<BR><BR> procedure Button1Click(Sender: TObject);
<BR><BR> private
<BR><BR> { Private declarations }
<BR><BR> public
<BR><BR> { Public declarations }
<BR><BR> end;
<BR><BR> var
<BR><BR> Form1: TForm1;
<BR><BR> implementation
<BR><BR> {$R *.DFM}
<BR><BR> procedure TForm1.Button1Click(Sender: TObject);
<BR><BR> var
<BR><BR> eclApp,WorkBook:Variant;
<BR><BR> //聲明為OLE Automation 對象
<BR><BR> xlsFileName:string;begin
<BR><BR> xlsFileName:='ex.xls';
<BR><BR> try
<BR><BR> //創(chuàng)建OLE對象Excel Application與 WorkBook
<BR><BR> eclApp:=CreateOleObject('Excel.Application');
<BR><BR> WorkBook:=CreateOleobject('Excel.Sheet');
<BR><BR> except
<BR><BR> ShowMessage('您的機(jī)器里未安裝Microsoft Excel。');
<BR><BR> Exit;
<BR><BR> end;
<BR><BR> try
<BR><BR> ShowMessage('下面演示:新建一個XLS文件,并寫入數(shù)據(jù),最后關(guān)閉它。');
<BR><BR> workBook:=eclApp.workBooks.Add;
<BR><BR> eclApp.Cells(1 , 1):='字符型';
<BR><BR> eclApp.Cells(2 , 1):='Excel文件';
<BR><BR> eclApp.Cells(1 , 2):='Money型';
<BR><BR> eclApp.Cells(2 , 2):=10.01;
<BR><BR> eclApp.Cells(1 , 3):='日期型';eclApp.Cells(2 , 3):=Date;
<BR><BR> WorkBook.saveas(xlsFileName);
<BR><BR> WorkBook.close;
<BR><BR> ShowMessage('下面演示:打開剛創(chuàng)建的XLS文件,并修改其中的內(nèi)容,然后,由用戶決定是否保存。');
<BR><BR> WorkBook:=eclApp.workBooks.Open(xlsFileName);
<BR><BR> eclApp.Cells(2 , 1):='Excel文件類型';
<BR><BR> if MessageDlg(xlsFileName+'文件已被修改,是否保存?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
<BR><BR> WorkBook.save
<BR><BR> else
<BR><BR> workBook.Saved := True; //放棄修改
<BR><BR> WorkBook.Close;
<BR><BR> eclApp.Quit;
<BR><BR> //退出Excel Application
<BR><BR> //釋放VARIANT變量
<BR><BR> eclApp:=Unassigned;
<BR><BR> except
<BR><BR> ShowMessage('不能正確操作Excel文件。可能是該文件已被其他程序打開,或系統(tǒng)錯誤。');
<BR><BR> WorkBook.close;
<BR><BR> eclApp.Quit;
<BR><BR> //釋放VARIANT變量
<BR><BR> eclApp:=Unassigned;
<BR><BR> end;
<BR><BR> end;
<BR><BR> end.
<BR><BR> 經(jīng)過上述操作過程后,我們就可以很放心地將數(shù)據(jù)庫中的數(shù)據(jù)轉(zhuǎn)換成Excel文件了。<BR><BR></span> <br>
<!-------------文章內(nèi)容主體部分結(jié)束----->
</p>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -