EXCEL VBA 遍历所有文件夹和子文件夹的文件中指定单元格中的数据，汇总到一张工作表中，

Question

Sub 数据提取()d = TimerDim mypath$, myname$Dim arr, brr(1 To 1000, 1 To 5)Application.ScreenUpdating = Falsemypath = ThisWorkbook.Path & "\"myname = Dir(mypath & "*.xl*")Do While myname <> "" If myname <> ThisWorkbook.Name Then Set wb = GetObject(mypath & myname) With wb With .Worksheets("报告书") m = m + 1 For i = 1 To 5 brr(m, i) = .Cells(100, i) Next End With .Close False End With End If myname = Dir()LoopWith Worksheets("汇总") .[B3].Resize(m, 5) = brrEnd WithEnd Sub目前代码只能收集同目录下的文件信息，求人帮忙改一下，使得能遍历所有文件夹和子文件夹的文件

Answer 1

把需要遍历的所有路径，写到一个excel表里不就行了，每次从这个表里调用路径去遍历。或者dir /b /s *.xls*>d:\1.txt，把这个1.txt内容读入表或数组，遍历这个就行了。

Answer 2

发个数据源给你改一下。本回答被提问者采纳

Answer 3

报价 60￥ 写给你