如何使用宏刷新Excel工作簿中的所有枢轴表?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (50)

我有一本工作簿,里面有20个不同的枢轴表。有什么简单的方法可以找到所有的枢轴表并在VBA中刷新它们吗?

提问于
用户回答回答于

ThisWorkbook.RefreshAll

或者,如果Excel版本已经足够老了,

Dim Sheet as WorkSheet, Pivot as PivotTable
For Each Sheet in ThisWorkbook.WorkSheets
    For Each Pivot in Sheet.PivotTables
        Pivot.RefreshTable
        Pivot.Update
    Next
Next
用户回答回答于

此VBA代码将刷新工作簿中的所有枢轴表/图表。

Sub RefreshAllPivotTables()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub

另一种非方案性选择是:

  • 右击每个枢轴表
  • 选择表选项
  • 勾选“重新打开”选择。
  • 单击OK按钮

这将在每次打开工作簿时刷新透视表。

扫码关注云+社区