Создание новых рабочих книг с помощью VBA в Microsoft Excel
Могут быть случаи, когда вам нужно создать новую книгу с определенным количеством листов с помощью кода или макроса vba. Вот простой макрос, который позволяет вам создать новую книгу> открыть и затем сохранить максимум с 255 новыми листами. В этом примере макроса мы создадим новую книгу с 10 листами.
Option Explicit _Sub create_workbook ()
Dim wb As Workbook Set wb = NewWorkbook (10)
End Sub_ _Function NewWorkbook (wsCount как целое число) As Workbook Уменьшить значение OriginalWorksheetCount как долго Установить NewWorkbook = Nothing Если wsCount <1 или wsCount> 255 Затем выйти из функции OriginalWorksheetCount = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wsCountWorkbook.Set NewWorkbook = wsCountWorkbooks.Add OriginalWorksheetCount Конец Код функции Пояснение:
Сначала у нас есть процедура под названием «create_workbook». В этой процедуре у нас есть переменная wb как рабочая книга, и мы вызываем функцию NewWorkbook через эту переменную. Таким образом, вызывается новая функция, и wscount устанавливается на 10, что является количеством рабочих листов в новой книге.
Затем мы переходим к вызываемой функции, которая является _Function NewWorkbook (wsCount as Integer) как Workbook. _ Значение wsCount, равное 10, передается из подпрограммы create_workbook.
Set NewWorkbook = Nothing
Сначала NewWorkbook не установлен, чтобы мы могли очистить любое другое значение, которое могло быть присвоено ему в любых предыдущих кодах.
Если wsCount <1 или wsCount> 255, то выйти из функции
Затем мы должны проверить, меньше ли значение, переданное из подпрограммы, 1 или больше 255. Если ответ положительный на любую из этих проверок, то выйти из функции.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
На странице параметров Excel есть параметр, в котором задается количество листов, которые будут включены в новую книгу. Мы передаем это значение переменной OriginalWorksheetCount . * Переменная будет содержать количество листов по умолчанию, которое уже было предварительно установлено в параметрах Excel.
Application.SheetsInNewWorkbook = wsCount
Затем мы присваиваем значение wsCount, которое передается из подпрограммы, параметру в параметрах Excel для количества листов, которые будут включены в новую книгу. Итак, теперь этот параметр изменится со старого значения на 10. Старое значение может быть 1 или 3 или любым другим числом, установленным пользователем.
Set NewWorkbook = Workbooks.Add
Мы создаем новую книгу, которая назначается NewWorkbook. Эта новая книга создается с количеством листов, указанным в wsCount. Вы увидите новую книгу с 10 листами с названиями от Sheet1 до Sheet10. См. Рисунок ниже, чтобы увидеть новый созданный файл Book3.
На рисунке ниже показано количество листов, созданных в новой книге.
Также число 10 будет отображаться в параметре Application.SheetsInNewWorkbook в параметрах Excel, как показано на рисунке ниже —
Application.SheetsInNewWorkbook = OriginalWorksheetCount TheApplication.SheetsInNewWorkbook возвращается к исходному номеру, который имелся до установки wsCount. Поэтому, если исходное число было 1 или 3, этот параметр теперь вернется к этому числу.
Если вам понравились наши блоги, поделитесь ими с друзьями на Facebook. А также вы можете подписаться на нас в Twitter и Facebook.
Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на