MFC写Excel文件

谁践踏了优雅 2022-09-26 12:00 238阅读 0赞

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();

//退出程序

MFC写Excel文件

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 java 读取excel文件头_POI读写Excel POI读写Excel文件

相关 MFC写Excel文件

相关 MFC文件读写

相关读写excel文件

相关 MFC读写文件CStdioFile

相关 MFC 读写配置文件

相关 Java 读写Excel文件

相关 MFC用CFile写文件

相关 MFC 与Excel文件的交互操作

相关 Python读写 Excel 文件