原文为: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
- #include "CApplication.h"
- #include "CRange.h"
- #include "CWorkbook.h"
- #include "CWorkbooks.h"
- #include "CWorksheet.h"
- #include "CWorksheets.h"
编译一下程序,会发现有两条错误
解决方法是在CRange类中,
- VARIANT DialogBox()
- {
- VARIANT result;
- InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);
- return result;
- }
DialogBox()前面添加下划线变成_DialogBox(),解决了!
3.操作excel文件
在“资源”里面选择MFC自动建立的对话框,双击“打开”按钮(若没有就自己做一个),然后程序会将你到对这个按钮的函数里,在函数中写如下内容: (文件是CxxxDlg.cpp xxx是你的项目名称)
- void Cexcel打开3Dlg::OnBnClickedOk()
- {
- // TODO: 在此添加控件通知处理程序代码
- CApplication app;
- CWorkbooks books;
- CWorkbook book;
- CWorksheets sheets;
- CWorksheet sheet;
- CRange range;
- CRange iCell;
- LPDISPATCH lpDisp;
- COleVariant vResult;
- COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
- if(!app.CreateDispatch(L"Excel.Application"))
- {
- AfxMessageBox(L"无法启动Excel服务器!");
- return;
- }
- books.AttachDispatch(app.get_Workbooks());
- lpDisp = books.Open(“D:\\test.xls”,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional,covOptional); //需要在D盘下新建test.exl
- //得到Workbook
- book.AttachDispatch(lpDisp);
- //得到Worksheets
- sheets.AttachDispatch(book.get_Worksheets());
- //得到当前活跃sheet
- //如果有单元格正处于编辑状态中,此操作不能返回,会一直等待
- lpDisp=book.get_ActiveSheet();
- sheet.AttachDispatch(lpDisp);
- //读取第一个单元格的值
- range.AttachDispatch(sheet.get_Cells());
- range.AttachDispatch(range.get_Item (COleVariant((long)2),COleVariant((long)1)).pdispVal );
- /*COleVariant*/ vResult =range.get_Value2();
- CString str;
- if(vResult.vt == VT_BSTR) //字符串
- {
- str=vResult.bstrVal;
- }
- else if (vResult.vt==VT_R8) //8字节的数字
- {
- str.Format(L"%f",vResult.dblVal);
- }
- /*else if(vResult.vt==VT_DATE) //时间格式
- {
- SYSTEMTIME st;
- VariantTimeToSystemTime(&vResult.date, &st);
- }
- else if(vResult.vt==VT_EMPTY) //单元格空的
- {
- str="";
- }*/
- books.Close();
- app.Quit(); // 退出
- //释放对象
- range.ReleaseDispatch();
- sheet.ReleaseDispatch();
- sheets.ReleaseDispatch();
- book.ReleaseDispatch();
- books.ReleaseDispatch();
- app.ReleaseDispatch();
- OnOK();
- MessageBox(str);
- }
开始有一个教程没有如下代码(上一个代码框已包含)
[cpp] view plaincopy
- books.Close();
- app.Quit(); // 退出
- //释放对象
- range.ReleaseDispatch();
- sheet.ReleaseDispatch();
- sheets.ReleaseDispatch();
- book.ReleaseDispatch();
- books.ReleaseDispatch();
- app.ReleaseDispatch();
运行结果是,程序会将D:\\test.xls打开,并且在对话框中输入格(1,1)的数据。