在这篇文章中，我将告诉你如何能够 在Excel中用VBA刷新你的工作表或工作簿的所有透视表。 你还将学习到 刷新单个透视表 ，以及 透视表 缓存。

在Excel中用VBA刷新所有数据透视表(快速浏览)

 Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 

这将刷新所有 透视表 的活动工作簿。

下载实践工作手册

下载这本练习手册，在阅读本文时进行练习。

在Excel中用VBA刷新所有透视表的4种方法

A 透视表 是Excel工作表中的一种特殊类型的表格，包含两类数据，标题为 行 和 价值 分别是。

表格的所有栏目都被归入这两类。

如果你选择了一个数据集并转到 Insert> PivotTable 选项在Excel工具条上。

今天，我们的目标是学习如何能够刷新所有的 透视表 的工作表或工作簿上有 VBA 在Excel中。

1.在Excel中刷新单一透视表

首先，我们将学习如何刷新一个单一的 透视表 .

要刷新一个单一的 透视表 ，首先，你必须把它作为一个 数据透视表（PivotTable 对象。

那么你必须使用 刷新表格 的方法 VBA .

在这里，我们有一个 透视表 叫做 PivotTable1 (点击这里了解更多信息)。 如何获得透视表的名称 ).

为了刷新它，我们必须使用以下几行代码。

 Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 

运行该代码，它将刷新 透视表 叫做 PivotTable1 在活动的工作表中。

阅读全文：如何在Excel中自动刷新数据透视表（2种方法）

2.刷新Excel中工作表的所有透视表

现在我们将刷新所有的 透视表 的工作表上有 VBA .

要刷新所有 透视表 的工作表，你必须遍历每个 透视表 的。 ActiveSheet.PivotTables 对象，然后使用 刷新表格 方法。

 Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 

运行该代码，它将 刷新所有的透视表 的活动工作表。

阅读更多。 数据透视表不刷新（5个问题& 解决方案）

3.刷新Excel工作簿中的所有透视表

你也可以刷新所有 透视表 的一个工作簿在Excel中。

要刷新所有 透视表 在活动的工作簿中，通过以下方式遍历每个表 ActiveWorkbook.PivotTables 的对象。 VBA 然后使用 刷新表格 方法。

 Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 

这段代码将刷新所有 透视表 的活动工作簿。

阅读全文：当源数据发生变化时如何自动更新数据透视表

4.在Excel中用VBA刷新数据透视表缓存

如果你有多个 透视表 在你的工作簿中，如果使用相同的数据，你最好刷新一下 透视表缓存 而不是刷新 透视表 .

要刷新 透视表缓存 ，遍历每个 透视表缓存 的活动工作簿，由 ActiveWorkbook.PivotCaches 对象。

然后使用R 鲜食 的方法 VBA .

 Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 

它将刷新所有 透视表缓存 从活动的工作簿中删除。

阅读更多。 如何在Excel中不用VBA自动刷新数据透视表（3种聪明方法）

需要记住的事情

在这里，我们已经显示出要刷新 透视表 如果你想从非活动的工作簿或工作表刷新数据，请使用工作表或工作簿的名称来代替 活动表 或 活跃的工作簿 对象。

例如，要刷新所有 透视表 从 第1张 ，使用 For Each Table In Worksheets("Sheet1").PivotTables .

而且要从 工作手册1 ，使用 For Each Table In Workbooks("Workbook1").PivotTables .

总结

使用这些方法，你可以刷新所有 透视表 从一个工作表或工作簿中用 VBA 您有任何问题吗？ 请随时向我们提问。