Excel VBA中WorkbookConnection.Refresh在Windows崩溃但Mac正常的Power Query问题排查及优化咨询

这种跨机器的无提示闪退问题真的挺闹心的，明明资源充足、代码在Mac和部分Windows机器上都正常，却在特定配置上直接崩掉。结合你的描述，我来梳理下可能的原因，以及更稳定的刷新方案：

一、可能导致Windows端独有的崩溃原因 #

• Excel版本/更新补丁的隐性差异：即使都是64位版本，Excel 2021和365的Power Query底层引擎逻辑可能存在差异；就算是365，不同更新通道（月度/半年度/预览版）的补丁也可能有区别——部分旧补丁可能存在Web请求的线程冲突或内存泄漏问题，而Mac的Power Query更新节奏和Windows不同，避开了这个bug。
• 线程调度的跨平台差异：Windows和Mac的Excel处理Power Query刷新的线程模型不一样，当VBA主线程更新状态栏后立刻调用Refresh，可能和Power Query的后台线程出现资源竞争，导致崩溃。Mac的线程调度机制更宽松，刚好避免了这个冲突。
• 系统级网络组件兼容性问题：Windows下Power Query依赖的WinHTTP或系统网络组件（比如旧版Windows 10的WinHTTP.dll）可能和Excel 365不兼容，而Mac用的是系统原生网络框架，没有这个问题。另外，就算你关了杀毒软件，Windows底层的网络过滤组件（比如Defender的网络保护）可能还在干扰Web请求处理。
• 连接名称的特殊字符解析冲突：你的崩溃连接名称是"Query - Query (2)"，Windows下Power Query对带括号的名称可能存在解析bug——Mac的字符串处理逻辑对特殊字符更宽容，而Windows底层的命名解析可能出现上下文混乱，导致刷新时直接崩溃。
• Power Query本地缓存损坏：Windows端的Power Query缓存（路径为%localappdata%\Microsoft\Power Query）可能存在残留的损坏文件，旧机器（比如那台8年的游戏PC）的缓存更可能积累这类问题，而Mac的缓存位置和机制不同，没受影响。

二、更稳定的Power Query刷新优化方案 #

1. 异步刷新+线程让出，避免资源竞争 #

默认的Refresh是同步调用，容易和VBA主线程出现资源冲突，改成后台刷新并等待完成，同时让出主线程资源：

' 需在模块顶部添加声明（仅Windows有效）
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub ActualiserQuery2UneSeuleFois()
    If Not EstConnecteInternet() Then Exit Sub
    
    ' Update status bar + 缓冲时间
    Application.StatusBar = "Actualisation initiale de Query2..."
    DoEvents ' 让Excel完全更新状态栏
    Sleep 300 ' 延迟300毫秒，给系统缓冲
    
    ' Find Query2 connection
    Dim connexionTrouvee As WorkbookConnection
    Set connexionTrouvee = Nothing
    For Each conn In ThisWorkbook.Connections
        If conn.Name = "Query - Query (2)" Then
            Set connexionTrouvee = conn
            Exit For
        End If
    Next conn
    
    If Not connexionTrouvee Is Nothing Then
        ' 启用后台刷新，避免主线程阻塞
        connexionTrouvee.OLEDBConnection.BackgroundQuery = True
        connexionTrouvee.Refresh
        
        ' 等待刷新完成，同时更新状态
        Do While connexionTrouvee.OLEDBConnection.Refreshing
            DoEvents
            Application.StatusBar = "Actualisation en cours... (" & Format(Now(), "hh:mm:ss") & ")"
        Loop
        Application.StatusBar = "Actualisation terminée !"
    End If
    Application.StatusBar = False ' 恢复状态栏
End Sub

2. 直接操作Power Query原生查询对象，绕开Connection包装 #

WorkbookConnection是上层包装，直接调用Power Query的WorkbookQuery对象刷新，可能更稳定：

Public Sub ActualiserQuery2Direct()
    If Not EstConnecteInternet() Then Exit Sub
    
    Application.StatusBar = "Actualisation initiale de Query2..."
    DoEvents
    Sleep 300
    
    Dim qry As WorkbookQuery
    For Each qry In ThisWorkbook.Queries
        ' 注意这里是查询的原始名称，不是Connection名称
        If qry.Name = "Query (2)" Then
            qry.Refresh
            Exit For
        End If
    Next qry
    
    Application.StatusBar = "Actualisation terminée !"
    Application.StatusBar = False
End Sub

3. 清理Power Query缓存（针对崩溃机器） #

• 完全关闭Excel
• 打开文件资源管理器，输入%localappdata%\Microsoft\Power Query
• 删除该文件夹下所有文件和子文件夹
• 重新打开Excel测试刷新

4. 统一Excel更新通道 #

确保所有Windows机器使用同一个Excel更新通道（比如月度企业通道），并安装最新的官方补丁，修复可能存在的已知bug。

三、额外排查步骤 #

• 简化文件测试：新建空白工作簿，只导入Query (2)这个连接，用你的VBA代码刷新。如果不崩溃，说明是多连接的上下文冲突；如果仍崩溃，证明是该查询本身和Windows Power Query引擎不兼容。
• 替换Web请求方式：暂时用VBA原生WinHTTP直接请求Frankfurter API，把数据写入工作表，替代Power Query连接。如果这样不崩溃，就可以确定是Power Query的Web连接组件存在兼容性问题。
• 查看系统崩溃日志：打开Windows事件查看器 → 「Windows日志」→「应用程序」，查找Excel的崩溃事件（来源为Application Error），查看故障模块名称（比如Microsoft.Mashup.OleDbProvider.dll），可以精准定位底层问题组件。

内容来源于stack exchange