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

使用MFC操作EXCEL文件 本文檔適用于： Microsoft Foundation Classes (MFC), Microsoft Visual C+, 32-bit Editions, version 6.0 以上 Microsoft OLE 庫(kù) 第一步：建立一個(gè)自動(dòng)化工程1. 啟動(dòng)VC 6.0，打開(kāi)新建對(duì)話(huà)框，新建一個(gè)MFC AppWizard(exe)工程，這里工程明設(shè)置為T(mén)estExcel。2. 進(jìn)入MFC 應(yīng)用程序向?qū)Вx擇 基本對(duì)話(huà)框，直接點(diǎn)擊完成，工程文件結(jié)構(gòu)如下圖： 3. 打開(kāi)MFC ClassWizard窗口(查看建立類(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 Office 2000，微軟命名方式為Excel+數(shù)字的形式，Office版本越高，數(shù)字越大。/注意，Excel003的文件是：C:Program FilesMicrosoft OfficeOFFICE11Excel.exe4. 返回編輯器，查看工程文件，可發(fā)現(xiàn)多了EXCEL9.H及EXCEL9.CPP兩個(gè)文件。5. 打開(kāi)stdafx.h頭文件確保包含如下頭文件： #include #include excel9.h6. 打開(kāi)TestExcel.cpp文件，修改CTestExcelApp:InitInstance()，加入如下代碼： BOOL CTestExcelApp:InitInstance() if( !AfxOleInit() ) AfxMessageBox(初始化Ole出錯(cuò)！); return FALSE; AfxEnableControlContainer(); . . return FALSE;為保證編譯時(shí)不產(chǎn)生重復(fù)定義錯(cuò)誤，打開(kāi)excel9.h文件，在文件開(kāi)始位置加入如下代碼： #if !defined _HEAD_FILE_EXCEL9_ #define _HEAD_FILE_EXCEL9_ 相應(yīng)的，在文件末尾加入： #endif到此，OLE自動(dòng)化工程建立完成。按下F7，看是否能通過(guò)編譯。注意：編譯時(shí)可能缺少DLL文件，如mfc42d.dll、msvcrtd.dll、mfco42d.dll，下載后放入C:WINDOWSsystem32文件夾 第二步：操作EXCEL文件1. 選擇ResourceView工作區(qū)，打開(kāi)IDD_TESTEXCEL_DIALOG，在對(duì)話(huà)框中添加一個(gè)按鈕控件Button1，雙擊它，生成一個(gè)Button1 Click事件的處理函數(shù)：void CTestExcelDlg:OnButton1() / TODO: Add your control notification handler code here 2. 在OnButton1()函數(shù)中，添加代碼：void CTestExcelDlg:OnButton1() / TODO: Add your control notification handler code here _Application app; Workbooks books; _Workbook book; Worksheets sheets; _Worksheet sheet; Range range; Font font; Range cols; COleVariant covOptional(long)DISP_E_PARAMNOTFOUND, VT_ERROR); if( !app.CreateDispatch(Excel.Application) ) this-MessageBox(無(wú)法創(chuàng)建Excel應(yīng)用！); return; books=app.GetWorkbooks(); book=books.Add(covOptional); sheets=book.GetSheets(); sheet=sheets.GetItem(COleVariant(short)1); range=sheet.GetRange(COleVariant(A1),COleVariant(A1); range.SetValue(COleVariant(HELLO EXCEL!);/Excel2003函數(shù)為SetValue font=range.GetFont(); font.SetBold(COleVariant(short)TRUE); range=sheet.GetRange(COleVariant(A2),COleVariant(A2); range.SetFormula(COleVariant(=RAND()*100000); range.SetNumberFormat(COleVariant($0.00); cols=range.GetEntireColumn(); cols.AutoFit(); app.SetVisible(TRUE); app.SetUserControl(TRUE);3. 按下Ctrl+F5，執(zhí)行程序。按下Button1，將會(huì)彈出Excel窗口：4. 到此，即完成了我們的示例程序，下面將對(duì)程序進(jìn)行詳細(xì)的說(shuō)明，如果大家有過(guò)使用Visual Basic操作Excel程序的經(jīng)驗(yàn)，則應(yīng)該能看懂下面程序：void CTestExcelDlg:OnButton1() / TODO: Add your control notification handler code here /* 先創(chuàng)建一個(gè)_Application類(lèi)，用_Application來(lái)創(chuàng)建一個(gè)Excel應(yīng)用程序接口。 Excel接口類(lèi)中層次如下所示： -_Application -Workbooks 工作薄集合 -_Workbook 工作薄 -Worksheets 工作表集合 -_Worksheet 工作表 -Range單元格區(qū)域 故要操作表，必須先逐步獲取WorkbooksWorkbook Worksheets Worksheet Range */ _Application app; Workbooks books; _Workbook book; Worksheets sheets; _Worksheet sheet; Range range; /Excel中針對(duì)單元格的操作都應(yīng)先獲取其對(duì)應(yīng)的Range對(duì)象 Font 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( !app.CreateDispatch(Excel.Application) ) this-MessageBox(無(wú)法創(chuàng)建Excel應(yīng)用！); return; /獲取工作薄集合 books=app.GetWorkbooks(); /添加一個(gè)工作薄 book=books.Add(covOptional); /獲取工作表集合 sheets=book.GetSheets(); /獲取第一個(gè)工作表 sheet=sheets.GetItem(COleVariant(short)1); /選擇工作表中A1:A1單元格區(qū)域 range=sheet.GetRange(COleVariant(A1),COleVariant(A1); /設(shè)置A1=HELLO EXCEL! range.SetValue(COleVariant(HELLO EXCEL!); /調(diào)整格式，設(shè)置粗體 font=range.GetFont(); font.SetBold(COleVariant(short)TRUE); /選擇A2單元格，插入一個(gè)公式=RAND()*100000，并設(shè)置A2數(shù)字格式為貨幣形式 range=sheet.GetRange(COleVariant(A2),COleVariant(A2); range.SetFormula(COleVariant(=RAND()*100000); range.SetNumberFormat(COleVariant($0.00); /選擇A:A列，設(shè)置寬度為自動(dòng)適應(yīng) cols=range.GetEntireColumn(); cols.AutoFit(); /顯示Excel表格，并設(shè)置狀態(tài)為用戶(hù)可控制 app.SetVisible(TRUE); app.SetUserControl(TRUE);5. 如何自動(dòng)保存我們生成的Excel文件？通過(guò)Workbook對(duì)象的SaveAs方法即可實(shí)現(xiàn)： book.SaveAs(COleVariant(C:a.xls),covOptional, covOptional,covOptional, covOptional,covOptional,(long)0,covOptional,covOptional,covOptional, covOptional);/注意Excel2003的SaveAs函數(shù)參數(shù)不同，代碼應(yīng)寫(xiě)為：/*void _Workbook:SaveAs(const VARIANT& Filename, 1const VARIANT& FileFormat, const VARIANT& Password, const VARIANT& WriteResPassword, 3const VARIANT& ReadOnlyRecommended, const VARIANT& CreateBackup, long AccessMode, 3const VARIANT& ConflictResolution, 1const VARIANT& AddToMru, const VARIANT& TextCodepage, 2const VARIANT& TextVisualLayout