使用 VBA 展开/折叠数据透视表中的第一个字段值

我试图得到一个只扩展行字段的第一个值的代码，不管它是什么。

Public Sub PivotTable_Collapse()

    Dim pT As PivotTable
    Dim pF As PivotField
    Dim rw As Range

    With ActiveSheet.PivotTables("PivotTable2").RowRange
    Set rw = .Rows(3)
    
    Set pT = ActiveSheet.PivotTables("PivotTable2")
   
    With pT
        For Each pF In pT.RowFields
            pF.DrillTo pF.rw 'I think this is where I need help
            
            MsgBox rw
        Next pF
    End With
    End With

这对我有用！这是下面的分辨率。

Sub ExpandFirstSchool()
'
   Dim rw As Range
     With ActiveSheet.PivotTables("PivotTable2").RowRange
        Set rw = .Rows(3)
     End With
     rw.Cells(rw.Cells.Count).Select

     rw.Cells(rw.Cells.Count).ShowDetail = True

End Sub