在Visual C++ 中調用Excel 2000

 在開發軟件時，經常要將數據輸出到Excel 2000中，在Excel 2000中對該數據進行進一步地格式化處理或進行計算處理。在Visual Basic中處理起來較簡單，Excel 2000的VB編程幫助中有較爲詳細的介紹。在Visual C++中如何進行處理了？利用Excel 2000的ActiveX Automate功能，處理起來同VB中類似。但要注意以下幾點：

對於對象的屬性值的讀取或賦值，需要用GetProperty()或SetProperty(NewValue)函數，不能象VB中直接通過屬性名稱取值或賦值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”)。

對集合對象中的成員對象的引用，必須使用集合對象的GetItem()函數。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一個工作表。

在COM接口中，時常用到Variant，BSTR，SafeArray數據類型。Variant數據類型是一個聯合，可表示幾乎所有的類型的數據，具體用法見MSDN中的相關介紹，類_variant_t是對VARIANT數據類型的封裝。在Excel 2000的VB編程幫助中，如果提到某函數或屬性需要一個值，該值的數據類型通常是Variant，在封裝Excel 2000對象的類定義中，說明了具體需要的數據類型。BSTR是一個包括了字符串和字符串長度的數據結構，類_bstr_t是對BSTR數據類型的封裝。在Excel 2000的VB編程幫助中提到的字符串通常指BSTR。具體函數參數或屬性的數據類型，見封裝該對象的類的定義。SafeArray是一個包括數組和數組邊界的結構，數組邊界外的內容不允許訪問。在Excel 2000的VB編程幫助中提到的數組是指SafeArray。關於SafeArray的處理，請見MSDN的相關幫助。

對於缺省參數和缺省值。在VB中，函數的參數可以空缺，在VC++中不允許，必須將所有的參數填寫完全。如果你希望指定某個參數爲缺省值，根據參數數據類型的不同，可指定不同的缺省值。當參數數據類型爲字符串時，可以用長度爲0的字符串。如果參數是Variant類型，可用常量vtMissing，該常量在comdef.h中定義。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)產生一個Variant對象。

Excel對象中的集合對象有時包括的子對象是不一定的，例如：Range對象，可以表示Cell的集合，也可以表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row對象。

對對象的引用或傳遞對象，使用IDispatch類對象，有時利用Variant對IDispatch進行包裝。

以下是一段源程序，演示如何啓動Excel 2000，利用一個模板文件產生一個新文檔，在該文檔的”Sheet1”工作表的第一個單元中填寫一段文字，設置第一列的列寬，然後調用一個模板中的宏，執行一段程序，最後打印預覽該Excel文檔。模板文件名稱：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，Windows 2000 Professional sp-1下調試通過。

首先利用Visual C++ 6.0，建立一個MFC基於對話框的工程項目，共享DLL，Win32平臺。工程名稱ExcelTest。在主對話框中加入一個按鈕，

ID IDC_EXCELTEST

Caption Test Excel

雙擊該按鈕，增加成員函數void CExcelTestDlg::OnExceltest()。

在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代碼：

if (CoInitialize(NULL)!=0)

{

AfxMessageBox("初始化COM支持庫失敗!");

exit(1);

}

在return FALSE; 語句前，加入：

CoUninitialize();

選擇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的安裝目錄，可根據個人機器上的實際安裝目錄修改)。選擇_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新類，分別爲_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，頭文件Excel9.h，源文件Excel9.cpp。

在ExcelTestDlg.cpp文件的頭部，#include "ExcelTestDlg.h"語句之下，增加 ：

#include "comdef.h"

#include "Excel9.h"

在void CExcelTestDlg::OnExceltest() 函數中增加如下代碼：

void CExcelTestDlg::OnExceltest()

{

_Application ExcelApp;

Workbooks wbsMyBooks;

_Workbook wbMyBook;

Worksheets wssMysheets;

_Worksheet wsMysheet;

Range rgMyRge;

//創建Excel 2000服務器(啓動Excel)

if (!ExcelApp.CreateDispatch("Excel.Application",NULL))

{

AfxMessageBox("創建Excel服務失敗!");

exit(1);

}

//利用模板文件建立新文檔

wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);

wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\\exceltest\\MyTemplate.xlt")));

//得到Worksheets

wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);

//得到sheet1

wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);

//得到全部Cells，此時,rgMyRge是cells的集合

rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);

//設置1行1列的單元的值

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);

//打印預覽

wbMyBook.SetSaved(true);

ExcelApp.SetVisible(true);

wbMyBook.PrintPreview(_variant_t(false));

//釋放對象

rgMyRge.ReleaseDispatch();

wsMysheet.ReleaseDispatch();

wssMysheets.ReleaseDispatch();

wbMyBook.ReleaseDispatch();

wbsMyBooks.ReleaseDispatch();

ExcelApp.ReleaseDispatch();

}

添加完以上程序後，可運行看結果。