excel - Power Pivot 表 - 循环遍历报表过滤器中的字段

Question

免责声明:此问题发布于 msdn forum但由于我没有得到任何回复(令人惊讶)，我也将其交叉发布在这里。在尝试回答此问题之前，您可能需要检查该链接。如果该链接中发布了解决方案，我不希望您浪费时间:)

问题:我想找出报告过滤器中的字段名称。所以我正在寻找 RegionCountryName、Cityname 和 ProductKey。报告过滤器是动态的并且可以改变。

屏幕截图:

我尝试了什么:我已经检查了 Power Pivot 的每个属性，但没有找到可以让我循环遍历 Power Pivot 字段的属性。

我什至尝试过这段代码，但它显然在 Set pf = pt.PageFields(1)

上给了我一个错误

Sub Sample()
    Dim pt As PivotTable, pi As PivotItem, pf As PivotField
    Dim lLoop As Long

    Set pt = Sheet1.PivotTables(1)
    Set pf = pt.PageFields(1)

    For Each pi In pf.PivotItems
        Debug.Print pi.Name
    Next pi
End Sub

错误屏幕截图

那我错过了什么？或者我应该采取不同的方法？

编辑

如果有人想尝试一下，可以从HERE下载该文件。我正在查看库存表。

Answer 1

经过一些测试，似乎您可以通过列出 PivotFields 并检查其 Orientation 属性的值是否等于 XlPageField 来获取页面过滤字段的列表。尝试下面的代码:

Sub Test()
    Dim pt as PivotTable
    Dim pf as PivotFields
    set pt=Sheets("test").PivotTables(1)
    For each pf in pt.PivotFields
        If pf.Orientation=xlPageField Then 
            Debug.Print  pf.Name
        End If
    Next pf
End Sub

希望这有帮助