如何使用VBA刷新Power Query？解决RefreshAll刷新PQ失效问题

• Power Query连接默认开启后台刷新，VBA触发刷新命令后会直接执行后续代码，不会等待刷新完成，原代码里写的固定3秒等待完全不可靠，数据量稍大就会出现还没刷完就保存关闭的情况。
• 直接调用ActiveWorkbook.RefreshAll和手动点击功能区「全部刷新」的执行逻辑不一致，部分Excel版本中VBA调用该方法会直接跳过Power Query类型的连接，导致完全不触发刷新。
• 原代码里写的ActiveWorkbook.Query("GetStatData").Refresh存在语法错误：Queries集合的正确写法是ActiveWorkbook.Queries(索引/名称)，且Query对象本身没有Refresh方法，PQ刷新必须通过其绑定的连接对象触发。
• 全程用ActiveWorkbook、ActiveWindow这类随窗口焦点变化的对象操作文件，宏运行时如果焦点切到其他工作簿，会直接操作错目标文件。

Sub RefreshQuery()
    Dim File As String
    Dim MyWorkBook As Workbook
    Dim cn As WorkbookConnection
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False ' 关闭屏幕更新，提升运行速度
    
    File = "C:\Users\User1\Desktop\MyFile.xlsx"
    Set MyWorkBook = Workbooks.Open(File)
    
    MyWorkBook.Queries.FastCombine = True ' 全局忽略隐私级别校验
    
    ' 遍历所有连接，关闭后台刷新后同步执行刷新
    For Each cn In MyWorkBook.Connections
        If cn.Type = xlConnectionTypeOLEDB Or cn.Type = xlConnectionTypeODBC Then
            With cn.OLEDBConnection
                .BackgroundQuery = False ' 核心设置：关闭后台刷新，等待刷新完成再执行后续代码
                .Refresh
            End With
        End If
    Next cn
    
    ' 所有查询刷新完成后再保存
    MyWorkBook.Save
    
    ' 恢复Excel默认配置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    ' 关闭目标工作簿
    MyWorkBook.Close
End Sub

• 不需要手动写死单个PQ连接的名称，上述遍历逻辑会自动处理文件内所有Power Query查询的刷新，不会遗漏。
• 不需要加固定时长的等待逻辑，设置BackgroundQuery = False后，VBA会自动阻塞等待当前连接刷新完成再执行下一行，适配任意数据量的刷新场景。
• 代码全程用提前定义的MyWorkBook对象操作目标文件，完全不依赖活动窗口、活动工作簿这类不稳定的对象引用，不会出现操作错文件的问题。
• 如果运行时弹出隐私级别相关提示，可提前在目标文件的Excel选项-信任中心-隐私选项里，取消勾选「更新时检查隐私级别」，和代码里的FastCombine设置配合即可彻底跳过该提示。

内容的提问来源于stack exchange，提问作者mustafa00