Question

Sample Heading 您好，我的工作簿中有6张数据表中有9张，而且有一张（已排序）列按特定顺序排列，但没有数据透视表。我想仅使用Pivot刷新工作表。我使用了下面的VBA，但它重新排列了Sorted工作表中的列。以下是代码

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

VBA刷新工作簿中的所有工作表，不包括一个工作表

1 个答案: