激活工作表时自动刷新两个PivotTable报错：RefreshTable行异常求助

看起来你遇到的问题大概率是遍历透视表时碰到了异常情况（比如数据源断开、工作表保护，或是代码细节上的小问题）。咱们来调整代码并排查问题，搞定这个报错：

优化后的代码方案 #

既然代码是写在工作表模块里的，完全没必要额外定义oSheet，直接用Me就能指代当前工作表，这样更简洁也不容易出错。另外加上错误处理，还能帮你定位到底是哪个透视表出了问题：

Private Sub Worksheet_Activate()
    Dim oPivot As PivotTable
    ' 遍历当前工作表的所有数据透视表
    For Each oPivot In Me.PivotTables
        On Error Resume Next ' 临时跳过错误，方便排查问题
        oPivot.RefreshTable
        ' 如果刷新出错，弹出提示告诉你具体是哪个透视表的问题
        If Err.Number <> 0 Then
            MsgBox "透视表 '" & oPivot.Name & "' 刷新失败：" & Err.Description
            Err.Clear
        End If
        On Error GoTo 0 ' 恢复正常错误处理逻辑
    Next oPivot
End Sub

可能的报错原因排查 #

• 数据源失效：如果某个透视表的数据源链接断了（比如原数据被删除、文件路径变更），手动刷新也会报错，你可以先手动测试一下两个透视表的刷新状态。
• 工作表保护限制：如果当前工作表处于保护状态，且没开启透视表的刷新权限，也会触发错误。可以先取消保护试试，或者在代码里临时取消保护（刷新完成后再恢复）。
• 透视表状态异常：比如透视表正在后台刷新、或是文件损坏导致透视表异常，这种情况可以尝试重新创建透视表测试。

额外的简化方案 #

如果你确定工作表里只有那两个透视表，也可以直接指定名称刷新，避免遍历可能带来的问题：

Private Sub Worksheet_Activate()
    ' 替换成你实际的透视表名称
    Me.PivotTables("PivotTable1").RefreshTable
    Me.PivotTables("PivotTable2").RefreshTable
End Sub

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