vba错误“无法设置pivotfield类的currentpage属性”

我想基于单元格中的值在透视表上设置页面filter。 我是vba的新手，所以我find了一些代码。 在命令field.currentpage = newcat出现“无法设置pivotfield类的currentpage属性”的field.currentpage = newcat

 If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub Dim pt As PivotTable Dim Field As PivotField Dim NewCat As Long Set pt = Worksheets("REPORT - Acct Plan").PivotTables("PT_Activities") Set Field = pt.PivotFields("[Activities].[BPID].[BPID]") NewCat = Worksheets("REPORT - Acct Plan").Range("B1").Value Field.ClearAllFilters Field.CurrentPage = NewCat pt.RefreshTable End With End Sub 

我做了一些研究，发现了一个类似的问题 ，但没有完全回答。 我也validation了我的控制单元格B1和数据透视表的数据types是一样的。

任何援助非常感谢！