工作表(“名称”)。刷新

为什么不循环查看您的工作簿,并在这些特定的工作表上计算 和 是否刷新数据透视表?如果表不在同一个工作表上,可以调整代码以循环透视表并以这种方式刷新,而不是在“每个工作表”循环中。

Sub t()
Dim ws As Worksheet
Dim pvt As PivotTable

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name = "Sheet4" Or ws.Name = "Sheet2" Then
        ws.Calculate
        For Each pvt In ws.PivotTables
            pvt.RefreshTable
        Next pvt
    End If
Next ws

End Sub