Vb.net Excel参考号为'；数据透视表无效

我有一个按钮，它使用简单的VBA刷新透视表

当我点击它时，我得到：

运行时错误“1004”：

引用无效

当我选择“调试”时，将突出显示以下内容：

茶几

完整代码：

Sub Refresh_pivot()

    Sheets("Control").Select
   
    Application.ScreenUpdating = False
    Dim pt As PivotTable
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
    
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next pt
        
    Next ws
    
       
    Application.ScreenUpdating = True
    Application.Goto Reference:="returncell"
    Range("A15").Select
    
End Sub

---

有人能帮我解释一下我遇到的问题吗？

问题是一个数据透视表引用了一个ODBC数据转储，该数据转储已更改了其外部表名

---

更新了名称，它再次工作。

可能数据透视表的源不再有效。您是否尝试在选择相关透视表时手动单击刷新按钮？