趙天平

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

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

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

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

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

　　 Variant ex,newxls;

　　 int i,j=1;

try

{

ex=CreateOleObject(″Excel.Application″); //啟動Excel

}

catch(...)

{

ShowMessage(″無法啟動Excel″);

}

　　 ex.OlePropertySet(″Visible″,(Variant)true); //使Excel啟動后可見

newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);//新建一個工作薄

Table1－〉A(chǔ)ctive=true;　　

　　//打開數(shù)據(jù)庫

Table1－〉First();

for(i=0;i〈Table1－〉FieldCount;i＋＋)

　　//將字段名寫到工作薄的第一行

{

(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,(Variant)(i＋1),(Variant)Table1－〉Fields－〉FieldName);

}

while(!Table1－〉Eof)

　　//將數(shù)據(jù)庫中的記錄依次寫到工作薄中

{

j=j＋1;

for(i=0;i〈Table1－〉FieldCount;i＋＋)

{

　　(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)j,(Variant)(i＋1),

　　(Variant)Table1－〉Fields－〉A(chǔ)sString);

}

Table1－〉Next();

}

newxls.OleFunction(″SaveAs″,(Variant)filename);

　　//保存工作薄，filename是工作薄的全文件名

ex.OleFunction(″Quit″);

　　//退出Excel，釋放OLE對象

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

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

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