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

Question

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

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

我怎样才能得到

布坎南

• 7/16/2009
• 7/23/2009
• 8/9/2009
• 等等。

谢谢

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

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