如何閱讀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