如何从数据透视表中列出数据透视表字段？

Question

我有一本包含许多工作表的工作簿，每个工作表都有多个数据透视表。我编写了代码以列出所有PT及其源数据：

Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
    .Cells(I, 1) = "Name"
    .Cells(I, 2) = "Source"
    .Cells(I, 3) = "Location"
    For Each St In ActiveWorkbook.Worksheets
        For Each pt In St.PivotTables
            I = I + 1
            .Cells(I, 1).Value = pt.Name
            .Cells(I, 2).Value = pt.SourceData
            .Cells(I, 3).Value = pt.TableRange1.Address
        Next
    Next
    .Activate
End With

结果将在文件中新的活动工作表中如下所示：

但是，在我所有的数据透视表中，我已经从箭头所示的列标签中过滤了“ Apr”，“ May”。 我想使用上面的代码显示“ 2020年财务预算”，“ 2月RPM”和“ 1月RPM”字段。我该怎么办？