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();
//退出程序
转自:http://blog.sina.com.cn/s/blog_4b46937b0101nuo1.html