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

Question

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

 For Each oSht In Active Workbook.Worksheets

    For Each oTab In oSht.PivotTables

      oTab.RefreshTable

    Next oTab

Next oSht

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

因此，我想为活动工作簿中的每个外部数据表刷新一个数据透视表，但是无法实现这一点......

Answer 1

您可以使用ThisWorkbook.PivotCaches集合并刷新缓存而不是每个表。