C++編程語(yǔ)言應(yīng)用范圍廣泛，可以幫助我們輕松的實(shí)現(xiàn)各種功能需求。比如今天為大家接受的對(duì)Excel表的操作。那么接下來(lái)我們就一起來(lái)看看C++ Builder操作Excel表的相關(guān)實(shí)現(xiàn)方法。希望能夠?yàn)榇蠹規(guī)?lái)一些幫助。#t#

Microsoft Excel作為一個(gè)功能強(qiáng)大的電子表格處理軟件，已經(jīng)得到了廣泛的應(yīng)用。在數(shù)據(jù)庫(kù)應(yīng)用軟件開(kāi)發(fā)過(guò)程中，如果能實(shí)現(xiàn)數(shù)據(jù)庫(kù)與Excel文件的數(shù)據(jù)交換，那么一方面能增加數(shù)據(jù)庫(kù)數(shù)據(jù)的來(lái)源，另一方面也能方便用戶對(duì)數(shù)據(jù)庫(kù)數(shù)據(jù)的進(jìn)一步處理。

C++ Builder是一個(gè)可視化快速應(yīng)用程序開(kāi)發(fā)工具，它提供的OLE Automation機(jī)制使得開(kāi)發(fā)人員在應(yīng)用程序中就能調(diào)用Excel，實(shí)現(xiàn)數(shù)據(jù)交換。

在C++ Builder中調(diào)用Excel，首先要為Excel建立一個(gè)OLE對(duì)象，然后通過(guò)設(shè)定該對(duì)象的屬性和調(diào)用該對(duì)象的方法來(lái)操縱Excel。C++ Builder通過(guò)CreateOleObject()來(lái)建立OLE對(duì)象；用OlePropertySet(propname，value)來(lái)設(shè)置OLE對(duì)象的屬性；用OlePropertyGet(propname)獲得OLE對(duì)象的屬性；通過(guò)OleFunction(oleFuncName，[val,...])和OleProcedure(oleProcName,[val,...])來(lái)調(diào)用OLE對(duì)象的方法。

C++ Builder中使用OLE自動(dòng)化操縱Excel，必須掌握Excel的自動(dòng)化對(duì)象及VBA關(guān)于Excel的對(duì)象方法和屬性，這些都在Microsoft Office(完全安裝)的VBAXL8.HLP幫助文件中可以找到，在此就不再贅述。下面以將數(shù)據(jù)庫(kù)中的數(shù)據(jù)轉(zhuǎn)到Excel工作薄中為例，說(shuō)明C++ Builder操作Excel表的具體方法。

首先新建一個(gè)表單Form1，保存單元文件Unit1.cpp，保存工程文件Project1.bpr。然后在表單中加入數(shù)據(jù)訪問(wèn)控件TTable，將Name屬性設(shè)為T(mén)able1，DatabaseName屬性設(shè)為BCDEMOS，TableName屬性設(shè)為Country.db。在表單中加入一個(gè)按鈕控件TButton，將其Name屬性設(shè)為Button1，Caption屬性設(shè)為 “轉(zhuǎn)換為Excel文件”。雙擊Button1，在Button1Click()函數(shù)中加入如下代碼：

Variant ex,newxls;   
int i,j=1;   
try   
{   
ex=CreateOleObject(″Excel.Application″); //啟動(dòng)Excel   
}   
catch(...)   
{   
ShowMessage(″無(wú)法啟動(dòng)Excel″);   
}   
ex.OlePropertySet(″Visible″,(Variant)true); //使Excel啟動(dòng)后可見(jiàn)   
newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);
//新建一個(gè)工作薄   
Table1－〉Active=true;   
//打開(kāi)數(shù)據(jù)庫(kù)   
Table1－〉First();   
for(i=0;i〈Table1－〉FieldCount;i＋＋)   
//將字段名寫(xiě)到工作薄的***行   
{   
(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,
(Variant)(i＋1),(Variant)Table1－〉Fields[i]－〉FieldName);   
}   
while(!Table1－〉Eof)   
//將數(shù)據(jù)庫(kù)中的記錄依次寫(xiě)到工作薄中   
{   
jj=j＋1;   
for(i=0;i〈Table1－〉FieldCount;i＋＋)   
{   
(ex.OleFunction(″Cells″)).OlePropertySet
(″Item″,(Variant)j,(Variant)(i＋1),   
(Variant)Table1－〉Fields[i]－〉A(chǔ)sString);   
}   
Table1－〉Next();   
}   
newxls.OleFunction(″SaveAs″,(Variant)filename);   
//保存工作薄，filename是工作薄的全文件名   
ex.OleFunction(″Quit″);   
//退出Excel，釋放OLE對(duì)象  

注意，要使用OLE自動(dòng)化對(duì)象，在編譯之前還必須在Unit1.cpp文件前面加上＃include ″ComObj.hpp″。

運(yùn)行程序就可以實(shí)現(xiàn)將數(shù)據(jù)庫(kù)中的數(shù)據(jù)轉(zhuǎn)換到Excel工作薄中。同樣的道理，使用OlePropertyGet()函數(shù)，也可以將Excel工作薄中的數(shù)據(jù)讀到數(shù)據(jù)庫(kù)中去。

以上C++ Builder操作Excel表代碼在Windows 98操作系統(tǒng)、C++ Builder 3.0下調(diào)試運(yùn)行通過(guò)。