vb.net - Excel 引用对数据透视表 RefreshTable 无效

Question

我有一个使用简单 VBA 刷新数据透视表的按钮。
当我点击它时，我得到:

Run-time error '1004':

Reference isn't valid.

当我选择 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 数据转储。

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