MFC写Excel文件.docVIP

MFC写Excel文件 (2013-07-03 15:06:45) 转载▼ 标签： 分类： 1、首先项目中添加类”TypelibMFC类-选择文件中”，选择office的安装路径中的excel.exe; 2、选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入; 3、导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类;? 并将把这些类的头文件中的第一句话 #import .......EXCEL.EXE nonamespace 删除；? 4、编译时会遇到问题Not enough actual parameters for macro DialogBoxW.?? 解决的方法：在CRangeVARIANT?DialogBox(){}并将DialogBox其改成_DialogBoxW 5、在菜单上添加一个按钮，并添加事件，写入代码： // TODO: 在此添加命令处理程序代码 CApplication objApp; CWorkbooks objBooks; CWorkbook objBook; CWorksheets objSheets; CWorksheet objSheet; CRange objRange,usedRange; LPDISPATCH lpDisp; COleVariant vResult; COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR); if(!objApp.CreateDispatch(_T(Excel.Application),NULL)) { AfxMessageBox(_T(创建Excel服务失败!)); return; } ? objApp.put_Visible(TRUE); //////////////////////////////////////////////////////////////// objBooks.AttachDispatch(objApp.get_Workbooks(),TRUE); //objBook.AttachDispatch(objBooks.Add((COleVariant)TempPath),TRUE);//加载EXCEL模板 objSheets.AttachDispatch(objBook.get_Sheets(),TRUE);//加载Sheet页面 //添加新的Sheet页面 //objSheets.Add(vtMissing,vtMissing,_variant_t((long)1),vtMissing);?? //删除第二个Sheet页面 //objSheet.AttachDispatch(objSheets.get_Item(_variant_t((long)2)),TRUE); //objSheet.Delete(); ? //把第一个Sheet页面的名字改变为TestSheet objSheet.AttachDispatch(objSheets.get_Item(COleVariant((long)1)),TRUE); objSheet.put_Name(TestSheet); ? ///////合并第一行单元格A1至D1////// //加载要合并的单元格 objRange.AttachDispatch(objSheet.get_Range(COleVariant(A1),COleVariant(D1)),TRUE); objRange.Merge(COleVariant((long)0)); ? ////////设置表格内容//////// ? objRange.AttachDispatch(objSheet.get_Cells(),TRUE);//加载所有单元格 //这里的_variant_t可以使用COleVariant代替 objRange.put_Item(COleVariant((long)1),COleVariant((long)1),COleVariant(数学系研究生课程统计)); objRange.put_Item(_variant_t((long)2),_variant_t((long)1),_variant_t(课程名)); objRange.put_Item(_variant_t((lo