出现“无法设置 PivotField 类的 CurrentPage 属性”错误

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 错误”的人有所帮助。

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

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

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

Answer 2

答案只是语法问题。

如果你改变：

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

到：

With Field
    .ClearAllFilters
    .CurrentPage = NewCat
End With

pt.RefreshTable

它会起作用的。

请注意，我直接使用 With Block 中的 Field。

为了进一步说明，如果您将其更改为以下内容，它也会起作用：

With pt.PivotFields(Field.Name)
    .ClearAllFilters
    .CurrentPage = NewCat
End With

pt.RefreshTable

因此，您基本上需要直接使用对象，并且需要使用. 来限定对象、属性、方法/等

Answer 3

我使用以下代码并更改了字段name和范围值：

With ActiveSheet.PivotTables("pvtTest").PivotFields("Week") 
    .ClearAllFilters 
    .PivotFilters.Add Type:=xlCaptionEquals, Value1:=ActiveSheet.Range("K1").Value 
End With

[1]http://www.ozgrid.com/forum/showthread.php?t=169855

Answer 4

我遇到了类似的问题，并找到了一个对我有用的解决方案，因为上述方法似乎都没有。这就是我要改变的：

NewCat = Worksheets("Interface").Range("C3").Value

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

收件人：

NewCat = Array("[Range].[Site].&[" & Worksheets("Interface").Range("C3").Value & "]")

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

Answer 5

我在这里尝试了几个答案，但都没有运气。然后，我在 PivotField 下的 PivotItems 集合中运行了一个循环，以检查 Locals 窗口中的 PivotItems 属性。

如果您首先将字段设置为像 myField 这样的变量，那么您可以这样循环：

For Each pItem in myField.PivotItems
    debug.print "Item Caption: """ & pItem.Caption """"
    debug.print "Item Name: """ & pItem.Name """"
Next

这表明我的字段末尾有多余的空格，所以我试图在过滤器中设置的值与我的列表中的值不完全一样。

这导致了多值选项：

For Each pItem In myField.PivotItems
    If Not pItem.Caption Like myFilterValue & "*" Then
        pItem.Visible = False
    Else
        pItem.Visible = True
    End If
Next

但是，因为我真的只想要一个值，所以我回去处理不需要的空格。

可能还有其他事情，但这可能是需要检查的一件事。

Answer 6

删除NewCat 的变量声明对我有用。删除该行或将其注释掉

'Dim NewCat As String