遍历子文件夹并从内部的excel文件中提取值

Question

我正在尝试创建一个脚本来循环浏览包含多个子文件夹的目录，这些子文件夹总共包含1,500个excel文件。我想将这些文件中的每个文件合并为一个文件值。我已经看到了一些使用FileSystemObject的示例，但无法使它们正常工作，并且不确定是否正是我所需要的。

我目前正在处理以下代码。在显示文件名的地方，我需要用Sub循环通过的当前文件名进行填充。据我所知，您只能拥有一个活动的DIR功能。反正我能做到吗？

我不认为这是重复的，因为在循环运行时获取当前子文件夹和文件名更加复杂。

Sub Iterate_Folders()
Dim count As Integer
count = 1
Path = "C:\Users\me\Documents\VBA\Test\"   ' Path should always contain a '\' at end
FirstDir = Dir(Path, vbDirectory)   ' Retrieving the first entry.
Do Until FirstDir = ""   ' Start the loop.
If (GetAttr(Path & rstDir) And vbDirectory) = vbDirectory Then
ActiveSheet.Cells(count, 1).FormulaR1C1 = "='" & Path & FirstDir & "[" & FILE NAME " "]Sheet1'!R10C3"
count = count + 1
End If
FirstDir = Dir()   ' Getting next entry.
Loop
End Sub