趙天平

　　Microsoft Excel作為一個功能強大的電子表格處理軟件，已經得到了廣泛的應用。在數據庫應用軟件開發過程中，如果能實現數據庫與Excel文件的數據交換，那么一方面能增加數據庫數據的來源，另一方面也能方便用戶對數據庫數據的進一步處理。

　　C＋＋ Builder是一個可視化快速應用程序開發工具，它提供的OLE Automation機制使得開發人員在應用程序中就能調用Excel，實現數據交換。

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

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

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

　　 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－〉Active=true;　　

　　//打開數據庫

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)

　　//將數據庫中的記錄依次寫到工作薄中

{

j=j＋1;

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

{

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

　　(Variant)Table1－〉Fields－〉AsString);

}

Table1－〉Next();

}

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

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

ex.OleFunction(″Quit″);

　　//退出Excel，釋放OLE對象

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

　　運行程序就可以實現將數據庫中的數據轉換到Excel工作薄中。同樣的道理，使用OlePropertyGet()函數，也可以將Excel工作薄中的數據讀到數據庫中去。

　　以上代碼在Windows 98操作系統、C＋＋ Builder 3.0下調試運行通過。