当我尝试此代码时,我收到错误“此操作将取消挂起的刷新数据命令。是否继续?”
ActiveWorkbook.RefreshAll
即使我把Application.Wait now() + TimeValue("00:01:20")
Excel 未正确刷新。
解决方案:
“转到数据选项卡,单击连接组中的连接,单击每个连接,然后单击属性,取消选中“启用后台刷新”框。” ([电子邮件受保护] /cdn-cgi/l/email-protection,pcreview,2013)。
此错误可能是由于 Excel 过载造成的,但只能以这种方式报告。在尝试了有关“DoEvents”、“WAIT”/SLEEP”、“FOR/NEXT”循环并打开每个页面以单独刷新的所有建议后,我从 PCReview 网站发现解决方案位于数据连接属性中,而不是VBA。
一旦禁用所有后台刷新连接,简单的“Activeworkbook.RefreshAll”命令就足以更新整个工作簿;我的有 29 页,有 5 个数据连接和 7 个 SQL 数据连接。
注意:只有 SQL 数据连接允许禁用刷新。
希望这对像我一样因这个问题而头痛的人有所帮助。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)