MFC操作Excel.docx

1、MFC操作ExcelMFC操作Excel下面的操作基于Excel2003一初始化操作1.导入类库点击查看-建立类向导- Add Class.From a type Library.- C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE，接下来就可以看到导入的类excel.h, excel.cpp。2.初始化COM找到App的InitInstance()函数，在其中添加AfxOleInit()函数的调用，如：cppview plaincopy1. if(!AfxOleInit()2. 3. 4. 5. AfxMessageBox(注册COM出错!);6.

2、 7. returnFALSE;8. 9. 二我自己写的Excel操作类ExcelOperate.hcppview plaincopy1. #includeatlbase.h2. #includeexcel.h3. usingnamespacemyexcel;4. classCExcelOperate5. 6. private:7. myexcel:_Applicationm_ecApp;8. Workbooksm_ecBooks;9. _Workbookm_ecBook;10. Worksheetsm_ecSheets;11. _Worksheetm_ecSheet;12. myexcel:

3、Rangem_ecRange;13. VARIANTret;/保存单元格的值14. public:15. CExcelOperate();16. virtualCExcelOperate();17. public:18. /操作19. /*创建新EXCEL*20. BOOLCreateApp();21. BOOLCreateWorkbooks();/创建一个新的EXCEL工作簿集合22. BOOLCreateWorkbook();/创建一个新的EXCEL工作簿23. BOOLCreateWorksheets();/创建一个新的EXCEL工作表集合24. BOOLCreateWorksheet(

4、shortindex);/创建一个新的EXCEL工作表25. BOOLCreateSheet(shortindex);26. BOOLCreate(shortindex=1);/创建新的EXCEL应用程序并创建一个新工作簿和工作表27. voidShowApp();/显示EXCEL文档28. voidHideApp();/隐藏EXCEL文档29. /*打开文档*30. BOOLOpenWorkbook(CStringfileName,shortindex=1);31. BOOLOpen(CStringfileName);/创建新的EXCEL应用程序并打开一个已经存在的文档。32. BOOLSe

5、tActiveWorkbook(shorti);/设置当前激活的文档。33. 34. /*保存文档*35. BOOLSaveWorkbook();/Excel是以打开形式，保存。36. BOOLSaveWorkbookAs(CStringfileName);/Excel以创建形式，保存。37. BOOLCloseWorkbook();38. voidCloseApp();39. /*读信息*40. BOOLGetRangeAndValue(CStringbegin,CStringend);/得到begin到end的Range并将之间的值设置到ret中41. voidGetRowsAndCols

6、(long&rows,long&cols);/得到ret的行，列数42. BOOLGetTheValue(introws,intcols,CString&dest);/返回第rows，cols列的值，注意只返回文本类型的，到dest中43. BOOLSetTextFormat(CString&beginS,CString&endS);/将beginS到endS设置为文本格式(数字的还要用下面的方法再转一次)44. BOOLSetRowToTextFormat(CString&beginS,CString&endS);/将beginS到endS(包括数字类型)设置为文本格式45. 46. ;Ex

7、celOperate.cppcppview plaincopyCExcelOperate:CExcelOperate()CExcelOperate:CExcelOperate()BOOLCExcelOperate:CreateApp()/if(FALSE=m_wdApp.CreateDispatch(Word.Application)COleExceptionpe;if(!m_ecApp.CreateDispatch(_T(Excel.Application),&pe)AfxMessageBox(Application创建失败，请确保安装了word2000或以上版本!,MB_OK|MB_ICO

8、NWARNING);pe.ReportError();throw&pe;returnFALSE;returnTRUE;BOOLCExcelOperate:CreateWorkbooks()/创建一个新的EXCEL工作簿集合if(FALSE=CreateApp()returnFALSE;m_ecBooks=m_ecApp.GetWorkbooks();if(!m_ecBooks.m_lpDispatch)AfxMessageBox(WorkBooks创建失败!,MB_OK|MB_ICONWARNING);returnFALSE;returnTRUE;BOOLCExcelOperate:Creat

9、eWorkbook()/创建一个新的EXCEL工作簿if(!m_ecBooks.m_lpDispatch)AfxMessageBox(WorkBooks为空!,MB_OK|MB_ICONWARNING);returnFALSE;COleVariantvOptional(long)DISP_E_PARAMNOTFOUND,VT_ERROR);m_ecBook=m_ecBooks.Add(vOptional);if(!m_ecBook.m_lpDispatch)AfxMessageBox(WorkBook为空!,MB_OK|MB_ICONWARNING);returnFALSE;/*/得到docu

10、ment变量m_wdDoc=m_wdApp.GetActiveDocument();if(!m_wdDoc.m_lpDispatch)AfxMessageBox(Document获取失败!,MB_OK|MB_ICONWARNING);returnFALSE;/得到selection变量m_wdSel=m_wdApp.GetSelection();if(!m_wdSel.m_lpDispatch)AfxMessageBox(Select获取失败!,MB_OK|MB_ICONWARNING);returnFALSE;/得到Range变量m_wdRange=m_wdDoc.Range(vOption

11、al,vOptional);if(!m_wdRange.m_lpDispatch)AfxMessageBox(Range获取失败!,MB_OK|MB_ICONWARNING);returnFALSE;*/returnTRUE;BOOLCExcelOperate:CreateWorksheets()/创建一个新的EXCEL工作表集合if(!m_ecBook.m_lpDispatch)AfxMessageBox(WorkBook为空!,MB_OK|MB_ICONWARNING);returnFALSE;m_ecSheets=m_ecBook.GetSheets();if(!m_ecSheets.m

12、_lpDispatch)AfxMessageBox(WorkSheets为空!,MB_OK|MB_ICONWARNING);returnFALSE;returnTRUE;BOOLCExcelOperate:CreateWorksheet(shortindex)/创建一个新的EXCEL工作表if(!m_ecSheets.m_lpDispatch)AfxMessageBox(WorkSheets为空!,MB_OK|MB_ICONWARNING);returnFALSE;m_ecSheet=m_ecSheets.GetItem(COleVariant(index);if(!m_ecSheet.m_l

13、pDispatch)AfxMessageBox(WorkSheet为空!,MB_OK|MB_ICONWARNING);returnFALSE;returnTRUE;BOOLCExcelOperate:CreateSheet(shortindex)if(CreateWorksheets()=FALSE)returnFALSE;if(CreateWorksheet(index)=FALSE)returnFALSE;returnTRUE;BOOLCExcelOperate:Create(shortindex)/创建新的EXCEL应用程序并创建一个新工作簿和工作表if(CreateWorkbooks(

14、)=FALSE)returnFALSE;if(CreateWorkbook()=FALSE)returnFALSE;if(CreateSheet(index)=FALSE)returnFALSE;returnTRUE;voidCExcelOperate:ShowApp()/显示WORD文档m_ecApp.SetVisible(TRUE);voidCExcelOperate:HideApp()/隐藏word文档m_ecApp.SetVisible(FALSE);/*打开文档*BOOLCExcelOperate:OpenWorkbook(CStringfileName,shortindex)if(

15、!m_ecBooks.m_lpDispatch)AfxMessageBox(WorkSheets为空!,MB_OK|MB_ICONWARNING);returnFALSE;/COleVariantvFileName(_T(fileName);COleVariantVOptional(long)DISP_E_PARAMNOTFOUND,VT_ERROR);m_ecBook=m_ecBooks.Open(fileName,VOptional,VOptional,VOptional,VOptional,VOptional,VOptional,VOptional,VOptional,VOptional

16、,VOptional,VOptional,VOptional,VOptional,VOptional);if(!m_ecBook.m_lpDispatch)AfxMessageBox(WorkSheet获取失败!,MB_OK|MB_ICONWARNING);returnFALSE;if(CreateSheet(index)=FALSE)returnFALSE;returnTRUE;BOOLCExcelOperate:Open(CStringfileName)/创建新的EXCEL应用程序并打开一个已经存在的文档。if(CreateWorkbooks()=FALSE)returnFALSE;ret

17、urnOpenWorkbook(fileName);/*BOOLCExcelOperate:SetActiveWorkbook(shorti)/设置当前激活的文档。*/*保存文档*BOOLCExcelOperate:SaveWorkbook()/文档是以打开形式，保存。if(!m_ecBook.m_lpDispatch)AfxMessageBox(Book获取失败!,MB_OK|MB_ICONWARNING);returnFALSE;m_ecBook.Save();returnTRUE;BOOLCExcelOperate:SaveWorkbookAs(CStringfileName)/文档以创

18、建形式，保存。if(!m_ecBook.m_lpDispatch)AfxMessageBox(Book获取失败!,MB_OK|MB_ICONWARNING);returnFALSE;COleVariantvTrue(short)TRUE),vFalse(short)FALSE),vOptional(long)DISP_E_PARAMNOTFOUND,VT_ERROR);COleVariantvFileName(_T(fileName);m_ecBook.SaveAs(vFileName,/VARIANT*FileNamevOptional,/VARIANT*FileFormatvOptiona

19、l,/VARIANT*LockCommentsvOptional,/VARIANT*PasswordvOptional,/VARIANT*AddToRecentFilesvOptional,/VARIANT*WritePassword0,/VARIANT*ReadOnlyRecommendedvOptional,/VARIANT*EmbedTrueTypeFontsvOptional,/VARIANT*SaveNativePictureFormatvOptional,/VARIANT*SaveFormsDatavOptional,/VARIANT*SaveAsAOCELettervOption

20、al/VARIANT*ReadOnlyRecommended/*vOptional,/VARIANT*EmbedTrueTypeFontsvOptional,/VARIANT*SaveNativePictureFormatvOptional,/VARIANT*SaveFormsDatavOptional/VARIANT*SaveAsAOCELetter*/);returnTRUE;BOOLCExcelOperate:CloseWorkbook()COleVariantvTrue(short)TRUE),vFalse(short)FALSE),vOptional(long)DISP_E_PARAMNOTFOUND,VT_ERROR);m_ecBook.Close(vFalse,/SaveChanges.vTrue,/OriginalFormat.vFalse/RouteDocument.);m_ecBook=m_ecApp.GetActiveWorkbook();if(!m_ecBook.m_lpDispatch)