VBA以不包括一张床单的工作簿中的所有床单刷新所有床单

Question

示例标题你好，我在9张工作簿中有枢轴表中的9张，一张纸(排序((排序(以特定顺序排列，但没有枢轴表。我只想用枢轴刷新床单。我已经使用了以下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

Answer 1

这是排除一张纸的可能方法：

Sub RefreshAllPivotTables()
    Dim PT As PivotTable
    Dim WS As Worksheet
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> "Sorted" Then
            For Each PT In WS.PivotTables
                PT.RefreshTable
            Next PT
        End If
    Next WS
End Sub