Excel參考無效數據透視表RefreshTable

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數據轉儲的數據透視表更改了外部表名。

更新了名稱，它再次運行。