使用VBA宏在Excel工作簿中刷新所有數據透視表

我的excel文件包含30-40數據透視表，並且其耗時過長以全部更新。有沒有一種方法可以使用VBA宏按下按鈕來更新它？使用VBA宏在Excel工作簿中刷新所有數據透視表

如果我可以爲此宏指定一個快捷鍵來刷新所有的支點，那將會很好。一筆交易，也許？

2015-04-03 Sara Ariadne Fontana

可能重複http://stackoverflow.com/questions/70947/how-can-i-refresh-all-在關鍵數據的表式，我-的Excel工作簿上帶有一個宏） – Jeeped 2015-04-03 14:55:17

這將解決您的問題。

複製粘貼下面的代碼。按ALT + F11首先在Excel中打開VB編輯器。

Sub RefreshAllPivots() 
' 
' RefreshAllPivots Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+Q 
' 

ThisWorkbook.RefreshAll 

End Sub

順便說一句，您可以使用CTRL + SHIFT + Q的快捷鍵來激活全部刷新支點宏。

來源

2015-04-03 13:37:36

在Excel 2007和2010中，您可以通過按Ctrl + Alt + F5來更新它們。
Ben Michael Oracion發佈了VBA代碼，他沒有發佈的是，如果你想在觸發RefreshAll後運行一行VBA代碼，它可能會導致錯誤。由於這個原因，我提前將BackGroundQuery屬性設置爲False。

Dim piv As PivotCache 
For Each piv In ActiveWorkbook.PivotCaches 'beállítja hogy ne legyen háttérben frissítés, így nem fut bug-ra 
    piv.BackgroundQuery = False 
Next 

ActiveWorkbook.RefreshAll 'Frissít minden pivotot (és táblát)

的[我怎麼能刷新我的Excel工作簿與宏中的所有數據透視表？]（

來源

2015-04-03 14:52:00 user3819867

使用VBA宏在Excel工作簿中刷新所有數據透視表

回答

相關問題