原文链接:http://www.tuicool.com/articles/ZBFJJn
近期在忙一个小项目(和同学一起搞的),在这里客户要求不但读写txt,而且可以读写excel文件,这里本以为很简单,结果。。。废话少说,过程如下:
笔者环境:win7 64+VS2012+Office2013+MFC。
说明:读写excel文件,通常包括1. ODBC 数据库实现;2.通过解析 Excel 表格文件;3.通过 OLE/COM 的几种实现方法。本文主要研究通过 OLE/COM 实现对 Excel 表格的操作。
步骤:
1.新建MFC对话框。注意勾选自动化,否则后面加入不了需要的库,导致启动服务失败等错误。有的博客说需要加入
1 if (!AfxOleInit())
2 {
3 AfxMessageBox(IDP_OLE_INIT_FAILED);
4 return FALSE;
5 }
笔者实验发现加不加入都没有问题,如果后面有人有问题可以加入。
2. 向项目工程中添加基本的7个类( Excel 作为 OLE/COM 库插件,定义好了各类交互的接口,这些接口是跨语言的接口。 VC 可以通过导入这些接口,并通过 接口来对 Excel 的操作), 由于本文只关心对 Excel 表格中的数据的读取,主要关注7个接_ Application、 Workbooks 、 _Workbook 、Worksheets 、_Worksheet 、 Range、Font 。
VS2012 导入 OLE/COM 组件的接口的步骤为: 项目->类向导->添加类->类型库中的MFC类 ,先选择要导入的组件所在的路径,即 Excel.exe 所在的路 径,然后再选择 要导入的 Excel 类型库中的接口。组件路径一般为C:\Program Files\Microsoft Office\Office15\EXCEL.exe;格式类似。
3. 导入之后需要“#import "C:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace”注释掉,然后添加头文 件:#include <afxdisp.h>到上面7个文件中去。
4.如果有错误error C2059双击error C2059,将VARIANT DialogBox()改成VARIANT _DialogBox()再次编译,通过!!
5.读写excel。
在对话框头文件中*Dlg.h定义变量
1
2 CApplication app;
3 CWorkbook book;
4 CWorkbooks books;
5 CWorksheet sheet;
6 CWorksheets sheets;
7 CRange range;
8 CMyFont font;
9 CRange cols;
10 LPDISPATCH lpDisp;
a.写excel,在*Dlg.cpp里面的OnInitDialog函数添加代码:
1
2 COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
3 if (!app.CreateDispatch(_T("Excel.Application")))
4 {
5 this->MessageBox(_T("无法创建Excel应用!"));
6 return TRUE;
7 }
8 books = app.get_Workbooks();
9
10
11 book = books.Add(covOptional);
12 sheets = book.get_Worksheets();
13 sheet = sheets.get_Item(COleVariant((short)1));
14 range = sheet.get_Range(COleVariant(_T("A1")), COleVariant(_T("B1")));
15 range.put_Value2(COleVariant(_T("Hello Excel")));
16 cols = range.get_EntireColumn();
17 cols.AutoFit();
18
19 font = range.get_Font();
20 font.put_Bold(COleVariant((short)TRUE));
21
22 range = sheet.get_Range(COleVariant(_T("C2")), COleVariant(_T("C2")));
23
24 range.put_Formula(COleVariant(_T("=RAND()*100000")));
25
26 range.put_NumberFormat(COleVariant(_T("$0.00")));
27
28 cols = range.get_EntireColumn();
29 cols.AutoFit();
30
31 app.put_Visible(TRUE);
32 app.put_UserControl(TRUE);
结果如下
b.导入excel,同样在*Dlg的位置添加代码:
1
2 COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
3 if (!app.CreateDispatch(_T("Excel.Application")))
4 {
5 this->MessageBox(_T("无法创建Excel应用!"));
6 return TRUE;
7 }
8 books = app.get_Workbooks();
9
10 lpDisp = books.Open(_T("D:\\VS2012\\Projects\\TestExcelApp2\\TestExcelApp2\\工作薄1.xlsx"),covOptional ,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional);
11 book.AttachDispatch(lpDisp);
12 sheets = book.get_Worksheets();
13 sheet = sheets.get_Item(COleVariant((short)1));
14
15 range = sheet.get_Range(COleVariant(_T("A1")) ,COleVariant(_T("A1")));
16
17 COleVariant rValue;
18 rValue = COleVariant(range.get_Value2());
19
20 rValue.ChangeType(VT_BSTR);
21
22 this->MessageBox(CString(rValue.bstrVal));
23 book.put_Saved(TRUE);
24 app.Quit();
效果如下:
excel内容:
读到第一行第一列元素:
笔者只是需要读取excel的读写功能,所以只是做了这方面的实验,可以用到自己的项目中,所以共大家分享一下。有什么问题可以留言,共勉!