首页 > 解决方案 > 用VBA打开excel文件的最快方法

问题描述

我有一个包含大约 7600 行和很多公式的电子表格。电子表格有时可能需要几分钟才能加载。有时我只想快速检查电子表格中某个项目的日期,但这需要很长时间。我创建了一个宏,将加载时间减少到 32 秒。有什么方法可以让它比我迄今为止编码的加载速度更快吗?

Application.DisplayAlerts = False
Application.Calculation = xlManual

Workbooks.Open "foo_bar.xls", ReadOnly:=True, UpdateLinks:=False
Windows("foo_bar.xls").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
MsgBox(ActiveCell.Value)

标签: excelvbaexcel-2010

解决方案


在大家的帮助下,我找到了解决方案。使用以下代码来抑制警报、阻止计算和抑制屏幕更新。立即打开电子表格的另一个关键是修复所有损坏的链接。显然,如果有损坏的链接,这仍然会导致加载电子表格的延迟问题,尽管它被告知不要计算或更新任何引用它们的公式。

Application.DisplayAlerts = False
Application.Calculation = xlManual
Application.ScreenUpdating = False
Workbooks.Open "foo_bar.xlsx",ReadOnly:=True, UpdateLinks:=False

推荐阅读