踏破鐵鞋無覓處，得來費死了工夫。

    本文章的引用來源，本人綜合而成。

    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

    親測可用

    變動：

  之所以找的困難，很大一部分是因為程式碼不能轉移。現在說一下主要的變動，應該是版本的問題。

 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類中，

1. VARIANT DialogBox()  
2. {  
3.   VARIANT result;  
4.   InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);  
5.   return result;  
6. }  

DialogBox()前面新增下劃線變成_DialogBox()，解決了！

3.操作excel檔案

       在“資源”裡面選擇MFC自動建立的對話方塊，雙擊“開啟”按鈕（若沒有就自己做一個），然後程式會將你到對這個按鈕的函式裡，在函式中寫如下內容： （檔案是CxxxDlg.cpp  xxx是你的專案名稱）

1. void Cexcel開啟3Dlg::OnBnClickedOk()  
2. {  
3.     // TODO: 在此新增控制元件通知處理程式程式碼
4.     CApplication app;  
5.     CWorkbooks books;  
6.     CWorkbook book;  
7.     CWorksheets sheets;  
8.     CWorksheet sheet;  
9.     CRange range;  
10.     CRange iCell;  
11.     LPDISPATCH lpDisp;  
12.     COleVariant vResult;  
13.     COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);  
14.     if(!app.CreateDispatch(L"Excel.Application"))  
15.     {  
16.     AfxMessageBox(L"無法啟動Excel伺服器!");  
17.     return;  
18.     }  
19.     books.AttachDispatch(app.get_Workbooks());  
20.     lpDisp = books.Open(“d://test.xls”,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional,covOptional);
21.     //得到Workbook
22.     book.AttachDispatch(lpDisp);  
23.     //得到Worksheets
24.     sheets.AttachDispatch(book.get_Worksheets());  
25.     //得到當前活躍sheet
26.     //如果有單元格正處於編輯狀態中，此操作不能返回，會一直等待
27.     lpDisp=book.get_ActiveSheet();  
28.     sheet.AttachDispatch(lpDisp);  
29.     //讀取第一個單元格的值
30.     range.AttachDispatch(sheet.get_Cells());  
31.     range.AttachDispatch(range.get_Item (COleVariant((long)2),COleVariant((long)1)).pdispVal );  
32.     /*COleVariant*/ vResult =range.get_Value2();  
33.     CString str;  
34.     if(vResult.vt == VT_BSTR) //字串
35.     {  
36.     str=vResult.bstrVal;  
37.     }  
38.     elseif (vResult.vt==VT_R8) //8位元組的數字
39.     {  
40.     str.Format(L"%f",vResult.dblVal);  
41.     }  
42.     /*else if(vResult.vt==VT_DATE) //時間格式 
43.     { 
44.     SYSTEMTIME st; 
45.     VariantTimeToSystemTime(&vResult.date, &st); 
46.     } 
47.     else if(vResult.vt==VT_EMPTY) //單元格空的 
48.     { 
49.     str=""; 
50.     }*/
51.     books.Close();   
52.     app.Quit();             // 退出
53.     //釋放物件  
54.     range.ReleaseDispatch();  
55.     sheet.ReleaseDispatch();  
56.     sheets.ReleaseDispatch();  
57.     book.ReleaseDispatch();  
58.     books.ReleaseDispatch();  
59.     app.ReleaseDispatch();  
60.     OnOK();  
61.     MessageBox(str);  
62. }  

      開始有一個教程沒有如下程式碼（上一個程式碼框已包含）

1.         books.Close();   
2.         app.Quit();             // 退出
3. //釋放物件  
4. range.ReleaseDispatch();  
5. sheet.ReleaseDispatch();  
6. sheets.ReleaseDispatch();  
7. book.ReleaseDispatch();  
8. books.ReleaseDispatch();  
9. app.ReleaseDispatch();  

      這樣會導致程式在關閉以後仍然有excel的程序存在，檔案不關閉，使用以上程式碼後解決。

      另外，在這個檔案的前端記得加入：

1. #include "CApplication.h"
2. #include "CRange.h"
3. #include "CWorkbook.h"
4. #include "CWorkbooks.h"
5. #include "CWorksheet.h"
6. #include "CWorksheets.h"

     執行結果是，程式會將d:/test.xls開啟，並且在對話方塊中輸入格(1,1)的資料。