如何在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