VBA-不打开工作簿提取数据

不打开工作簿提取数据

实现该功能的代码方式有很多种，这里介绍一种较为容易理解的方式：通过设置屏幕不更新达到模拟不打开工作簿的效果，并且将有工作簿中的数据信息复制到目前的工作表中。

Sub test()
    Application.ScreenUpdating = False '屏幕信息不更新
    Dim wb As Workbook
    Set wb = GetObject("D:\data\重庆.xlsx") '设置为要复制信息的工作簿
    With wb.Sheets(1).Range("A1").CurrentRegion '要复制数据工作表的有数据区域
        Sheet1.Range("A1").Resize(.Rows.Count, .Columns.Count) = .Value
    End With
    wb.Close False
    Application.ScreenUpdating = True
End Sub