原文链接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
用这两种方法的好处除了避免在前台打开文件之外，还有一个优点就是第二次操作会比第一次快很多！
结合文件遍历功能，再多文件不也几分钟的事吗！
这次的代码简单，就不上传源文件了。
