【转】VS2008环境使用MFC导入Excel文件中的数据

【转自】http://blog.csdn.net/icyfox_bupt/article/details/6318979

1. 建立MFC工程，MDI（基于对话框），其他默认即可。

2. 操作Excel文件初始化：

project->add class->MFC class from typelib （项目->添加类->Typelib中的MFC类）导入Excel.exe，一般都在C:/Program Files/Microsoft Office/Office12路径下（即选择你的office安装路径下的excel.exe加入）
选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入；
导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类；

然后需要把这些类的头文件中的第一句话 #import ".......EXCEL.EXE" nonamespace 删除；

引入之后如果编译遇到错误，Not enough actual parameters for macro ''DialogBoxW''. 让人头疼！

解决方法是在CRange类中，

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是你的项目名称）

在头文件中包含：

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

程序代码如下：

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

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

posted on 2011-07-02 12:05 cylee025 阅读(4505) 评论(0) 编辑收藏举报