MFC OLE 自動化操作 Excel 進階：從 VB 對比到 COleDispatchDriver 封裝與包裝類定制

VB vs VC：自動化開發體驗的巨大差異

VB 操作 Excel 極簡：引用類型庫 → CreateObject → 直接調用屬性/方法。VC 需手動處理 IDispatch::Invoke、參數封裝 DISPPARAMS、錯誤碼檢查，代碼量級差異。MFC 提供 COleDispatchDriver 封裝 IDispatch，並通過 ClassWizard 生成包裝類，大幅降低難度。

一、IDispatch 核心：Invoke 詳解

HRESULT Invoke(
    DISPID dispIdMember,      // 成員標識符 (由 GetIDsOfNames 獲取)
    REFIID riid,              // 保留 IID_NULL
    LCID lcid,                // 語言環境
    WORD wFlags,              // 調用類型
    DISPPARAMS *pDispParams,  // 參數數組
    VARIANT *pVarResult,      // 返回值
    EXCEPINFO *pExcepInfo,    // 異常信息
    UINT *puArgErr            // 錯誤參數索引
);

wFlags 決定操作類型：

• DISPATCH_METHOD：調用方法
• DISPATCH_PROPERTYGET：讀屬性
• DISPATCH_PROPERTYPUT：寫屬性

MFC COleDispatchDriver 將其封裝為三個方法：

• InvokeHelper(dispid, DISPATCH_METHOD, vtReturn, &result, params...)
• GetProperty(dispid, vtReturn, &result)
• SetProperty(dispid, vtType, value)

二、ClassWizard 生成包裝類：實戰步驟

1. Ctrl+W → Add Class → From a type library
2. 選擇 Excel8.olb (或對應版本)。
3. 勾選核心類：_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range。
4. 生成類：CApplication、CWorkbooks、CWorkbook、CWorksheets、CWorksheet、CRange 等，繼承自 COleDispatchDriver。

三、包裝類定制：重載與擴展

生成的類可能不完全符合需求 (如可選參數處理)。利用 C++ 重載擴展：

// 原生生成的 Workbooks::Add 可能包含 Template 參數
// 我們添加無參重載
class CWorkbooks : public COleDispatchDriver {
public:
    // 原有聲明 (由向導生成)
    LPDISPATCH Add(const VARIANT& Template);

    // 自定義重載：無參新建
    LPDISPATCH Add() {
        return Add(vtMissing); // 傳遞 vtMissing 表示省略可選參數
    }
};

同理可為 Worksheet::Range、Range::Item 等添加便捷重載。

四、完整自動化流程代碼

// Stdafx.h
#include  // MFC OLE 支持

// App::InitInstance
BOOL CMyApp::InitInstance() {
    if (!AfxOleInit()) { // 初始化 OLE 庫
        AfxMessageBox(_T("OLE 初始化失敗"));
        return FALSE;
    }
    // ...
}

// 對話框按鈕處理
void CMyDlg::OnAutomateExcel() {
    CApplication app;
    if (!app.CreateDispatch(_T("Excel.Application"))) {
        AfxMessageBox(_T("啟動 Excel 失敗"));
        return;
    }
    app.put_Visible(TRUE);

    CWorkbooks books;
    books.AttachDispatch(app.GetWorkbooks(), TRUE);

    CWorkbook book;
    book.AttachDispatch(books.Add(), TRUE); // 使用重載無參 Add()

    CWorksheets sheets;
    sheets.AttachDispatch(book.GetWorksheets(), TRUE);

    CWorksheet sheet;
    sheet.AttachDispatch(sheets.GetItem(COleVariant((short)1)), TRUE); // 索引從1開始

    CRange range;
    range.AttachDispatch(sheet.GetCells(), TRUE);

    // 寫入 A1
    range.SetItem(COleVariant((long)1), COleVariant((long)1), COleVariant(_T("VC自動化測試")));

    // 讀取 A1
    COleVariant val = range.GetItem(COleVariant((long)1), COleVariant((long)1));
    CString str = val.bstrVal; // 需檢查 vt == VT_BSTR
    AfxMessageBox(_T("A1 = ") + str);

    // 清理 (逆序)
    range.ReleaseDispatch();
    sheet.ReleaseDispatch();
    sheets.ReleaseDispatch();
    book.Close(COleVariant((short)FALSE), COleVariant((short)FALSE), vtMissing);
    book.ReleaseDispatch();
    books.ReleaseDispatch();
    app.Quit();
    app.ReleaseDispatch();
}

五、關鍵技術點總結

六、進階：事件處理 (Sink)

若需響應 Excel 事件 (如 WorkbookBeforeClose)，需實現 IDispatch 事件接口並通過 Advise 連接。MFC 提供 CCmdTarget 派生類支持連接點，但較複雜，常見需求通常改用輪詢或定時器檢查狀態。

七、避坑指南

• ❌ 忘記 AfxOleInit() → CreateDispatch 失敗。
• ❌ 直接使用生成的包裝類不重載可選參數 → 調用繁瑣。
• ❌ 索引用 0 → GetItem(0) 失敗/取錯數據。
• ❌ 釋放順序錯誤 → 訪問已釋放接口崩潰。
• ❌ 不調用 app.Quit() → Excel 進程殘留 (後台幽靈進程)。
• ❌ 大量單元格操作逐個 SetItem → 極慢 (秒級/分級)。用 SafeArray 批量賦值 Range.Value = array。

總結

MFC 通過 COleDispatchDriver 封裝 IDispatch::Invoke 復雜性，ClassWizard 生成包裝類進一步降低門檻。關鍵掌握：OLE 初始化、ProgID 創建、層級對象獲取 (App→Books→Book→Sheets→Sheet→Range)、COleVariant 參數傳遞、索引從 1 開始、逆序釋放與 Quit()。定制包裝類重載可選參數，大幅提升開發效率。大數據場景必用 SafeArray 批量操作。