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

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

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

WorkBook.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

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

结合文件遍历功能，再多文件不也几分钟的事吗！

这次的代码简单，就不上传源文件了。