vityalobanov
6/3/2016 - 12:43 PM

Макрос для всех файлов в каталоге

Выполнить макрос для всех файлов в заданном каталоге

Sub LoopThroughFiles()
    
    FolderName = "C:\Folder1\"
    If Right(FolderName, 1) <> Application.PathSeparator Then FolderName = FolderName & Application.PathSeparator
    Fname = Dir(FolderName & "*.xls")

    'цикл по файлам
    Do While Len(Fname)

        With Workbooks.Open(FolderName & Fname)

           ' код который должен срабатывать для каждой книги из папки
           'здесь можно написать имя макроса, который будет выполняться для каждого файла в папке
           
           NameOfTheMacro

        End With

        ' перейти к следующему файлу в каталоге
        Fname = Dir

    Loop
    Application.Quit  'закрыть программу после выполнения цыкла
End Sub