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

原文为：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版本 2010  *.xls

    亲测可用

       变动：

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

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

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

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

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中加入头文件

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

   e.应用程序类CWinApp的InitInstance函数中调用AfxOleInit();   来初始化COM组件，否则无法打开COM服务器

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

解决方法是在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);
	
	//得到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);
}