Макросы

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

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

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

Код макроса

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

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

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

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

1