Excel 当筛选器嵌套而不是顶层时，使用VBA筛选数据透视表

当筛选器是主筛选器项的子层时，我无法使用VBA筛选数据透视表。我收到运行时错误“1004”应用程序定义的错误或对象定义的错误

我可以对主过滤器层执行此操作，但如果初始过滤器项中存在其他子类别，则无法执行此操作

Sub Pull_Volume()

Dim pt As PivotTable
Dim main As Worksheet
Dim dte As String
Dim dteFld As PivotField

Set main = ThisWorkbook.Sheets("Sheet1")
Set pt = main.PivotTables("PivotTable$A$1")
Set dteFld = pt.PivotFields("[Date].[Hierarchy].[Quarter]")

dte = ("[Date].[Hierarchy].&[2019-Q2]")

With dteFld
    .CurrentPageName = dte
End With

End Sub

第15行抛出

运行时错误“1004”应用程序定义或对象定义错误

如果我将第10行设置为：

Set dteFld = pt.PivotFields("[Date].[Hierarchy].[Year]")

第12行至：

dte = ("[Date].[Hierarchy].&[2019]")

这很有效，我会在2019年过滤。 如果我尝试在2019年（Q1、Q2、Q3、Q4）内的4个嵌套子过滤器之一的Q2上进行过滤，我会得到错误。我假设我需要在2019年和2019-Q2年进行某种同步过滤，或者使用某种数组，但这有点超出我的理解