Excel参考不适用于数据透视表刷新表

Question

我有一个使用简单的VBA刷新数据透视表的按钮。

当我单击它时，我得到：

运行时错误“ 1004”：

引用无效。

当我选择“ Debug ，将突出显示以下内容：

pt.RefreshTable

完整代码：

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

谁能帮助解释我遇到的问题？

Answer 1

问题是透视表引用了已更改其外部表名称的ODBC数据转储。

更新了名称，它再次起作用。