刷新查询表VBA

我有一份Excel 2016工作簿，有两个外部数据源（都指向同一个Excel文件）

一个连接用于简单查询表，另一个连接用于透视表。我已设置VBScript，以便在此工作簿中启动宏以刷新两个外部数据源；添加时间戳并保存

除了未刷新的查询表（“X”）之外（与透视表一样也位于表2中），其他情况看起来都正常工作

ActiveWorkbook.RefreshAll

不应该更新查询表，而是专门处理透视表，还是缺少一些代码？从Excel手动运行

Data-Refresh All

也不会刷新查询表，尽管表上的

右键单击-Refresh

会刷新查询表

如何将查询表刷新合并到此代码中

Sub Update()

ActiveWorkbook.RefreshAll
Sheets("Sheet2").PivotTables("PivotTable8").PivotCache.Refresh

With Range("M12")
.Value = Now()
.NumberFormat = "dd/mm/yy hh:mm"
ActiveWorkbook.Save

End With
End Sub

---

什么版本的Excel或Office？很抱歉。Office 365软件包中的Excel 2016。请尝试在运行refreshOops之前添加Application.Calculation=xlCalculationAutomatic，我犯了一个愚蠢的错误，因为工作簿仍在进行中。我取消选中了查询表连接中的“RefreshThisConnectiononRefreshAll”复选标记，因此错过了这个选项。谢谢你的意见！