SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Быстрое размножение рабочей книги
Используя средства VBА, можно сохранить текущую рабочую книгу сразу в несколь-
ких разных папках. Для этого следует написать и выполнить макрос, код которого
приведен в листинге 2.1.
Глава 2. Рабочая область Microsoft Excel
ПРИМЕЧАНИЕ
Все приведенные в книге листинги можно загрузить с сайта издательства
«Питер» по адресу http://www.piter.com/download/978546901223/.
Код: Листинг 2.1. Размножение рабочей книги
Sub DuplicateBook()
Dim avarFileNames As Variant
' Формирование массива из путей для копий книги
avarFileNames = Array("С:\" &
ActiveWorkbook.Name, "D:\" & ActiveWorkbook.Name)
' Сохранение книги
ActiveWorkbook.SaveAs avarFileNames
End Sub
|
В приведенной выше программе используется возможность передавать методу
SaveAs объекта Workbook массив строк. В результате выполнения данного ма-
кроса текущая рабочая книга будет сохранена одновременно на двух дисках —
C: и D: .
Следует отметить, что после выполнения приведенного макроса текущей папкой
для книги станет последний элемент массива avarFileNames. To есть при после-
дующем выполнении команды Файл • Сохранить в данном случае книга будет со-
хранена на диске D:.
|
