【VBA技巧】不打开Excel读取数据

原文链接：https://mp.weixin.qq.com/s/5Pje8v2bmHYZcnYgmYnyjQ

如果是手工提取数据，通常是打开文件在复制粘贴。换用VBA则可以快速打开后马上复制好，能节省不少时间和精力。

Workbooks.Open可以很方便地打开文件，但是当需要操作的文件过多的时候，状态栏堆满了打开的文件也不好看。下面介绍两种不用打开文件就能提取数据的方法。

方法一

Sub GetData_1()
    Dim dataExcel As Object, WB As Workbook, SHT As Worksheet   '定义必要的对象
    Set dataExcel = CreateObject("Excel.application")
    Set WB = dataExcel.Workbooks.Open(Path) '括号中path为你要操作文件的路径
    Set SHT = WB.Worksheets(1)
    For i = 3 To 10
        Sheets(3).Cells(i, 1) = SHT.Cells(i, 3) '读取数据
    Next i
    WB.Close    '关闭文件
    Set WB = Nothing
    MsgBox "OK"
End Sub

上面这段代码实现的是在不打开EXCEL文件的情况向将一个文件的部分数据复制到另一个文件中，但是仔细看，代码中有“WB.Close”，说明文件还是打开了啊。确实如此，不过打开文件的过程系统在后台运行了，所以我们在左面上是无法观察到的。

方法二

第二种方法和这个类似，需要用到GetObject。只是省去了Excel对象的定义和赋值，所以就不适合用来操作TXT等格式的数据，如果操作的都是Excel文件用这种方法会简便一些。

Sub GetData_2()
    Dim WB As Workbook, SHT As Worksheet
    Set WB = GetObject(Path)
    Set SHT = WB.Worksheets(1)
    For i = 3 To 10
        Sheets(3).Cells(i, 1) = SHT.Cells(i, 3)
    Next i
    WB.Close
    Set WB = Nothing
    MsgBox "OK"
End Sub

用这两种方法的好处除了避免在前台打开文件之外，还有一个优点就是第二次操作会比第一次快很多！

 

PS：第二种方法碰到工作簿里有链接要更新的提示的时候不能关闭，第一种方法可以加上 Notify = False 来屏蔽