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數據轉儲。

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