Макросы

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

В этом макросе, коллекция Workbooks перебирает все открытые рабочие книги. По мере того как макрос проходит через каждую книгу, он сохраняет и закрывает их.

Код макроса

1. Sub Macros11()
2. Dim wb As Workbook              '1 объявляем  переменные
3. For each wb In Workbooks        '2 перебираем все открытые книги
4.    wb.Close                     '3 закрываем
5.    SaveChanges = True Workbooks '4 сохраняем изменения
6. Next wb
7. End Sub

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

1. Объявляем переменную, которая представляет собой объект книга. Это позволяет перебирать все открытые книги.
2. С помощью цикла просто проходит через все открытые книги.
3. Закрываем книгу (Excel затем выдаст сообщение с предложение сохранения изменений)
4. Сохраняем изменения. Если Вы не хотите, чтобы их сохраняли, нужно изменить аргумент Savechanges значение с True на False.

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

1