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日
• 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 

這將打印任何分組項目的名稱，它的子項，到眼前的窗口。