VBA数据透视表动态筛选问题求助：无法设置PivotItems可见性

报错原因 #

你遇到的Unable to get the PivotItems property of the PivotField class错误，核心原因是数据清理后透视表缓存未同步，导致代码尝试访问的PivotItem在当前数据源中已不存在；同时固定指定代码的写法无法适配每次动态变化的数据源，这也是筛选失效的关键。

解决代码 #

替换你原有的透视表筛选代码，改用动态遍历方式自动勾选所有存在的非空代码：

Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim firstVisible As Boolean

' 定位目标透视表和字段
Set pt = ActiveSheet.PivotTables("PivotTable2")
Set pf = pt.PivotFields("Earning Reference Code")

' 刷新透视表缓存，同步最新数据源
pt.PivotCache.Refresh

' 重置筛选状态
pf.CurrentPage = "(All)"

' 标记是否已设置第一个可见项（Excel不允许全选不可见）
firstVisible = False

With pf
    ' 遍历所有透视项
    For Each pi In .PivotItems
        If pi.Name = "(blank)" Then
            ' 隐藏空白项
            pi.Visible = False
        Else
            ' 仅保留数据源中实际存在的项
            If pi.SourceNameExists Then
                If Not firstVisible Then
                    ' 先设置第一个有效项为可见，避免全不可见报错
                    pi.Visible = True
                    firstVisible = True
                Else
                    pi.Visible = True
                End If
            Else
                ' 数据源已删除的项直接隐藏
                pi.Visible = False
            End If
        End If
    Next pi
End With

关键说明 #

• 缓存刷新：pt.PivotCache.Refresh确保透视表与清理后的数据源完全同步，避免引用已被删除的无效项。
• 动态适配：通过遍历所有PivotItem，自动识别当前数据源中存在的代码，无需手动指定固定值。
• 规则兼容：用firstVisible标记保证至少保留一个可见项，符合Excel透视表的筛选规则，防止触发报错。
• 空白过滤：主动隐藏空白项，只保留有效代码选项。

内容的提问来源于stack exchange，提问作者Shaves