多工作簿数据提取（简单版）

Option Explicit
Sub 多工作簿取数()
Dim Fs$, MyP$, Wb As Workbook, k
MyP = ThisWorkbook.Path & "\" '获取写代码的工作簿所在的路径
Fs = Dir(MyP) 'dir函数可以获取文件夹下的文件，第1次要整个路径
Do
If Fs <> "汇总表.xls" Then '判断目的使用汇总表不参入
Set Wb = Workbooks.Open(MyP & Fs) '打开工作簿且赋值给wb变量
With Wb
k = k + 1 '计数，目的就是为了把取得的F10结果依次填到汇总表的A列
ThisWorkbook.Sheets(1).Range("A" & k) = .Sheets(5).Range("F10")
'把每一个工作簿的第5个工作表里的F10里的数据填到汇总表里的A列
.Close '关闭工作簿
Set Wb = Nothing '释放变量
End With
End If
Fs = Dir '多次把dir取得到工作簿名赋值给Fs
Loop While Fs <> "" '退出循环的条件Fs等于空
End Sub