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