OLAP数据源：筛选数据透视表（vba）的最后13个项目

Question

我有一个数据透视表，该表仅需要显示最后13个项目（一周）。这是一个OLAP数据透视表，其中的源数据来自每周更新的其他工作簿。以下是我在这里识别出最初问题的人员（感谢Mikku！）的帮助下使用的代码。我使用下面的代码，但它仅适用于普通的数据透视表，而不适用于OLAP数据透视表。我收到“运行时错误：无法获取数据透视表类的ivotitems属性”。需要帮助将其翻译为OLAP源。 对此有帮助。谢谢！

Sub ShowLastDays()
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
Dim lCount As String

Set pf = ActiveSheet.PivotTables("WeeklyPivot").PivotFields("[FTYieldData].[Week].[Week]")

For Each pi In pf.VisibleItems
    For i = 1 To pf.PivotItems.Count
   ' lCount = pf.PivotItems.Count - 13
        If i > (pf.PivotItems.Count - 13) Then
              pf.PivotItems(i).Visible = True
        Else: pf.PivotItems(i).Visible = False
        End If
    Next i

End Sub

先前的问题是Filter Last items of Pivot table (vba)。