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

Question

我下面的代碼有什么問題？

我有一個錯誤

工作表的方法激活失敗

Sub addMOnth()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.Activate    
    If ws.Name <> "SUMMARY" And ws.Name <> "Store" And ws.Name <> "Apps" Then

        ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Report Date Structure].[Month].[Month]").VisibleItemsList = Array( _
        "[Report Date Structure].[Month].&[2.01711E5]")        
    End If
Next ws

End Sub

Answer 1

無需Activate ws僅過濾PivotTable 。

嘗試以下代碼，並在代碼注釋中進行解釋：

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