Fatal编程技术网
  • excel/
  • Excel 如何提高刷新透视表的速度

Excel 如何提高刷新透视表的速度

excel vba

Excel 如何提高刷新透视表的速度,excel,excel-2007,vba,Excel,Excel 2007,Vba,我有这个刷新透视表数据的代码 Dim wsPT as Worksheet Dim pt as PivotTable Set wsPT = Thisworkbook.Sheets("Pivot") With wsPT For Each pt in .PivotTables pt.RefreshTable Next pt End With 工作正常，但有点慢。 我在WS中有10个PT。 如何提高更新速度？ 任何帮助都将不胜感激。这是一条单行线 ActiveWor

我有这个刷新透视表数据的代码

Dim wsPT as Worksheet
Dim pt as PivotTable

Set wsPT = Thisworkbook.Sheets("Pivot")

With wsPT
    For Each pt in .PivotTables
        pt.RefreshTable
    Next pt
End With
工作正常，但有点慢。
我在WS中有10个PT。
如何提高更新速度？
任何帮助都将不胜感激。

这是一条单行线

ActiveWorkbook.RefreshAll
或者，如果需要非VBA解决方案，则在
数据功能区中，单击
全部刷新
或按快捷键CTRL+ALT+F5

屏幕截图：


好的，我试试哪个更快。但这也将刷新其他WS中的所有其他PT。顺便说一句，非VBA不是一个选项。该代码是自动发送邮件的较大代码的一部分。我想提高速度，以免依赖于
应用程序。等待
。在更新之前尝试
应用程序。ScreenUpdate=False
，然后将其设置回
True
是的，这比
For循环
快得多。即使没有
应用程序。screenpudting
设置为
False
。但如果您在事件期间和之后禁用并启用
应用程序。屏幕更新
，则效果会显著提高。谢谢