Как читать определенные файлы в каталоге в excel VBA

Question

Я хочу прочитать некоторые файлы excel из каталога, а затем открыть их в excel-2007 с VBA.

Вот пример:
каталог: шаблон c:\temp
файла: это xxxxx0123.xls (ххххе представляют имена файлов).

Я пытаюсь использовать 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