我是新的VBA和我正在开发一个代码，其中我想添加到一个透视表过滤器的所有项目，不包括只有代码“01”每次。

pt6.PivotFields("[Data Pull  2].[something_here456].[something_here456]").visibleItemsList = Array( _
  "[Data Pull  2].[something_here456].&[02]", _
  "[Data Pull  2].[something_here456].&[03]", _
  "[Data Pull  2].[something_here456].&[04]", _
  "[Data Pull  2].[something_here456].&[06]", _
  "[Data Pull  2].[something_here456].&[07]", _
  "[Data Pull  2].[something_here456].&[NULL]")

字符串
这段代码的问题是，当我将这段代码应用到另一个文件时，其中一个项（例如，“06”）可能不存在，代码中断。所以我想有一些东西，只排除01和激活其他一切。我尝试了我在网上看到的所有东西，比如“可见=假”，但它仍然给我一个错误。请帮助我我的朋友
还尝试，例如：

With ActiveSheet.PivotTables("PivotTable6").PivotFields("something_here456). _
   CurrentPage = "(ALL)"

With ActiveSheet.PivotTables("PivotTable2").PivotFields("something_here456")
   .PivotItems("01").Visible = False

End with

型