Excel VBA：仅为每个外部数据源刷新一个透视表

好的，我有以下代码来刷新活动工作簿中的所有透视表：

 For Each oSht In Active Workbook.Worksheets

    For Each oTab In oSht.PivotTables

      oTab.RefreshTable

    Next oTab

Next oSht

但是，我觉得这是低效的，因为当您刷新一个数据透视时，它会自动刷新连接到同一数据表的所有其他数据透视

---

因此，我只想为活动工作簿中的每个外部数据表刷新一个数据透视表，但无法找到实现此功能的方法…

您可以使用

此工作簿。数据透视缓存

集合并刷新缓存，而不是刷新每个表