如何在Excel VBA中读取目录中的某些文件

我想从某个目录中读取某些excel文件，然后用excel-2007用VBA打开它们。

这里是一个例子：
目录： c:\temp
文件模式：是xxxxx0123.xls （xxxxx代表文件名）。

我尝试使用Application.FileSearch ，但它不能在Excel 2007中工作。有没有人有很好的build议？

提前致谢

Answer 1

您可以使用DIR来查找与您的模式相匹配的文件，即此代码打开这些文件，抓取它们的path，并再次closures文件

代码可以recursion，如果你需要查看子文件夹

 Sub GetFiles() Dim strFolder As String Dim strFileName As String Dim wb As Workbook strFolder = "C:\temp" strFileName = Dir(strFolder & "\*123.xls") Do While Len(strFileName) > 0 Set wb = Workbooks.Open(strFileName) Debug.Print wb.FullName wb.Close False strFileName = Dir Loop End Sub