Создание новой книги из кода VBA Excel. Метод Workbooks.Add. Переименование новой книги, добавление некоторых свойств файла: название, тема.
Создание новой книги
Новая рабочая книга в VBA Excel создается методом Workbooks.Add:
|
1 2 3 |
Sub Primer1() Workbooks.Add End Sub |
В результате работы этого кода будет создана новая книга с именем КнигаN, где N — порядковый номер создаваемой книги, и количеством листов по умолчанию — обычно, одним, если не задано другое.
Синтаксис метода Workbooks.Add
|
1 |
Workbooks.Add (Template) |
Параметр Template может принимать следующие значения:
| Значение | Результат |
|---|---|
"Полный путь к файлу Excel" |
Указанный файл Excel будет использован как шаблон для создания новой книги |
Константа xlWBATChart |
Будет создана новая книга с одним листом диаграммы |
Константа xlWBATWorksheet |
Будет создана новая книга с одним рабочим листом |
При использовании константы xlWBATChart или константы xlWBATWorksheet будет создана новая книга с одним листом, независимо от заданного количества листов по умолчанию.
|
1 2 3 4 5 6 7 8 |
Sub Primer2() 'Создание новой рабочей книги по шаблону Workbooks.Add ("C:\Users\Evgeniy\Desktop\Отчет.xlsx") 'Создание новой книги с одним листом диаграммы Workbooks.Add (xlWBATChart) 'Создание новой книги с одним рабочим листом Workbooks.Add (xlWBATWorksheet) End Sub |
Количество листов по умолчанию
Задает и возвращает количество листов по умолчанию в новой книге свойство Application.SheetsInNewWorkbook.
Проверьте, сколько листов в новой книге по умолчанию создает ваш Excel:
|
1 2 3 4 5 |
Sub Primer3() MsgBox "Ваш Excel по умолчанию создает " _ & Application.SheetsInNewWorkbook & _ " лист(а,ов) в новой рабочей книге" End Sub |
Задайте из кода VBA свое количество листов по умолчанию в новой книге:
|
1 2 3 |
Sub Primer4() Application.SheetsInNewWorkbook = 5 End Sub |
Пример создания новой книги
Пример создания новой книги из кода VBA Excel с добавлением некоторых свойств файла и сохранением книги на диск:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Primer5() 'Объявляем объектную переменную как ссылку на рабочую книгу Excel Dim NewBook As Workbook 'Создаем новую книгу Set NewBook = Workbooks.Add 'Обращаемся к новой книге и работаем с ней With NewBook 'Задаем свойство файла "Название" .Title = "Где найти Title?" 'Задаем свойство файла "Тема" .Subject = "Что за Subject?" 'Сохраняем книгу, сменив ее имя по умолчанию на "Сверка с контрагентом.xlsx" .SaveAs Filename:="C:\Users\Evgeniy\Desktop\Сверка с контрагентом.xlsx" End With End Sub |
Свойства файла смотрите в окне «Свойства» на вкладке «Подробно»:
Окно свойств открывается кликом по пункту «Свойства» контекстного меню файла, вызванного кликом правой кнопки мыши по ярлыку книги.
Фразы для контекстного поиска: создать книгу, создать новую книгу, переименование книги.