91性高湖久久久久,99久久99久久精品免费看蜜桃,99久久99久久精品国产片果冻

在Visual C++ 中調(diào)用Excel 2000

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

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

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

在COM接口中，時(shí)常用到Variant，BSTR，SafeArray數(shù)據(jù)類型。Variant數(shù)據(jù)類型是一個(gè)聯(lián)合，可表示幾乎所有的類型的數(shù)據(jù)，具體用法見MSDN中的相關(guān)介紹，類_variant_t是對(duì)VARIANT數(shù)據(jù)類型的封裝。在Excel 2000的VB編程幫助中，如果提到某函數(shù)或?qū)傩孕枰粋€(gè)值，該值的數(shù)據(jù)類型通常是Variant，在封裝Excel 2000對(duì)象的類定義中，說明了具體需要的數(shù)據(jù)類型。BSTR是一個(gè)包括了字符串和字符串長度的數(shù)據(jù)結(jié)構(gòu)，類_bstr_t是對(duì)BSTR數(shù)據(jù)類型的封裝。在Excel 2000的VB編程幫助中提到的字符串通常指BSTR。具體函數(shù)參數(shù)或?qū)傩缘臄?shù)據(jù)類型，見封裝該對(duì)象的類的定義。SafeArray是一個(gè)包括數(shù)組和數(shù)組邊界的結(jié)構(gòu)，數(shù)組邊界外的內(nèi)容不允許訪問。在Excel 2000的VB編程幫助中提到的數(shù)組是指SafeArray。關(guān)于SafeArray的處理，請(qǐng)見MSDN的相關(guān)幫助。

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

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

對(duì)對(duì)象的引用或傳遞對(duì)象，使用IDispatch類對(duì)象，有時(shí)利用Variant對(duì)IDispatch進(jìn)行包裝。

以下是一段源程序，演示如何啟動(dòng)Excel 2000，利用一個(gè)模板文件產(chǎn)生一個(gè)新文檔，在該文檔的”Sheet1”工作表的第一個(gè)單元中填寫一段文字，設(shè)置第一列的列寬，然后調(diào)用一個(gè)模板中的宏，執(zhí)行一段程序，最后打印預(yù)覽該Excel文檔。模板文件名稱：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，Windows 2000 Professional sp-1下調(diào)試通過。

首先利用Visual C++ 6.0，建立一個(gè)MFC基于對(duì)話框的工程項(xiàng)目，共享DLL，Win32平臺(tái)。工程名稱ExcelTest。在主對(duì)話框中加入一個(gè)按鈕，

ID IDC_EXCELTEST

Caption Test Excel

雙擊該按鈕，增加成員函數(shù)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\是本機(jī)上Microsoft Office 2000的安裝目錄，可根據(jù)個(gè)人機(jī)器上的實(shí)際安裝目錄修改)。選擇_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() 函數(shù)中增加如下代碼：

void CExcelTestDlg::OnExceltest()

{

_Application ExcelApp;

Workbooks wbsMyBooks;

_Workbook wbMyBook;

Worksheets wssMysheets;

_Worksheet wsMysheet;

Range rgMyRge;

//創(chuàng)建Excel 2000服務(wù)器(啟動(dòng)Excel)

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

{

AfxMessageBox("創(chuàng)建Excel服務(wù)失敗!");

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，此時(shí),rgMyRge是cells的集合

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

//設(shè)置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);

//設(shè)置列寬

rgMyRge.SetColumnWidth(_variant_t((long)200));

//調(diào)用模板中預(yù)先存放的宏

ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,

vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,

vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);

//打印預(yù)覽

wbMyBook.SetSaved(true);

ExcelApp.SetVisible(true);

wbMyBook.PrintPreview(_variant_t(false));

//釋放對(duì)象

rgMyRge.ReleaseDispatch();

wsMysheet.ReleaseDispatch();

wssMysheets.ReleaseDispatch();

wbMyBook.ReleaseDispatch();

wbsMyBooks.ReleaseDispatch();

ExcelApp.ReleaseDispatch();

}

添加完以上程序后，可運(yùn)行看結(jié)果。

posted on 2010-10-15 11:27 wrh 閱讀(375) 評(píng)論(0) 編輯收藏引用

只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。
【推薦】100%開源！大型工業(yè)跨平臺(tái)軟件C++源碼提供，建模，組態(tài)！



網(wǎng)站導(dǎo)航: 博客園 IT新聞 BlogJava 博問 Chat2DB 管理

wrhwww

在Visual C++ 中調(diào)用Excel 2000

導(dǎo)航

統(tǒng)計(jì)

常用鏈接

留言簿(19)

隨筆檔案

文章檔案

收藏夾

搜索

最新評(píng)論

閱讀排行榜

評(píng)論排行榜