使用VBA宏刷新Excel工作簿中的所有数据透视表

Question

我的excel文件包含30-40个数据透视表，并且更新所有数据都花费了太长时间。 有什么方法可以使用VBA宏按一下按钮来更新它吗？

如果我可以为此宏分配一个快捷键来刷新所有数据透视点，那就太好了。 一枪成交，也许吗？

Answer 1

在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)