Vba 每当选择图纸时，刷新图纸上的两个数据透视表

一张工作表上有两个数据透视表，我希望在工作表打开时自动刷新。我把这个宏放在那张纸里了。但是，我在这一行“oPivot.RefreshTable”上遇到了一个错误

此方法适用于：

Private Sub Worksheet_Activate()

Dim oPivot As PivotTable
Dim xlsheet As Worksheet

Set xlsheet = ActiveSheet

For Each oPivot In xlsheet.PivotTables
    oPivot.PivotCache.Refresh
Next oPivot 

End Sub

---

您能否尝试使用无法正常工作的

oPivot.PivotCache.Refresh

“下一个pivot\u table”行突出显示并说明错误消息（下一个控制变量引用无效）。有什么想法吗？将其更改为

Next oPivot

Updated，忘记更改最后一个变量名称

Private Sub Worksheet_Activate()

Dim oPivot As PivotTable
Dim xlsheet As Worksheet

Set xlsheet = ActiveSheet

For Each oPivot In xlsheet.PivotTables
    oPivot.PivotCache.Refresh
Next oPivot 

End Sub