VS2008环境使用MFC操作读取excel文件

踏破铁鞋无觅处，得来费死了工夫。

    本文章的引用来源，本人综合而成。

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

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

    使用软件 VS2008 excel版本 2003  *.xls

    亲测可用

    转载请注明来自：http://blog.csdn.net/icyfox_bupt/archive/2011/04/12/6318979.aspx

 

    变动：

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

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

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

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

2. 操作Excel文件初始化：

 

    a. project->add class->MFC class from typelib （项目->添加类->Typelib中的MFC类）导入Excel.exe，一般都在C:/Program Files/Microsoft Office/Office12路径下（即选择你的office安装路径下的excel.exe加入）

 

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

 

   c. 导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类；

 

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

 

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

 

解决方法是在CRange类中，

 

[cpp] view
plaincopy

VARIANT DialogBox()  

{  

  VARIANT result;  

  InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);  

  return result;  

}  

 

 

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

3.操作excel文件

 

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

 

[cpp] view
plaincopy

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

}  

 

 

 

 

 

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

[cpp] view
plaincopy

        books.Close();   

        app.Quit();             // 退出  

//释放对象    

range.ReleaseDispatch();  

sheet.ReleaseDispatch();  

sheets.ReleaseDispatch();  

book.ReleaseDispatch();  

books.ReleaseDispatch();  

app.ReleaseDispatch();  

 

 

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

      另外，在这个文件的前端记得加入：

[cpp] view
plaincopy

#include "CApplication.h"  

#include "CRange.h"  

#include "CWorkbook.h"  

#include "CWorkbooks.h"  

#include "CWorksheet.h"  

#include "CWorksheets.h"  

 

 

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