Как запустить макрос одновременно в нескольких книгах?

Работа с несколькими файлами Рабочая книга Excel часто требует повторения одной и той же операции или задачи автоматизации во многих файлах. Открытие каждой книги по отдельности для запуска макроса не только занимает много времени, но и повышает риск ошибок, особенно при обработке больших партий файлов. Автоматизация этого процесса необходима для повышения продуктивности и точности.

С помощью VBA (Visual Basic for Applications) вы можете оптимизировать рабочий процесс, автоматически запуская макрос для каждой книги в указанной папке — это экономит время и гарантирует единообразие результатов. В этом руководстве подробно описано, как настроить и применить решение на основе VBA, чтобы выполнять нужный макрос сразу для нескольких файлов без ручного открытия каждого из них.

Типичные сценарии, в которых этот подход оказывается полезным:

• Применение форматирования или расчётов к коллекции ежемесячных отчётов
• Стандартизация шагов очистки данных для набора экспортированных файлов
• Пакетное обновление шаблонов или добавление структур в устаревшие файлы

Этот метод пакетной обработки идеально подходит для пользователей, регулярно выполняющих повторяющиеся задачи в Excel — будь то в бизнесе, образовании или научных исследованиях.

---

Запуск одного и того же макроса в нескольких книгах с помощью кода VBA

Чтобы эффективно запускать один и тот же макрос в нескольких книгах без их ручного открытия, используйте скрипт VBA для пакетной обработки: он предложит выбрать папку и автоматически выполнит макрос в каждом файле книги внутри неё — идеальное решение для большинства типовых задач автоматизации.

Выполните следующие шаги, чтобы применить макрос ко многим книгам:

1. Удерживая клавиши «ALT + F11», откройте окно Microsoft Visual Basic for Applications.

2. В открывшемся редакторе VBA выберите «Вставка» > «Модуль», чтобы создать новый модуль, и вставьте предоставленный макрос в пустое окно модуля.

Код VBA: одновременный запуск одного и того же макроса в нескольких книгах:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

См. снимок экрана с указанием места, куда следует вставить код вашего макроса:

3. Нажмите клавишу «F5» в редакторе VBA, чтобы запустить скрипт — появится диалоговое окно для выбора папки.

4. В окне «Обзор» выберите папку, содержащую все книги для обработки. Скрипт последовательно пройдёт по каждому файлу Excel в указанной папке и выполнит ваш макрос.

5. Нажмите «ОК», чтобы запустить пакетную обработку. Добавленный вами фрагмент макроса выполнится во всех целевых книгах из выбранной папки. Обработка крупных партий может занять больше времени — всё зависит от сложности макроса и количества файлов.

---