vba - 出现 "Unable to set CurrentPage property of PivotField class"错误

Question

我正在尝试使用 VBA 根据用户从单元格条目中的选择自动更新数据透视表过滤器。我相信直到第 11 行“Field.CurrentPage = NewCat”为止一切都正常工作。这就是问题所在。该代码按照上一行中的指示清除了我的过滤器，但是当它到达指示它选择新数据的代码时，我收到错误消息“运行时错误 1004。无法设置 PivotField 类的 CurrentPage 属性”。

下面是我到目前为止所得到的内容，我只是想知道如何修改第 11 行，以便它选择要在数据透视表过滤器中使用的新输入。我很感激我能得到的任何帮助。我对 vba 很陌生，并且已经为此苦苦挣扎太久了!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("C3:C4")) Is Nothing Then Exit Sub

Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

Set pt = Worksheets("Pivot").PivotTables("PivotTable1")
Set Field = pt.PivotFields("[Range].[Site].[Site]")
NewCat = Worksheets("Interface").Range("C3").Value

With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With

End Sub

Answer 1

希望这对尝试设置 PivotField 类的“CurrentPage”属性时遇到相同“1004 错误”的人有益。

对我来说，当我用“CurrentPageName”替换“CurrentPage”属性时，它终于起作用了:

With pf
  .ClearAllFilters
  MsgBox "The PivotField is: " & pf.Value
  MsgBox "The current PivotField value is: " & .CurrentPageName
  .CurrentPageName = NewCat
End With

我的数据透视表有所谓的“页面级过滤器”: enter image description here