Применение макроса ко всем файлам из папки

[Антон Олегович]

Здравствуйте товарищи, как можно организовать работу макроса ко всем файлам из папки?

[аналитика]

Папка = "полный путь папки"
        
      '------------ Excel-файлы в этой папке ------------------
            Имя = Dir(Папка & "*.xls*")
      Do While Имя <> ""
            Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=0
            'здесь Ваш макрос делает свое грязное дело
            ActiveWorkbook.Close SaveChanges:=True
         Имя = Dir
      Loop

[1134]

Можно так: появится окошко в котором выбираете нужную папку, а далее всефайлы в ней определяются автоматически.

Sub Auto_Write_In_Books()
Dim sFolder As String, sFiles As String, li As Long
With Application.FileDialog(msoFileDialo gFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
Application.ScreenUpdating = False
sFiles = Dir(sFolder & Application.PathSeparator & "*.xls*")
On Error Resume Next
Do While sFiles <> ""
Workbooks.Open sFiles
'Ваш макрос
ActiveWorkbook.Close SaveChanges:=True
sFiles = Dir
Loop
Application.ScreenUpdating = True
End Sub