vba - VBA：列出数据透视表的组项

Question

如何使用 VBA 获取数据透视表中的分组项目列表？

例如，来自http://office.microsoft.com/en-us/excel-help/group-items-in-a-pivottable-report-HP010175903.aspx#BMgroup_selected_items

我怎样才能得到

布坎南

• 2009 年 7 月 16 日
• 2009 年 7 月 23 日
• 2009 年 8 月 9 日
• ETC..

谢谢

Answer 1

我一直想知道是什么ChildItems，当我看到你的问题时，我想到了......

Sub GetGroupedItems()
Dim pt As Excel.PivotTable
Dim ptField As Excel.PivotField
Dim ptItem As Excel.PivotItem
Dim ptChildItem As Excel.PivotItem

Set pt = ActiveSheet.PivotTables(1)
For Each ptField In pt.PivotFields
    For Each ptItem In ptField.PivotItems
        If ptItem.ChildItems.Count > 0 Then
            Debug.Print ptItem.Name
            For Each ptChildItem In ptItem.ChildItems
                Debug.Print ptChildItem.Name
            Next ptChildItem
        End If
    Next ptItem
Next ptField
End Sub

这会将任何分组项目及其子项目的名称打印到即时窗口。