因此，我有一个“主”Excel 文件，需要用目录中的 Excel 文件中的数据填充该文件。我只需要访问每个文件并从每个工作簿的第二张表中复制一行并将其粘贴到我的主文件中，而无需打开 Excel 文件。
我不是这方面的专家，但我可以处理一些中间宏。我需要的最重要的是能够在不打开文件的情况下一一访问它们。我真的需要这个，所以非常感谢任何帮助！谢谢！
编辑...
所以我一直在尝试使用 dir 函数通过循环运行目录，但我不知道如何从第一个文件继续。我在网站上看到了这个，但对我来说，循环不会停止，它只访问目录中的第一个文件。
Folder = "\\Drcs8570168\shasad\Test"
wbname = Dir(Folder & "\" & "*.xls")
Do While wbname <> ""
i = i + 1
ReDim Preserve wblist(1 To i)
wblist(i) = wbname
wbname = Dir(FolderName & "\" & "*.xls")
wbname 如何在文件列表中向下移动？