VS2010环境使用MFC操作读取excel2003文件

原文为：http://blog.csdn.net/icyfox_bupt/article/details/6318979

              http://wenku.baidu.com/view/d7383548767f5acfa1c7cd30.html

    http://blog.csdn.net/chasemylov/archive/2010/08/27/5844826.aspx

    http://blog.csdn.net/SP_daiyq/archive/2011/02/17/6191233.aspx

使用软件：VS2010 excel版本 2003  *.xls

 亲测可用

 变动：

  之所以找的困难，很大一部分是因为代码不能转移。现在说一下主要的变动，应该是版本的问题。

 1、  字符串前加上L，如L"fox"，这是unicode的原因。

 2、  有些函数不一样了，与第一个链接，比如GetValue,现在应该写成get_value,这都是笔者一下下调对的，还有一些代码有错误，不过至少下面的代码运行无误。

1. 建立MFC工程，MDI（基于对话框）,在创建工程的向导中选中Automation选项(自动化选项)即可为程序自动添加相应的头文件和OLE库初始化代码。

通过查看源代码，可以知道在stdafx.h的头文件中，添加了OLE/COM很多类所需添加的头文件。

#include <afxdisp.h>        // MFC 自动化类

同时，在应用程序类的InitInstance函数中(在***.cpp中查看，不是***Dlg.cpp)，添加了OLE/COM的初始化代码，如下所示：

// 初始化 OLE 库

if (!AfxOleInit())

{

AfxMessageBox(IDP_OLE_INIT_FAILED);

return FALSE;

}

2. 操作Excel文件初始化：

  a. project->add class->MFC class from typelib （项目->添加类->Typelib中的MFC类）,来源里面请选择“注册表”  然后再可选择的类型库中选择“Microsoft Excel ****”这样容易不出错，如下图所示：

 b. 选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入；

   c. 导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类；然后需要把这些类的头文件中的第一句话 #import ".......EXCEL.EXE" nonamespace 删除； 

 d.在stdafx.h中加入这几个头文件:view plaincopy

1. #include "CApplication.h"  
2. #include "CRange.h"  
3. #include "CWorkbook.h"  
4. #include "CWorkbooks.h"  
5. #include "CWorksheet.h"  
6. #include "CWorksheets.h"  

  编译一下程序，会发现有两条错误

解决方法是在CRange类中，

[cpp] view plaincopy

1. VARIANT DialogBox()  
2. {  
3.   VARIANT result;  
4.   InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);  
5.   return result;  
6. }  

DialogBox()前面添加下划线变成_DialogBox()，解决了！

3.操作excel文件

      在“资源”里面选择MFC自动建立的对话框，双击“打开”按钮（若没有就自己做一个），然后程序会将你到对这个按钮的函数里，在函数中写如下内容： （文件是CxxxDlg.cpp  xxx是你的项目名称）

[html] view plaincopy

1. void Cexcel打开3Dlg::OnBnClickedOk()  
2. {  
3.     // TODO: 在此添加控件通知处理程序代码  
4.     CApplication app;  
5.     CWorkbooks books;  
6.     CWorkbook book;  
7.     CWorksheets sheets;  
8.     CWorksheet sheet;  
9.     CRange range;  
10.     CRange iCell;  
11.     LPDISPATCH lpDisp;  
12.     COleVariant vResult;  
13.     COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);  
14.     if(!app.CreateDispatch(L"Excel.Application"))  
15.     {  
16.     AfxMessageBox(L"无法启动Excel服务器!");  
17.     return;  
18.     }  
19.     books.AttachDispatch(app.get_Workbooks());  
20.     lpDisp = books.Open(“D:\\test.xls”,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional,covOptional);  //需要在D盘下新建test.exl
21.       
22.     //得到Workbook  
23.     book.AttachDispatch(lpDisp);  
24.     //得到Worksheets  
25.     sheets.AttachDispatch(book.get_Worksheets());  
26.    
27.     //得到当前活跃sheet  
28.     //如果有单元格正处于编辑状态中，此操作不能返回，会一直等待  
29.     lpDisp=book.get_ActiveSheet();  
30.     sheet.AttachDispatch(lpDisp);  
31.     //读取第一个单元格的值  
32.     range.AttachDispatch(sheet.get_Cells());  
33.     range.AttachDispatch(range.get_Item (COleVariant((long)2),COleVariant((long)1)).pdispVal );  
34.     /*COleVariant*/ vResult =range.get_Value2();  
35.     CString str;  
36.     if(vResult.vt == VT_BSTR) //字符串  
37.     {  
38.     str=vResult.bstrVal;  
39.     }  
40.     else if (vResult.vt==VT_R8) //8字节的数字  
41.     {  
42.     str.Format(L"%f",vResult.dblVal);  
43.     }  
44.    
45.     /*else if(vResult.vt==VT_DATE) //时间格式  
46.     {  
47.     SYSTEMTIME st;  
48.     VariantTimeToSystemTime(&vResult.date, &st);  
49.     }  
50.     else if(vResult.vt==VT_EMPTY) //单元格空的  
51.     {  
52.     str="";  
53.     }*/    
54.     books.Close();   
55.     app.Quit();             // 退出  
56.     //释放对象    
57.     range.ReleaseDispatch();  
58.     sheet.ReleaseDispatch();  
59.     sheets.ReleaseDispatch();  
60.     book.ReleaseDispatch();  
61.     books.ReleaseDispatch();  
62.     app.ReleaseDispatch();  
63.     OnOK();  
64.     MessageBox(str);  
65. }  

开始有一个教程没有如下代码（上一个代码框已包含）

[cpp] view plaincopy

1.         books.Close();   
2.         app.Quit();             // 退出  
3. //释放对象    
4. range.ReleaseDispatch();  
5. sheet.ReleaseDispatch();  
6. sheets.ReleaseDispatch();  
7. book.ReleaseDispatch();  
8. books.ReleaseDispatch();  
9. app.ReleaseDispatch();  

这样会导致程序在关闭以后仍然有excel的进程存在，文件不关闭，使用以上代码后解决。

 运行结果是，程序会将D:\\test.xls打开，并且在对话框中输入格(1,1)的数据。