VBA：按名称而不是索引号引用数据透视表

Question

我有一个简单的问题。在 VBA 中通过 name 而不是索引号引用数据透视表的语法是什么？

例如，我可以这样写：

With ThisWorkbook.Worksheets("Sheet1").PivotTables(1).PivotFields("InvestorNumber") End With

但我需要这样写：

With ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1").PivotFields("InvestorNumber") End With

虽然“数据透视表1”肯定存在于此工作表上并且数据透视表的名称肯定是“数据透视表1”，但以第二种方式编写错误-“下标不在范围内”

对语法有什么问题有任何想法吗？

MSDN 说它可以通过名称来引用，但没有给出你如何做到这一点的示例。

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/pivottables-object-excel

谢谢

Answer 1

我找到了问题的答案。我仍在使用索引号来引用工作表，这引发了错误。所以这不起作用：

With ThisWorkbook.Worksheets(1).PivotTables("PivotTable1").PivotFields("InvestorNumber") End With

虽然看起来这确实有效：

With ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1").PivotFields("InvestorNumber") End With

如果您想在对象引用中使用名称而不是索引号，则必须为所有成员使用名称；您显然不能混合使用索引和名称。