Excel VBA刷新Power Queries连接后关闭文件未保存更新问题

问题根源：Power Query连接默认是异步刷新的——conn.Refresh仅触发刷新请求，不会等待刷新完成就执行了Close操作，导致保存的仍是未更新的旧数据。

以下是几种可行的解决方法：

方法1：禁用单连接的后台刷新（同步执行） #

修改代码，针对Power Query对应的OLEDB连接禁用后台刷新，确保刷新完成后再继续执行后续操作：

Set targetWorkbook = Workbooks.Open(filePath)

For Each conn In targetWorkbook.Connections
    ' 识别Power Query的OLEDB连接，禁用后台刷新
    If conn.Type = xlConnectionTypeOLEDB Then
        conn.OLEDBConnection.BackgroundQuery = False
    End If
    conn.Refresh
Next conn

targetWorkbook.Close SaveChanges:=True

方法2：全局刷新+等待所有任务完成 #

使用RefreshAll批量触发刷新，然后循环检查Excel的计算状态，直到所有刷新任务结束：

Set targetWorkbook = Workbooks.Open(filePath)

' 触发所有连接刷新
targetWorkbook.RefreshAll

' 等待所有刷新完成（CalculationState包含数据刷新状态）
Do Until Application.CalculationState = xlDone
    DoEvents ' 释放CPU资源，让Excel处理刷新任务
Loop

targetWorkbook.Close SaveChanges:=True

额外检查项 #

• 若你的Excel版本中Power Query连接类型不是xlConnectionTypeOLEDB，可以通过调试查看conn.Type的具体值，调整判断条件。
• 手动检查Power Query编辑器的查询设置：打开对应查询→高级选项，确认“允许后台刷新”未被勾选（脚本修改优先级高于手动设置）。

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