vba - 运行时错误 1004 'Unable to get the PivotFields property of the PivotTable class'

Question

我正在尝试使用代码来选择数据透视表中子标题之一下的所有行。我收到运行时错误 1004:

Unable to get the PivotFields property of the Pivot Table class

从此代码:

 Sub ttest()
 Dim pt As PivotTable
 Set pt = Sheets("Report").PivotTables("PivotTable1")

 pt.PivotFields("Row Labels").PivotItems("CL").DataRange.Select

 End Sub

为什么？

Answer 1

我可以添加一个额外的答案(因为我没有找到任何答案):

对于使用数据模型数据透视表的人员来说，字段名称并不明显([表名称].[字段名称].[fieldname2])。因此，我建议使用以下循环来了解数据透视表中当前有哪些字段:

Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables(ptName)

For Each pf In pt.PivotFields
    Debug.Print pf.Name
Next

这样您就可以在即时 View 中列出所有名称。