VS2008環境使用MFC操作讀取excel文件


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

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是你的項目名稱)

 

[cpp] view plaincopy

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.       

22.     //得到Workbook  

23.     book.AttachDispatch(lpDisp);  

24.     //得到Worksheets  

25.     sheets.AttachDispatch(book.get_Worksheets());  

26.    

27.     //得到當前活躍sheet  

28.     //如果有單元格正處於編輯狀態中,此操作不能返回,會一直等待  

29.     lpDisp=book.get_ActiveSheet();  

30.     sheet.AttachDispatch(lpDisp);  

31.     //讀取第一個單元格的值  

32.     range.AttachDispatch(sheet.get_Cells());  

33.     range.AttachDispatch(range.get_Item (COleVariant((long)2),COleVariant((long)1)).pdispVal );  

34.     /*COleVariant*/ vResult =range.get_Value2();  

35.     CString str;  

36.     if(vResult.vt == VT_BSTR) //字符串  

37.     {  

38.     str=vResult.bstrVal;  

39.     }  

40.     else if (vResult.vt==VT_R8) //8字節的數字  

41.     {  

42.     str.Format(L"%f",vResult.dblVal);  

43.     }  

44.    

45.     /*else if(vResult.vt==VT_DATE) //時間格式 

46.     { 

47.     SYSTEMTIME st; 

48.     VariantTimeToSystemTime(&vResult.date, &st); 

49.     } 

50.     else if(vResult.vt==VT_EMPTY) //單元格空的 

51.     { 

52.     str=""; 

53.     }*/    

54.     books.Close();   

55.     app.Quit();             // 退出  

56.     //釋放對象    

57.     range.ReleaseDispatch();  

58.     sheet.ReleaseDispatch();  

59.     sheets.ReleaseDispatch();  

60.     book.ReleaseDispatch();  

61.     books.ReleaseDispatch();  

62.     app.ReleaseDispatch();  

63.     OnOK();  

64.     MessageBox(str);  

65. }  

 

 

 

 

 

      開始有一個教程沒有如下代碼(上一個代碼框已包含)

[cpp] view plaincopy

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的進程存在,文件不關閉,使用以上代碼后解決。

 

      另外,在這個文件的前端記得加入:

[cpp] view plaincopy

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)的數據。

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM