VS2010環境使用MFC操作讀取excel2010檔案
本文章的引用來源，本人綜合而成。
http://blog.csdn.net/chasemylov/archive/2010/08/27/5844826.aspx
http://blog.csdn.net/SP_daiyq/archive/2011/02/17/6191233.aspx
使用軟體VS2010excel版本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);
}