MFC 与Excel文件的交互操作

柔情只为你懂 2021-10-25 12:20 440阅读 0赞

假日快要结束了。带着沉重的心情写下之前关于MFC与Excel文件交互的总结。

因为VS的版本号不同可能在操作上有些差异。所以在此指明下本篇文章的project环境为VS2013，也建议大家用最新的。

说到程序对于Excel的操作，应该不能算是什么新需求了。方法也有好几种，诸如利用office提供的接口、开源码之类的。本文在查了一些资料之后选择了实现起来较为反便的一种。事实上现的方法基本上全然照抄的[这篇文章][Link 1]的，假设看本篇不大明确的能够去看看。

參考的文章说。“踏破铁鞋无觅处。得来费死了工夫”。然而进过了博主的努力，后人须要做的也就是看一看，抄一抄就完事了。开源的力量伟大至极，本篇将发扬博主的精神。在整理内容的同一时候，写出一个Demoproject提供下载，假设懒得做这些工作的人仅仅须要下载了这个project就能够直接用起来了（亲測能够），project在最后面给出。

[原文地址][Link 2]

以下開始主要内容

第一步：创建一个空的MFC对话框project

第二步：下拉VS菜单条的“项目”项。选择加入类。在弹出对话框中选中“TypeLib中的MFC类”，点击加入。弹出“从类型库加入类向导”对话框。

![SouthEast][]

第三步：弹出的对话框例如以下图，“从下面来源加入类”中有两个选项，假设选择的是“注冊表”，在“可用的类型库”中选择“Microsoft Excel 15.0 Object Library<1.8>”(Office版本号不同可能有些许差异，这个是Office2013)。假设选择的是“文件”，则"位置"选择Office安装路径下的EXCEL.EXE，本人32位Office的默认安装，路径为“C:\\Program Files (x86)\\Microsoft Office\\Office15\\EXCEL.EXE”。上面两个选项达到的效果是一样的，仅仅是路径不同而已，做完效果例如以下:

![SouthEast 1][]

第四步：选中“接口”中的“\_Application”,“\_WorkSheet”,“\_WorkBook”,“WorkSheets”,“WorkBooks”,“Range”这几项。放到右边去，点击完毕。例如以下图：

![SouthEast 2][]

第五步：做完第四步后，project中会多出几个导入类的头文件“CApplication.h”,“CWorkSheet.h”,“CWorkBook.h”,“CWorkSheets.h”,“CWorkBooks.h”,“CRange.h”。将每个头文件中面的都有的第一句代码“\#import "C:\\\\Program Files (x86)\\\\Microsoft Office\\\\Office15\\\\EXCEL.EXE" no\_namespace”（路径可能不同）都凝视掉。

例如以下图：

![20150622170755865][]

第六步：既然有头文件，自然就要包括这些头文件啦，在须要调用的文件头写入例如以下代码：

#include "CApplication.h"
    #include "CRange.h"
    #include "CWorkbook.h"
    #include "CWorkbooks.h"
    #include "CWorksheet.h"
    #include "CWorksheets.h"

第七步：这个时候按理说环境已经是搭建好了，可是点击编译还是会报出语法错误，幸好前文提到的博客也给出了解决方法，定位到"CRange,h",将

VARIANT DialogBox()
    {
    	VARIANT result;
    	InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);
    	return result;
    }

中的DialogBox改为\_ DialogBox,如今编译就没有问题了。接下来调用就能够了，调用代码例如以下：

CApplication app;
    CWorkbooks books;
    CWorkbook book;
    CWorksheets sheets;
    CWorksheet sheet;
    CRange range;
    LPDISPATCH lpDisp;
    COleVariant vResult;
    COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    if (!app.CreateDispatch(L"Excel.Application"))
    {
    	AfxMessageBox(L"无法启动Excelserver!");
    	return;
    }
    books.AttachDispatch(app.get_Workbooks());
    CString path = L"demo.xlsx";//文件路径
    
    TCHAR szPath[MAX_PATH];//获得当前运行路径
    GetModuleFileName(NULL, szPath, MAX_PATH);
    CString PathName(szPath);
    PathName=PathName.Left(PathName.ReverseFind(_T('\\')) + 1);
    
    lpDisp = books.Open(PathName+path, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional);
    
    book.AttachDispatch(lpDisp);//得到Workbook  
    sheets.AttachDispatch(book.get_Worksheets());//得到Worksheets  
    
    lpDisp = book.get_ActiveSheet();//得到当前活跃sheet，假设有单元格正处于编辑状态中，此操作不能返回。会一直等待  
    sheet.AttachDispatch(lpDisp);
    
    //读取第rows行、第cols列单元格的值
    /*假设遍历则重复运行这段代码并推断界限*/
    int rows = 1, cols = 2;
    range.AttachDispatch(sheet.get_Cells());
    range.AttachDispatch(range.get_Item(COleVariant((long)rows), COleVariant((long)cols)).pdispVal);
    vResult = range.get_Value2();
    CString data;
    if (vResult.vt == VT_BSTR)//字符串  
    {
    	data = vResult.bstrVal;
    }
    else if (vResult.vt == VT_R8)//8字节的数字  
    {
    	data.Format(L"%.0f", vResult.dblVal);
    }
    else if(vResult.vt==VT_EMPTY)//单元格空的
    {
    	data = "";
    }
    MessageBox(data);
    /*假设遍历则重复运行这段代码并推断界限*/
    
    //释放对象    
    books.Close();
    app.Quit();// 退出  
    range.ReleaseDispatch();
    sheet.ReleaseDispatch();
    sheets.ReleaseDispatch();
    book.ReleaseDispatch();
    books.ReleaseDispatch();
    app.ReleaseDispatch();

OK，到此便实现了Excel数据的读取，至于创建和写入也几乎相同，以后实用到再加入上来。

[ project下载][project](VS2013)

# #

转载于:https://www.cnblogs.com/wzzkaifa/p/7070414.html

[Link 1]: http://blog.csdn.net/icyfox_bupt/article/details/6318979
[Link 2]: http://blog.csdn.net/weixinhum/article/details/46594015
[SouthEast]: /images/20211025/59e89bb13c914ae096c0d902b92c07b5.png
[SouthEast 1]: /images/20211025/639489624f27406aafb6e37ac4160883.png
[SouthEast 2]: /images/20211025/a905c8dae0b84c88b701582ebaa385a1.png
[20150622170755865]: /images/20211025/9db53a7c06bc4212b1e22d2971f6d6af.png?
[project]: http://download.csdn.net/detail/ohantanyanying/8828691