vc++使用MFC操作EXCEL文件-創(chuàng)建+編輯+保存

1、vc+使用MFC操作EXCEL文件-創(chuàng)建+編輯+保存使用MFC操作EXCEL文件 本文檔適用于: Microsoft Foundation Classes (MFC), Microsoft Visual C+, 32-bit Editions, version 6.0 以上 Microsoft OLE 庫(kù)第一步：建立一個(gè)自動(dòng)化工程1 .啟動(dòng)VC6.0,打開(kāi)新建對(duì)話(huà)框，新建一個(gè)MFC AppWizard(exe)工程，這里工程明設(shè)置為 TestExceL2進(jìn)入MFC應(yīng)用程序向?qū)?選擇基本對(duì)話(huà)框，直接點(diǎn)擊完成，工程文件結(jié)構(gòu)如下圖:唱|X作區(qū)TestExcel： 1工程0 TestExcel fil

2、es目曰 Source Files:國(guó) StdAfx.cpp. TestExcel.cpp:3) TestExcel.rc國(guó) TestExcelDIg.cpp 臼曰 Header Files:囿 Resource.hW StdAfx.hW TestExcel.h:H TestExcelDIg.hi-J 也 Resource Files: 圖 TestExcel.icoi TestExcel.rc2= ReadMe.txt-yTestExcel resources :白白Dialog國(guó) IDD_ABOUTBOX匚 國(guó) IDD_TESTEXCELJ4S Icon IDR_MAINFRAME白 白

3、String Table；函字串表日白 Version(l VS VERSIONJNFC海-ipiTestExcel classes-短 CAboutDIg CAboutDIgQ 鑄 DoDataExchange(-j - CTestExcelApp電 CTestExcelAppOg InitlnstanceQg F CTestExcelDIg令 CTestExcelDlg(CW 除 DoDataExchange( 9, OnlnitDialogO:諭 OnPaintfl為 OnQueryDraglconQ ;OnSysCommand(U際 m hlcon白 H Globals 0 theAp

4、p4 I 二:Clas通| Res.File. JClas. J 幽 Res. J 圄 FilJ建立類(lèi)向?qū)?，選擇Automation,單擊Add Class按鈕,確定后,選擇From a type library，彈出文件選擇對(duì)話(huà)框，之后定位到Microsoft Office的安裝目錄(通常為 C:Program FilesMicrosoft OfficeOffice),選擇 EXCEL9.OLB彈出Confirm Classes窗口，選擇列裝中的所有類(lèi)，單擊OK按鈕.生意文件名EXCEL9.OLB,因安裝的Office版本不同而有所差異，EXCEL9.OLB對(duì)應(yīng) 的是Microsoft O

5、ffice 2000,微軟命名方式為Excel+數(shù)字的形式，Office版本越高, 數(shù)字越大。注意，Excel003 的文件是：C:Program FilesMicrosoft OfficeOFFICEllExcel.exeMFC ClassWizardActiveX Events Class Infoessage MapsMember VariablesAutomationAdd Cass. Add Method.?l2dBIDI32.DLLjJBLNMGR.DU)BLNMGRPS.DLL國(guó) C55.DLLEXCEL9,OLBGRAPH9,OL8打開(kāi)取消確定Add Property.Dele

6、teEdit CodeData Binding. I14返回編輯器，查看工程文件，可發(fā)現(xiàn)多了 EXCEL9.H及EXCEL9.CPP兩個(gè)文件。5 .打開(kāi)stdafx,h頭文件確保包含如下頭文件:#include #include ,excel9.h,16 .打開(kāi) TestExcel.cpp 文件，修改 CTestExcelApp:InitInstance(),加入如下代碼:BOOL CTestExcelApp:InitInstance()if( !AfxOleInit()MessageBox(“無(wú)法創(chuàng)建 Excel 應(yīng)用!);return;books=app.GetWorkbooks();bo

7、ok=books. Add(covOptional);sheets=book.GetSheets();sheet=sheets.GetItem(COleVariant(short)l);range=sheet.GetRange(COleVaridnt(Al/),COleVariant(Al);range.SetValueCCOleVariantCHELLO EXCEL!n);/Excel2003 函數(shù)為 SetValue font=range.GetFont();font.SetBold(COleVariant(short)TRUE);range=sheet.GetRange(COleVari

8、ant(l,A2,l)/COleVariant(l,A211);range.SetFormula(COleVariant(=RAN D()*100000M);range.SetNumberFormatCCOleVariantCO.OO11);cols=range.GetEntireColumn();cols.AutoFit();app.SetVisible(TRUE);app.SetUserControl(TRUE);,1! x|3.按下Ctrl+F5,執(zhí)行程序。按下Buttonl,將會(huì)彈出Excel窗口:S Microsoft Excel - a.Kls國(guó)文件）編輯 視網(wǎng)耍）插入 格式電）工

9、具 數(shù)據(jù)如 窗口世）幫助百3圉昌咬手電09、匾工或外色瓶？季 8 Al21=:甌四 EXCEL!12345HELLO EXCEL!$74798.66k Sheet 1 / She et2/She et3/就緒4.到此，即完成了我們的示例程序，下面將對(duì)程序進(jìn)行詳細(xì)的說(shuō)明，如果大家有過(guò)使用Visual Basic 操作Excel程序的經(jīng)驗(yàn)，則應(yīng)該能看懂下面程序：void CTestExcelDlg:OnButton 1（）/ TODO: Add your control notification handler code here/*先創(chuàng)建一個(gè).Application類(lèi)，用Application來(lái)

10、創(chuàng)建一個(gè)Excel應(yīng)用程序接口。Excel接口類(lèi)中層次如下所示：Application-Workbooks工作簿集合Workbook工作薄-Worksheets工作表集合-_Worksheet 工作表-Range單元格區(qū)域故要操作表，必須先逐步獲取 WorkbooksWorkbook WorksheetsWorksheet Range-Application app;Workbooks books;_Workbook book;Worksheets sheets;_Worksheet sheet;Range range; /Excel中針對(duì)單元格的操作都應(yīng)先獲取其對(duì)應(yīng)的Range對(duì)象Font

11、font;Range cols;/*COleVariant類(lèi)為VARIANT數(shù)據(jù)類(lèi)型的包裝，在自動(dòng)化程序中，通常都使用 VARIANT數(shù)據(jù)類(lèi)型進(jìn)行參數(shù)傳遞。故下列程序中，函數(shù)參數(shù)都是通過(guò)COleVariant類(lèi)來(lái) 轉(zhuǎn)換了的。*/covOptional可選參數(shù)的VARIANT類(lèi)型COleVariant covOptional(long)DISP_E_PARAMNOTFOUND, VT_ERROR);if( lapp.CreateDispatchCExcel.Application11) ) this-MessageBox(無(wú)法創(chuàng)建 Excel 應(yīng)用!”);return;/獲取工作薄集合books

12、=app.GetWorkbooks();/添加一個(gè)工作薄book=books. Add(covOptional);/獲取工作表集合sheets=book.GetSheets();/獲取第一個(gè)工作表sheet=sheets.GetItem(COleVariant(short)l);/選擇工作表中A1:A1單元格區(qū)域range=sheet.GetRange(COleVariant(,Al,)/COleVariant(,Al,1);設(shè)置 A1 = HELLO EXCEL!range-SetValueCCOleVariantCHELLO EXCEL!11);/調(diào)整格式，設(shè)置粗體font=range.G

13、etFont();font.SetBold(COleVariant(short)TRUE);/選擇A2單元格，插入一個(gè)公式“=RAND()* 100000”，并設(shè)置A2數(shù)字格式為貨幣 形式range=sheet.GetRange(COleVariant(,A2,)/COIeVariant(,lA2,1);range.SetFormula(COleVariant(l, = RAND()*10000011);range.SetNumberFormat(COleVariant(l,$0.00M);/選擇A:A列，設(shè)置寬度為自動(dòng)適應(yīng) cols=range.GetEntireColumn();cols.

14、AutoFit();/顯示Excel表格，并設(shè)置狀態(tài)為用戶(hù)可控制app.SetVisible(TRUE);app.SetUserControl(TRUE);5.如何自動(dòng)保存我們生成的Excel文件？通過(guò)Workbook對(duì)象的SaveAs方法即可實(shí)現(xiàn)：book.SaveAsCCOleVariantCCiXa.xls*1 )zcovOptionalz covOptionalzcovOptional,covOptional,covOptionalz(long)OfcovOptionalzcovOptionalzcovOptionalz covOptional);注意Excel2003的SaveAs函

15、數(shù)參數(shù)不同，代碼應(yīng)寫(xiě)為：/*void _Workbook:SaveAs(const VARIANTS Filename, 1const VARIANT& FileFormatz const VARIANT& Password, const VARIANT& WriteResPassword, 3const VARIANTS ReadOnlyRecommended, const VARIANT& CreateBackup, long AccessMode, 3const VARIANTS ConflictResolution,1const VARIANT& AddToMru, const VARIANT& TextCodepagef 2const VARIANT& T ext Vi su a I La