Question

EXCEL用怎么用VBA自动刷新透视表

请详细指出以下问题，我生手

Answer 1

请参考如下代码：
Private Sub Worksheet_Activate()
Dim myPivot As PivotTable
For Each myPivot In Me.PivotTables
myPivot.RefreshTable
Next
Set myPivot = Nothing
End Sub

追问

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表").PivotCache.Refresh
End Sub
能解释下和这段代码的功能区别吗？您的不需要更新透明表名称，真好！

Answer 2

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll '刷新工作簿中所有数据透视表
End Sub