数据透视表 CurrentPage 属性 - 获取“应用程序定义或对象定义错误”

Question

我是 VBA 的新手（这是第 2 天！）。我正在尝试设置数据透视表过滤器以匹配组合框用户选择。我找到了一些代码，可以在选择单元格时将过滤器设置为单元格的内容，并且我通过将其放在按钮的子项中对其进行了修改，以便在单击按钮之前不会激活代码。

Sub Generate_Report()

'PLAN - Changes Plan filter value for PivotTable to value in Plan combo box, which is 
'linked to cell D9
'Set the Variables to be used
Dim pt As PivotTable
Dim PlanFilter As PivotField
Dim NewPlan As String

Set pt = Worksheets("Pivot Table").PivotTables("PivotTable_Parameters")
Set PlanFilter = pt.PivotFields("Plan")
NewPlan = Worksheets("Report Options").Range("D9").Value

'Update and refresh the PIVOT table
With pt
PlanFilter.ClearAllFilters
pt.PivotFields("Plan").CurrentPage = NewPlan
pt.RefreshTable
End With

End Sub

（我希望我能找到获取代码的页面 - 感谢在线 VBA 社区帮助我入门！）

我已更改原始代码中的一些变量名称以更好地匹配上下文。 PlanFilter 以前称为Field。 .CurrentPage 行之前读取：Field.CurrentPage=NewCat

.CurrentPage 行有问题。在我更改变量名之前它工作得很好，但是一旦我这样做了，我得到了一个“应用程序定义或对象定义”的错误。我将字段引用更改为您在此处看到的较长引用，并且它最初有效，然后没有。

Getting "Unable to set CurrentPage property of PivotField class" error 解决了使用相同代码的类似问题，但我无法在此处发表评论。我尝试了 Scott 建议的更改：

With PlanFilter
    .ClearAllFilters
    .CurrentPage = NewPlan
End With

...但我仍然收到错误消息。

有什么想法吗？

谢谢！

凯特

Answer 1

我会改变：

With pt
PlanFilter.ClearAllFilters
pt.PivotFields("Plan").CurrentPage = NewPlan
pt.RefreshTable
End With

到

With pt
  .PivotFields("Plan").ClearAllFilters
  .PivotFields("Plan").CurrentPage = NewPlan
  .RefreshTable
End With