VBA跨文件刷新Power Query时，批量运行无法显示Queries and Connections栏

问题原因 #

单步执行时Excel会逐行处理UI更新事件，命令栏能正常显示；但批量运行时代码执行速度快，UI更新被后台延迟，再加上新打开的工作簿未激活，导致命令栏的显示设置无法作用到目标窗口。

修正后的代码 #

If Sheets("Dashboard").Cells(2, 20) = True Then
    Application.ScreenUpdating = True
    Set wb1 = Workbooks.Open("C:\test.xlsm")
    ' 激活目标工作簿，确保命令栏设置生效
    wb1.Activate
    ' 显示并调整Queries and Connections面板
    Application.CommandBars("Queries and Connections").Visible = True
    Application.CommandBars("Queries and Connections").Width = 300
    ' 强制Excel处理UI刷新事件
    DoEvents
    ' 刷新查询
    wb1.Sheets("table1").ListObjects(1).QueryTable.Refresh BackgroundQuery:=False
    wb1.Save
    wb1.Close
End If

关键调整点 #

• 激活目标工作簿：命令栏的显示状态与当前激活的窗口绑定，激活后设置才能作用到刚打开的文件窗口。
• 添加DoEvents：强制Excel暂停代码执行，优先处理未完成的UI渲染事件，确保命令栏及时显示。
• 调整ScreenUpdating位置：提前开启屏幕更新，避免打开工作簿时的UI抑制影响后续设置。

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