• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

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

            在開(kāi)發(fā)軟件時(shí),經(jīng)常要將數(shù)據(jù)輸出到Excel 2000中,在Excel 2000中對(duì)該數(shù)據(jù)進(jìn)行進(jìn)一步地格式化處理或進(jìn)行計(jì)算處理。在Visual Basic中處理起來(lái)較簡(jiǎn)單,Excel 2000的VB編程幫助中有較為詳細(xì)的介紹。在Visual C++中如何進(jìn)行處理了?利用Excel 2000的ActiveX Automate功能,處理起來(lái)同VB中類(lèi)似。但要注意以下幾點(diǎn):
            對(duì)于對(duì)象的屬性值的讀取或賦值,需要用GetProperty()或SetProperty(NewValue)函數(shù),不能象VB中直接通過(guò)屬性名稱(chēng)取值或賦值。例如: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ù)類(lèi)型。Variant數(shù)據(jù)類(lèi)型是一個(gè)聯(lián)合,可表示幾乎所有的類(lèi)型的數(shù)據(jù),具體用法見(jiàn)MSDN中的相關(guān)介紹,類(lèi)_variant_t是對(duì)VARIANT數(shù)據(jù)類(lèi)型的封裝。在Excel 2000的VB編程幫助中,如果提到某函數(shù)或?qū)傩孕枰粋€(gè)值,該值的數(shù)據(jù)類(lèi)型通常是Variant,在封裝Excel 2000對(duì)象的類(lèi)定義中,說(shuō)明了具體需要的數(shù)據(jù)類(lèi)型。BSTR是一個(gè)包括了字符串和字符串長(zhǎng)度的數(shù)據(jù)結(jié)構(gòu),類(lèi)_bstr_t是對(duì)BSTR數(shù)據(jù)類(lèi)型的封裝。在Excel 2000的VB編程幫助中提到的字符串通常指BSTR。具體函數(shù)參數(shù)或?qū)傩缘臄?shù)據(jù)類(lèi)型,見(jiàn)封裝該對(duì)象的類(lèi)的定義。SafeArray是一個(gè)包括數(shù)組和數(shù)組邊界的結(jié)構(gòu),數(shù)組邊界外的內(nèi)容不允許訪問(wèn)。在Excel 2000的VB編程幫助中提到的數(shù)組是指SafeArray。關(guān)于SafeArray的處理,請(qǐng)見(jiàn)MSDN的相關(guān)幫助。
            對(duì)于缺省參數(shù)和缺省值。在VB中,函數(shù)的參數(shù)可以空缺,在VC++中不允許,必須將所有的參數(shù)填寫(xiě)完全。如果你希望指定某個(gè)參數(shù)為缺省值,根據(jù)參數(shù)數(shù)據(jù)類(lèi)型的不同,可指定不同的缺省值。當(dāng)參數(shù)數(shù)據(jù)類(lèi)型為字符串時(shí),可以用長(zhǎng)度為0的字符串。如果參數(shù)是Variant類(lèi)型,可用常量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類(lèi)對(duì)象,有時(shí)利用Variant對(duì)IDispatch進(jìn)行包裝。
            以下是一段源程序,演示如何啟動(dòng)Excel 2000,利用一個(gè)模板文件產(chǎn)生一個(gè)新文檔,在該文檔的”Sheet1”工作表的第一個(gè)單元中填寫(xiě)一段文字,設(shè)置第一列的列寬,然后調(diào)用一個(gè)模板中的宏,執(zhí)行一段程序,最后打印預(yù)覽該Excel文檔。模板文件名稱(chēng):MyTemplate.xlt。程序在Visual C++ 6.0 sp4,Windows 2000 Professional sp-1下調(diào)試通過(guò)。
            首先利用Visual C++ 6.0,建立一個(gè)MFC基于對(duì)話框的工程項(xiàng)目,共享DLL,Win32平臺(tái)。工程名稱(chēng)ExcelTest。在主對(duì)話框中加入一個(gè)按鈕,
            ID IDC_EXCELTEST
            Caption Test Excel
            雙擊該按鈕,增加成員函數(shù)void CExcelTestDlg::OnExceltest()。
            在BOOL CExcelTestApp::InitInstance()中,dlg.DoModal();之前增加代碼:
            if (CoInitialize(NULL)!=0)
            {
            AfxMessageBox("初始化COM支持庫(kù)失敗!");
            exit(1);
            }
            在return FALSE; 語(yǔ)句前,加入:
            CoUninitialize();
            選擇Menu->View->ClassWizade,打開(kāi)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,加入新類(lèi),分別為_(kāi)Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range,頭文件Excel9.h,源文件Excel9.cpp。
            在ExcelTestDlg.cpp文件的頭部,#include "ExcelTestDlg.h"語(yǔ)句之下,增加 :
            #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,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 閱讀(385) 評(píng)論(0)  編輯 收藏 引用


            只有注冊(cè)用戶(hù)登錄后才能發(fā)表評(píng)論。
            網(wǎng)站導(dǎo)航: 博客園   IT新聞   BlogJava   博問(wèn)   Chat2DB   管理


            導(dǎo)航

            <2012年6月>
            272829303112
            3456789
            10111213141516
            17181920212223
            24252627282930
            1234567

            統(tǒng)計(jì)

            常用鏈接

            留言簿(19)

            隨筆檔案

            文章檔案

            收藏夾

            搜索

            最新評(píng)論

            閱讀排行榜

            評(píng)論排行榜

            日日躁夜夜躁狠狠久久AV| 久久久久久国产a免费观看不卡| 欧美午夜精品久久久久免费视| 91精品国产高清91久久久久久| 久久久久久毛片免费看| 国产成年无码久久久久毛片| 久久久久人妻一区精品果冻| 久久不见久久见免费视频7| 久久国产成人午夜AV影院| 亚洲中文字幕久久精品无码APP| 久久精品九九亚洲精品天堂| 久久久www免费人成精品| 精品免费久久久久国产一区| 久久久婷婷五月亚洲97号色| 久久精品国产2020| 日韩亚洲国产综合久久久| 色综合久久最新中文字幕| 日日噜噜夜夜狠狠久久丁香五月 | 日韩精品久久无码人妻中文字幕| 久久国产精品二国产精品| 国产精品久久99| 久久精品国产亚洲AV电影| 国产69精品久久久久9999APGF| 久久综合久久综合亚洲| 久久丝袜精品中文字幕| 国产精品成人无码久久久久久| 久久精品国产只有精品2020| 久久精品www| 丁香久久婷婷国产午夜视频| 久久精品视频网| 成人精品一区二区久久| 久久本道综合久久伊人| 麻豆国内精品久久久久久| 欧美午夜A∨大片久久 | 亚洲人成无码久久电影网站| 久久成人精品| 伊人久久大香线蕉综合5g| 97久久婷婷五月综合色d啪蜜芽 | 99精品国产99久久久久久97| 久久综合综合久久综合| 久久福利青草精品资源站|