VBA 調用自編 DLL 顯示長任務進度：回調函數方案

需求

Excel VBA 調用自編 DLL 執行耗時任務，需在 Excel 界面實時顯示進度條。

核心方案：回調函數

1. DLL 導出函數簽名增加回調指針：

   // C++ DLL
   typedef void (__stdcall *ProgressCallback)(int percent, const wchar_t* msg);
   
   __declspec(dllexport) int LongTask(ProgressCallback cb) {
       for (int i = 0; i <= 100; ++i) {
           // ... 任務邏輯 ...
           if (cb) cb(i, L"Processing...");
           Sleep(50);
       }
       return 0;
   }
   

2. VBA 定義回調函數並傳遞地址：

   ' 標準模塊
   Public Declare PtrSafe Function LongTask Lib "MyDll.dll" _
       (ByVal cb As LongPtr) As Long
   
   Public Declare PtrSafe Function AddressOf Lib "kernel32" _
       Alias "GetProcAddress" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr
   ' 實際需用 GetProcAddress 獲取 VBA 函數地址，或使用類模塊實現 ICallback 接口
   ' 更簡單：VBA 7+ 可用 LongPtr 傳遞函數指針
   

   完整 VBA 回調寫法較繁瑣，建議參考 「VBA Callback DLL」 成熟範例（如 VBA-Callback）。

3. VBA 回調函數更新 UI：

   Public Sub OnProgress(ByVal percent As Long, ByVal msg As String)
       UserForm1.ProgressBar1.Value = percent
       UserForm1.LabelCaption.Caption = msg
       DoEvents ' 讓 UI 重繪
   End Sub
   

替代方案（無需回調）

• 共享內存/文件：DLL 寫進度到命名管道、共享內存或臨時文件，VBA 定時器輪讀。
• COM 事件：DLL 做成 COM 組件，觸發事件，VBA WithEvents 接收（需註冊、註冊表，較重）。
• 拆分任務：DLL 提供 GetProgress()，VBA 循環調用並 DoEvents（簡單但輪詢開銷大）。

注意事項

• 回調中**不可直接操作 Excel 對象模型**（非主線程），僅更新 UserForm 控件屬性，配合 DoEvents 刷新。
• DLL 編譯為 **x64**（Office 365 64位）或 **x86**（32位 Office），位數必須匹配。
• 異常處理：DLL 內部 try-catch 轉為錯誤碼返回，避免跨邊界拋出 C++ 異常導致 VBA 崩潰。

總結

**回調函數**是 VBA 調用 DLL 實時回報進度的標準模式。關鍵在於正確獲取 VBA 函數地址傳給 DLL，並在回調中安全更新 UI。建議封裝通用回調助手類，複用於所有長任務 DLL。