Question

vba 怎么刷新数据透视表

我在excel里面做一个按钮 然后点击按钮 完成数据透视表刷新
但是我不知道代码怎么写
Private Sub Worksheet_Activate()
ActiveSheet.pivotTables("数据透视表").pivotCache.Refresh
End Sub
这段代码好像不行 请问 各位大神该怎么 写

Answer 1

使用录制宏的方法获得代码确实是好的方法，正确、全面。
但是根据实际情况，需要修改一下，因为 ActiveSheet 是经常变化的，改成以下语法试试：

Sheet1.PivotTables("数据透视表").PivotCache.Refresh
或者
Worksheets("Sheet1").PivotTables("数据透视表").PivotCache.Refresh

以上 Sheet1 要根据你的数据透视表所在工作表改动一下。

Answer 2

ActiveSheet.pivotTables("数据透视表").pivotCache.Refresh 重点是你的数据透视表的名字 pivotTables("数据透视表") 这个要仔细核对 ，名字对不上要报错