在開發(fā)軟件時，經(jīng)常要將數(shù)據(jù)輸出到Excel 2000中，在Excel 2000中對該數(shù)據(jù)進行進一步地格式化處理或進行計算處理。在Visual Basic中處理起來較簡單，Excel 2000的VB編程幫助中有較為詳細的介紹。在Visual C++中如何進行處理了？利用Excel 2000的ActiveX Automate功能，處理起來同VB中類似。但要注意以下幾點：
| 對于對象的屬性值的讀取或賦值，需要用GetProperty()或SetProperty(NewValue)函數(shù)，不能象VB中直接通過屬性名稱取值或賦值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”)。 |
| 對集合對象中的成員對象的引用，必須使用集合對象的GetItem()函數(shù)。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一個工作表。 |
| 在COM接口中，時常用到Variant，BSTR，SafeArray數(shù)據(jù)類型。Variant數(shù)據(jù)類型是一個聯(lián)合，可表示幾乎所有的類型的數(shù)據(jù)，具體用法見MSDN中的相關(guān)介紹，類_variant_t是對VARIANT數(shù)據(jù)類型的封裝。在Excel 2000的VB編程幫助中，如果提到某函數(shù)或?qū)傩孕枰粋€值，該值的數(shù)據(jù)類型通常是Variant，在封裝Excel 2000對象的類定義中，說明了具體需要的數(shù)據(jù)類型。BSTR是一個包括了字符串和字符串長度的數(shù)據(jù)結(jié)構(gòu)，類_bstr_t是對BSTR數(shù)據(jù)類型的封裝。在Excel 2000的VB編程幫助中提到的字符串通常指BSTR。具體函數(shù)參數(shù)或?qū)傩缘臄?shù)據(jù)類型，見封裝該對象的類的定義。SafeArray是一個包括數(shù)組和數(shù)組邊界的結(jié)構(gòu)，數(shù)組邊界外的內(nèi)容不允許訪問。在Excel 2000的VB編程幫助中提到的數(shù)組是指SafeArray。關(guān)于SafeArray的處理，請見MSDN的相關(guān)幫助。 |
| 對于缺省參數(shù)和缺省值。在VB中，函數(shù)的參數(shù)可以空缺，在VC++中不允許，必須將所有的參數(shù)填寫完全。如果你希望指定某個參數(shù)為缺省值，根據(jù)參數(shù)數(shù)據(jù)類型的不同，可指定不同的缺省值。當(dāng)參數(shù)數(shù)據(jù)類型為字符串時，可以用長度為0的字符串。如果參數(shù)是Variant類型，可用常量vtMissing，該常量在comdef.h中定義。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)產(chǎn)生一個Variant對象。 |
| Excel對象中的集合對象有時包括的子對象是不一定的，例如：Range對象，可以表示Cell的集合，也可以表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row對象。 |
| 對對象的引用或傳遞對象，使用IDispatch類對象，有時利用Variant對IDispatch進行包裝。 |
| 以下是一段源程序，演示如何啟動Excel 2000，利用一個模板文件產(chǎn)生一個新文檔，在該文檔的”Sheet1”工作表的第一個單元中填寫一段文字，設(shè)置第一列的列寬，然后調(diào)用一個模板中的宏，執(zhí)行一段程序，最后打印預(yù)覽該Excel文檔。模板文件名稱：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，Windows 2000 Professional sp-1下調(diào)試通過。 |
| 首先利用Visual C++ 6.0，建立一個MFC基于對話框的工程項目，共享DLL，Win32平臺。工程名稱ExcelTest。在主對話框中加入一個按鈕， |
| 雙擊該按鈕，增加成員函數(shù)void CExcelTestDlg::OnExceltest()。 |
| 在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代碼： |
| if (CoInitialize(NULL)!=0) |
| AfxMessageBox("初始化COM支持庫失敗!"); |
| 選擇Menu->View->ClassWizade，打開ClassWizade窗口，選擇Add Class->From a type library，選擇D:\Program Files\Microsoft Office\office\Excel9.OLB(D:\Program Files\Microsoft Office\是本機上Microsoft Office 2000的安裝目錄，可根據(jù)個人機器上的實際安裝目錄修改)。選擇_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新類，分別為_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，頭文件Excel9.h，源文件Excel9.cpp。 |
| 在ExcelTestDlg.cpp文件的頭部，#include "ExcelTestDlg.h"語句之下，增加 ： |
| 在void CExcelTestDlg::OnExceltest() 函數(shù)中增加如下代碼： |
| void CExcelTestDlg::OnExceltest() |
| //創(chuàng)建Excel 2000服務(wù)器(啟動Excel) |
| if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) |
| AfxMessageBox("創(chuàng)建Excel服務(wù)失敗!"); |
| wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); |
| wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\\exceltest\\MyTemplate.xlt"))); |
| wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); |
| wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true); |
| //得到全部Cells，此時,rgMyRge是cells的集合 |
| rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); |
| rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!")); |
| rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true); |
| rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true); |
| rgMyRge.SetColumnWidth(_variant_t((long)200)); |
| ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing, |
| vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, |
| vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, |
| vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, |
| vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing); |
| ExcelApp.SetVisible(true); |
| wbMyBook.PrintPreview(_variant_t(false)); |
| rgMyRge.ReleaseDispatch(); |
| wsMysheet.ReleaseDispatch(); |
| wssMysheets.ReleaseDispatch(); |
| wbMyBook.ReleaseDispatch(); |
| wbsMyBooks.ReleaseDispatch(); |
| ExcelApp.ReleaseDispatch(); |