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

Question

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

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

我尝试使用Application.FileSearch ，但在Excel 2007中将无法使用。有人建议吗？

提前致谢

Answer 1

您可以使用DIR查找与模式匹配的文件，即此代码打开这些文件，获取它们的路径，然后再次关闭这些文件

如果需要查看子文件夹，可以将代码设为递归

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