使用VBA将Excel同一工作表中多个数据透视表更新为昨日日期

你遇到的核心问题是页字段（PageField）不能通过PivotFilters.Add方法设置筛选，页字段有专门的CurrentPage属性来指定筛选值，另外原代码的字段匹配逻辑和日期格式处理也存在隐患，以下是修正方案：

报错原因分析 #

1. 页字段的筛选逻辑和普通行/列字段不同，xlCaptionEquals这类筛选类型不适用于页字段，强行调用会触发错误
2. 原代码默认取第一个页字段作为日期字段，若透视表结构变化会导致找错字段
3. 用字符串格式传递日期，容易和透视表内日期的存储/显示格式不匹配，引发筛选失败

修正后的代码 #

Sub UpdatePivotDateFilter()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim yesterdayDate As Date
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Sheets("Pivots -1")
    
    ' 计算昨日日期
    yesterdayDate = Date - 1
    
    ' 遍历工作表内所有数据透视表
    For Each pt In ws.PivotTables
        ' 按名称查找日期页字段（避免依赖字段顺序）
        On Error Resume Next
        Set pf = pt.PageFields("Date")
        On Error GoTo 0
        
        ' 确认找到目标字段后执行筛选
        If Not pf Is Nothing Then
            pf.ClearAllFilters
            
            ' 优先用日期值直接设置，兼容大多数情况
            On Error Resume Next
            pf.CurrentPage = yesterdayDate
            
            ' 若直接设置失败，按透视表的日期格式转换后重试
            If Err.Number <> 0 Then
                pf.CurrentPage = Format(yesterdayDate, pt.PivotFields("Date").NumberFormat)
            End If
            On Error GoTo 0
        End If
    Next pt
End Sub

关键修改说明 #

• 字段匹配优化：按字段名称"Date"查找页字段，不再依赖字段顺序，适配透视表结构变化
• 筛选方式修正：用页字段专属的CurrentPage属性设置筛选，替代错误的PivotFilters.Add方法
• 日期格式兼容：优先使用日期类型变量传递值，避免字符串格式不匹配问题；添加容错逻辑，自动适配透视表的日期显示格式
• 错误处理：添加临时错误捕获，避免因单个透视表异常导致整个宏终止

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