VBA-工作表的方法激活失败？

我下面的代码有什么问题

我犯了个错误

工作表的方法激活失败

Sub addMOnth（）
将ws设置为工作表
对于ActiveWorkbook.Worksheets中的每个ws
ws.Activate
如果ws.Name“摘要”和ws.Name“存储”以及ws.Name“应用程序”，那么
数据透视表（“数据透视表1”）。数据透视字段（_
“[报告日期结构].[月].[月]”。VisibleItemsList=数组（_
“[报告日期结构][月份]和[2.01711E5]”）
如果结束
下一个ws
端接头

无需激活

ws

，只需过滤

数据透视表即可

请尝试下面的代码，并在代码注释中进行解释：

Sub addMOnth()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    With ws
        Select Case .Name
            Case "SUMMARY", "Store", "Apps"
                ' do nothing

            Case Else ' equivalent to your If with multiple AND
                .PivotTables("PivotTable1").PivotFields( _
                    "[Report Date Structure].[Month].[Month]").VisibleItemsList = Array( _
                    "[Report Date Structure].[Month].&[2.01711E5]")
        End Select            
    End With
Next ws

End Sub

Sub addMOnth()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    With ws
        Select Case .Name
            Case "SUMMARY", "Store", "Apps"
                ' do nothing

            Case Else ' equivalent to your If with multiple AND
                .PivotTables("PivotTable1").PivotFields( _
                    "[Report Date Structure].[Month].[Month]").VisibleItemsList = Array( _
                    "[Report Date Structure].[Month].&[2.01711E5]")
        End Select            
    End With
Next ws

End Sub