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

Question

我正在尝试根据单元格中的值设置数据透视表上的页面过滤器。我是vba的新手，所以我发现了一些代码。我在命令field.currentpage = newcat

上收到错误“无法设置pivotfield类的currentpage属性”

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

我做了一些研究并找到了similar question，但它从未被完全回答过。我还验证了我的控制单元B1和数据透视表的数据类型是相同的。

非常感谢任何帮助！