如何获得枢轴项目索引，知道它的名字

Question

如何在 VBA 中获取枢轴项索引知道枢轴项的名称？

我想得到相反的结果：

ActiveSheet.PivotTables(1).PivotFields("MyFiledName").PivotItems(10).Name

知道item名称是“Something”，我想获取索引：

.PivotItem(THISNUMBER).Name

更新。 按照 Marco Getrost 的回答，我最终遇到了错误。可以使用example file 复制它。我不断收到“错误 2042”。我没有收到错误的唯一情况是当我选择 PageFilter 上的项目作为唯一项目（未启用多选） - 在这种情况下，我总是得到位置编号 1。

在示例文件中，我想获取 Name="6" 的项目的位置编号，这显然是 7。

Answer 1

试试这个：

Sub test()

Dim pvItem As PivotItem
Dim c as Long

For Each pvItem in ActiveSheet.PivotTables(1).PivotFields("MyFiledName").PivotItems

c = c+1
If pvItem.Name = "Something" Then Exit For

Next pvItem

'THISNUMBER = c

End Sub

编辑：在查看了官方documentation（这真的很有帮助）后，答案是肯定的，这就是：

THISNUMBER = ActiveSheet.PivotTables(1).PivotFields("MyFiledName").PivotItems("Something").Position