代码之家 › 专栏 › 技术社区 › ElectroMotiveHorse

用VBA打开Excel文件的最快方法

excel-2010 excel-vba

ElectroMotiveHorse · 技术社区 · 6 年前

我有一个大约有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)

3 回复 | 直到 6 年前

ElectroMotiveHorse 6 年前

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

Davesexcel 6 年前

Sub GetIt()
    Dim wb As Workbook, sh As Worksheet, LstRw As Long
    Set wb = Workbooks.Open("C:\Users\dmorrison\Downloads\foo_bar.xlsx")
    With wb
        Set sh = Sheets(1)
        With sh
            LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row
            MsgBox .Range("A" & LstRw).Value
        End With
        .Close
    End With
End Sub

ryguy72 6 年前

推荐文章

Mayank Awasthi · 将linux命令输出到exvel

3 年前

Nathan · 使用Windows Server 2012时,VBA崩溃,但没有神奇的停止

6 年前

doctorjay · SAS/PROC FREQ表格-如果频率小于给定值,是否可以抑制频率和百分比?

6 年前

LordBalogh · 删除时重新恢复公式

7 年前

Clément Hurel · 如何为两个日期之间的所有日期每行指定一个日期?

7 年前

PWJP · 我正在尝试将行高从一张图纸复制到另一张图纸

7 年前

StillLearningHowtoCode · 打开Microsoft Excel文件时执行Microsoft Access Autoexec宏

7 年前

Deepak · 使轴项目在固定范围内可见

7 年前

Damiano · Excel SUMIF索引匹配问题

7 年前

nouptime · 下拉列表从相邻列获取值

7 年前