用C++Builder操縱Excel

用C++Builder操縱Excel

2000-08-16 14:06:24

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的Automation 物件及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) 　　//將資料庫中的記錄依次寫到工作薄中 { j=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對象 　　注意，要使用OLEAutomation 物件，在編譯之前還必須在Unit1.cpp檔案前面加上＃include ″ComObj.hpp″。 　　運行程式就可以實現將資料庫中的資料轉換到Excel工作薄中。同樣的道理，使用OlePropertyGet()函數，也可以將Excel工作薄中的資料讀到資料庫中去。 　　以上代碼在Windows 98作業系統、C＋＋ Builder 3.0下調試運行通過。