C++編程語言應用范圍廣泛,可以幫助我們輕松的實現各種功能需求。比如今天為大家接受的對Excel表的操作。那麼接下來我們就一起來看看C++ Builder操作Excel表的相關實現方法。希望能夠為大家帶來一些幫助。
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[i]-〉FieldName);- }
- while(!Table1-〉Eof)
- //將數據庫中的記錄依次寫到工作薄中
- {
- jj=j+1;
- for(i=0;i〈Table1-〉FieldCount;i++)
- {
- (ex.OleFunction(″Cells″)).OlePropertySet
(″Item″,(Variant)j,(Variant)(i+1),- (Variant)Table1-〉Fields[i]-〉AsString);
- }
- Table1-〉Next();
- }
- newxls.OleFunction(″SaveAs″,(Variant)filename);
- //保存工作薄,filename是工作薄的全文件名
- ex.OleFunction(″Quit″);
- //退出Excel,釋放OLE對象
注意,要使用OLE自動化對象,在編譯之前還必須在Unit1.cpp文件前面加上#include ″ComObj.hpp″。
運行程序就可以實現將數據庫中的數據轉換到Excel工作薄中。同樣的道理,使用OlePropertyGet()函數,也可以將Excel工作薄中的數據讀到數據庫中去。
以上C++ Builder操作Excel表代碼在Windows 98操作系統、C++ Builder 3.0下調試運行通過。