在Microsoft Excel中查找丟失的數據透視表

Question

在Microsoft Excel中，當刷新我的數據源（單擊「數據」選項卡下的「連接」塊中的「全部刷新」）時，它向我提供一條消息，找到數據透視表的數據源 - 這是可以理解的，因爲我刪除了包含數據的表單。

現在的問題是找到特定的數據透視表來刪除它，因爲我不想每次刷新我的數據源時都收到消息。

任何想法？

Answer 1

作爲一個簡單的一次性測試，我認爲這將對您有用。它顯示一條消息並選擇違規數據透視表。只要把這個代碼模塊中與數據透視表的工作簿：

Sub FindDatalessPivot() 
Dim ws As Excel.Worksheet 
Dim pt As Excel.PivotTable 

For Each ws In ThisWorkbook.Worksheets 
    For Each pt In ws.PivotTables 
     With pt 
      On Error Resume Next 
      .RefreshTable 
      If Err.Number <> 0 Then 
       ws.Activate 
       .DataBodyRange.Select 
       MsgBox .Name & " in " & ws.Name & " is disconnected." 
      End If 
      On Error GoTo 0 
     End With 
    Next pt 
Next ws 
End Sub 

當然，你可以自己動手完成這項作業，通過單獨刷新每個樞軸表。

我還注意到，至少在Excel 2010中，當我刷新所有對話框時彈出告訴我哪個數據透視表沒有連接。