运行时错误1004：PivotTable类RefreshTable方法刷新失败如何解决

报错原因 #

手动刷新可正常运行、逐行调试到第三个透视表触发1004报错，通常是两个核心原因导致：

• 多个数据透视表共用同一个缓存，连续调用RefreshTable时前一个缓存刷新未完成就触发下一次刷新，直接引发冲突
• 原代码使用Activate激活工作表的方式不稳定，部分场景下会导致透视表对象引用异常

修复后的代码 #

Sub RefreshPivotTables()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache
    
    ' 直接引用工作表，规避Activate带来的不稳定问题
    Set ws = ThisWorkbook.Worksheets("Overview")
    
    ' 禁用屏幕更新、弹窗提醒提升运行稳定性
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 优先使用缓存刷新：多个透视表共用缓存时仅需刷新1次，彻底避免冲突
    For Each pc In ThisWorkbook.PivotCaches
        On Error Resume Next ' 跳过无效缓存的报错
        pc.Refresh
        On Error GoTo 0
    Next pc
    
    ' 如果你确定要单独逐个刷新透视表，用下面这段替换上面的缓存循环即可
    ' For Each pt In ws.PivotTables
    '     pt.RefreshTable
    '     ' 增加等待逻辑，确保当前透视表刷新完成再执行下一个
    '     DoEvents
    ' Next pt
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

额外排查方向 #

如果修改代码后仍触发报错，可以针对第三个报错的透视表做以下检查：

• 确认该透视表的数据源是否存在隐藏行/列、合并单元格这类容易导致刷新异常的格式
• 确认该透视表没有设置受保护视图，关联的数据源也没有读写权限限制
• 确认该透视表和其他共用缓存的透视表没有设置冲突的布局/筛选选项

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