VBA冻结屏幕更新

Question

马上使用Excel 2010运行宏，但是“Screen Updating = False”在这种情况下无效 -

我有一张Excel表格，其中有一些有吸引力的格式，我会显示一些统计数据。我有一个访问外部程序（CMS）的宏，每分钟下载几次更新的统计数据。宏关闭屏幕更新，访问CMS，复制数据，将其粘贴到工作簿中的另一个工作表，然后恢复屏幕更新。这个想法是这个工作表的实时馈送将播放给人们，统计数据似乎每隔几秒就会神奇地更新。

我遇到的问题是，每次拉取CMS数据时，屏幕中间都会弹出一个小的加载栏窗口。即使Excel屏幕更新已关闭，我也没有找到隐藏或移动此加载栏的方法。我不希望流每次更新时都会出现加载栏并且会延迟。

我想要做的是在访问数据时冻结 Windows'屏幕一秒钟。是否有我可以使用的内置库，或者我可以在函数开始时调用的其他语言脚本在运行时冻结Windows显示，并在完成后恢复它？

Answer 1

您可以尝试：

Application.DisplayAlerts = False
Application.EnableEvents = False

并在代码执行完毕后再次将它们重新打开