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

Question

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

Вот пример:
каталог: c:\temp
Шаблон файла: is 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