Question

vba 刷新数据透视表的功能

我用vba代码写了一个刷新数据透视表的代码 为什么会出现这种错误

Answer 1

刷新前请确保当前激活的工作表中存在名为 "Sheet3" 的数据透视表，以下是调整后的代码以供参考：

Private Sub Worksheet_Activate()
    Dim pvtTable As PivotTable
    
    On Error Resume Next
    
    Set pvtTable = ActiveSheet.PivotTables("Sheet3")
    
    If Not (pvtTable Is Nothing) Then
        pvtTable.PivotCache.Refresh
        Set pvtTable = Nothing
    End If
End Sub

追问

还是不行啊 你帮我解释一下 这段代码 吧 我自己搞

追答

Worksheet.Activate 是一个事件，该代码应该放在需要触发激活事件的那个工作表对象中。

' 引用当前活动工作表中名为 "Sheet3" 的数据透视表
Set pvtTable = ActiveSheet.PivotTables("Sheet3")

' 如果成功引用
If Not (pvtTable Is Nothing) Then

' 刷新该数据透视表的缓存
pvtTable.PivotCache.Refresh

追问

谢谢