Макросы

Что делает макрос

В этом макросе, мы используем функцию Dir. Функция Dir возвращает строку, которая представляет собой имя файла.

С её помощью в указанной папке мы возьмём имя каждого файла (с расширением “.xlsx”), затем будем открывать каждый файл, запускать макрос и, наконец, закрывать файл после сохранения.

Код макроса

1. Sub Macros12()
2. Dim MyFiles As String                  '1 Объявляем переменные
3. MyFiles = Dir("C:\Отчёты\*.xlsx")      '2 укажите нужную нам папку
4. Do While MyFiles <> ""
5.    Workbooks.Open "C:\Temp\" & MyFiles '3 Открываем файлы один за другим
6.    MsgBox ActiveWorkbook.Name
7.    ActiveWorkbook.Close SaveChanges:=True
8.    MyFiles = Dir                       '4 Следующий файл в папке
9. Loop
10. End Sub

Как работает этот код

1. Объявляем переменную MyFiles (тип строчный), которая будет фиксировать имя каждого файла.
2. В шаге 2, макрос использует функцию DIR, чтобы указать Тип файла и адрес папки. Обратите внимание, что код ищет файлы в формате xlsx. Это означает, что только .xlsx файлы будут передаваться. Если вы ищете .xls файлы, вам необходимо изменить расширение.
3. Открываем файл, делает некоторые действия (вы должны поместить в код макроса требуемые действия), а затем мы сохраняем и закрываем файл. В этом простом примере, мы вызываем окно с сообщением, чтобы показать имя каждого файла.
4. Ищем снова по кругу, чтобы найти больше файлов. Если нет файлов, переменная MyFiles пустая.

Если это так, то цикл и макрос завершается.

Как использовать

1