Как открывать с помощью 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
Пишет что не удалось найти такой файл. Хотя они там есть
Какое расширение у файлов?
.xlsm
А вы указываете макросу искать "*.xls".
Заработало, спасибо большое. Какой раз уже прошу у Вас помощи, и каждый раз получаю её!!!
Макрос
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