刷新查询表VBA

Question

我有一个带有2个外部数据源的Excel 2016工作簿（都朝向同一个Excel文件）。

一个连接用于简单查询表，另一个用于数据透视表。我已经设置了VBScript来在这个工作簿中启动一个宏来刷新外部数据源;添加时间戳＆amp;保存。

除了未刷新的查询表（＆＃34; X＆＃34;）之外，事情看起来正在起作用（也与数据透视表一样位于工作表2中）。

ActiveWorkbook.RefreshAll 不应该更新查询表，但是只使用数据透视表，还是我错过了一些代码？尽管桌面上有Data - Refresh All，但从Excel手动运行Right click - 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