Быстрое размножение рабочей книги
Используя средства VBA, можно сохранить текущую рабочую книгу сразу в нескольких разных папках. Для этого следует написать и выполнить макрос, код которого приведен в листинге 2.1.
Примечание
Все приведенные в книге листинги можно загрузить с сайта издательства «Питер» по адресу http://www.piter.com/download/978591180547/.
Листинг 2.1. Размножение рабочей книги
Sub DuplicateBook()
Dim avarFileNames As Variant
' Формирование массива из путей для копий книги
avarFileNames = Array(«C:» & _
ActiveWorkbook.Name, «D:» & ActiveWorkbook.Name)
' Сохранение книги
ActiveWorkbook.SaveAs avarFileNames
End Sub
В приведенной программе используется возможность передавать методу SaveAs объекта Workbook массив строк. В результате выполнения данного макроса текущая рабочая книга будет сохранена одновременно на двух дисках – С: и D:.
Следует отметить, что после выполнения приведенного макроса текущей папкой для книги станет последний элемент массива avarFileNames. То есть при последующем выполнении команды Файл ? Сохранить в данном случае книга будет сохранена на диске D:.