Открыть все файлы в директории

[fizik_leha]

Дана директория с файлами (экселевские книги), как с помощью средств ВБА получить список имен файлов в директории.
Ну и открыть их по порядку.

[RayShade]

Поиск по форуму. По ключевому слову FSO. И потом, тут рядом была тема про регистр букв в Word. В ней предлагался способ решения, который можно адаптировать к этой задаче.

[ZlydenGL]

Код: Выделить всё

Dim MyName As String, CrDir As String, CurName As String
MyName = ActiveWorkbook.Name
CrDir = ThisWorkbook.Path & "\"
CurName = Dir(CrDir & "pack_*.xls")
While CurName <> ""
    If Not (CurName = ThisWorkbook.Name) Then
        Workbooks.Open Filename:=CrDir & CurName
    End If
    CurName = Dir()
Wend

[fizik_leha]

Большое спасибо за помощь.