MFC写Excel文件

(2013-07-03 15:06:45)

转载▼

标签： 分类： StudyNotes

mfc中写excel

1、首先项目中添加类”Typelib中的MFC类->选择文件中”，选择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'.

解决的方法：在CRange类中找到VARIANT 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((long)2),_variant_t((long)2),_variant_t(\"课时\"));

objRange.put_Item(_variant_t((long)2),_variant_t((long)3),_variant_t(\"难度\")); objRange.put_Item(_variant_t((long)2),_variant_t((long)4),_variant_t(\"教学方式\")); objRange.put_Item(_variant_t((long)3),_variant_t((long)1),_variant_t(\"泛函分析\")); objRange.put_Item(_variant_t((long)3),_variant_t((long)2),_variant_t(\"60\")); objRange.put_Item(_variant_t((long)3),_variant_t((long)3),_variant_t(\"普通\")); objRange.put_Item(_variant_t((long)3),_variant_t((long)4),_variant_t(\"老师讲课\")); objRange.put_Item(_variant_t((long)4),_variant_t((long)1),_variant_t(\"微分流形\")); objRange.put_Item(_variant_t((long)4),_variant_t((long)2),_variant_t(\"40\")); objRange.put_Item(_variant_t((long)4),_variant_t((long)3),_variant_t(\"难\")); objRange.put_Item(_variant_t((long)4),_variant_t((long)4),_variant_t(\"自学\"));

objRange.put_Item(_variant_t((long)5),_variant_t((long)1),_variant_t(\"二阶椭圆型方程与方程组\")); objRange.put_Item(_variant_t((long)5),_variant_t((long)2),_variant_t(\"60\")); objRange.put_Item(_variant_t((long)5),_variant_t((long)3),_variant_t(\"很难\")); objRange.put_Item(_variant_t((long)5),_variant_t((long)4),_variant_t(\"讨论\")); objRange.AttachDispatch(objSheet.get_UsedRange());//加载已使用的单元格

objRange.put_WrapText(_variant_t((long)1));//设置单元格内的文本为自动换行

objRange.put_HorizontalAlignment(_variant_t((long)-4108)); objRange.put_VerticalAlignment(_variant_t((long)-4108)); ///////设置整体的字体、字号及颜色//////

//要使用字体类，需要在初始Excel的时候导入这个类（下面几个类也是如此）

//为了使用这些类，可以初始化的时候将excel中的类全部导入，并将所有的头文件命改为excel.h // Font ft;

//ft.AttachDispatch(objRange.get_Font()); //ft.put_Name(_variant_t(\"宋体\"));//字体 //ft.SetColorIndex(_variant_t((long)11));//字的颜色 //ft.SetSize(_variant_t((long)12));//字号 /////////////设置标题字体及颜色//////////

//m_ExlRge.AttachDispatch(m_ExlSheet.GetRange(_variant_t(\"A1\"),_variant_t(\"D1\")));

// // //

//ft.AttachDispatch(m_ExlRge.GetFont()); //ft.SetBold(_variant_t((long)1));//粗体 //ft.SetSize(_variant_t((long)13)); //ft.SetColorIndex(_variant_t((long)2)); //CellFormat cf;

//cf.AttachDispatch(m_ExlRge.GetCells());

//////////////设置底色/////////////////

Interior it;

it.AttachDispatch(m_ExlRge.GetInterior()); it.SetColorIndex(_variant_t((long)11));//标题底色 ////表格内容的底色////

m_ExlRge.AttachDispatch(m_ExlSheet.GetRange(_variant_t(\"A2\"),_variant_t(\"D5\"))); it.AttachDispatch(m_ExlRge.GetInterior()); it.SetColorIndex(_variant_t((long)15)); //////////////为表格设置边框/////////////

CRange UnitRge; CString CellName; for(int i=1;i<=5;i++) {

for(int j=1;j<=4;j++) {

CellName.Format(\"%c%d\",j+64,i);//单元格的名称

UnitRge.AttachDispatch(objRange.get_Range(_variant_t(CellName),_variant_t(CellName)));//

加载单元格

//LineStyle=线型Weight=线宽ColorIndex=线的颜色(-4105为自动)

UnitRge.BorderAround(_variant_t((long)1),_variant_t((long)2),_variant_t((long)-4105),vtMissing);//设置边框

}

//释放对象（相当重要！） objRange.ReleaseDispatch(); objSheet.ReleaseDispatch(); objSheets.ReleaseDispatch(); objBook.ReleaseDispatch(); objBooks.ReleaseDispatch();

//m_ExlApp一定要释放，否则程序结束后还会有一个Excel进程驻留在内存中，而且程序重复运行

}

的时候会出错

objApp.ReleaseDispatch(); //退出程序