在vba中创建数据透视表过滤器时出错

Question

我正在尝试为我的数据透视表添加一个过滤器，它只会在数据透视表中显示“我想要过滤的字符串”，这就是我目前基于类似问题的过滤器：

Dim apap As String
apap = Worksheets("Sheet1").Range("G3").Value

Dim Field As PivotField
Set Field = PTable.PivotFields("test")

With Field
.ClearAllFilters
.CurrentPage = apap

End With
PTable.RefreshTable

但是当我尝试运行宏的这一部分时，我得到运行时错误1004：无法设置PivotField类的CurrentPage属性。有关如何解决此问题的任何想法？另外我更喜欢如果我可以有一个静态过滤器“我希望过滤的字符串”而不是对它的引用，但我将采取我能得到的。