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