VBA: Открытие всех файлов в папке

[sirg]

Как открывать с помощью VBA все файлы Exсel находящиеся в указанной папке?
У меня есть макрос но он не работает, в чем ошибка?

Макрос

Sub FreeBooksOpen()

    Dim MyPath As String, MyName As String, FN As String
   
    MyPath = "C:\Users\Матакросссс\Desktop\EFL 2018"
    MyName = Dir(MyPath & "*.xls")
    Do While MyName <> ""
        FN = MyPath + MyName
        Excel.Application.Workbooks.Open FN
        MyName = Dir
    Loop
     
End Sub

[свернуть]

[Администратор]

Между путём и именем файла нужно вставлять слеш:
MyName = Dir(MyPath & "\" & "*.xls")
FN = MyPath & "\" & MyName

[sirg]

Пишет что не удалось найти такой файл. Хотя они там есть

[Администратор]

Какое расширение у файлов?

[sirg]

.xlsm

[Администратор]

А вы указываете макросу искать "*.xls".

[sirg]

Заработало, спасибо большое. Какой раз уже прошу у Вас помощи, и каждый раз получаю её!!!

Макрос

Sub FreeBooksOpen()

    Dim MyPath As String, MyName As String, FN As String
   
    MyPath = "C:\Users\Матакросссс\Desktop\EFL 2018"
    MyName = Dir(MyPath & "\" & "*.xlsm")
    Do While MyName <> ""
        FN = MyPath & "\" & MyName
        Excel.Application.Workbooks.Open FN
        MyName = Dir
    Loop
     
End Sub

[свернуть]