Тема: VBScript: управление количеством листов в новой рабочей книге Excel
Как известно, по умолчанию в создаваемую рабочую книгу Microsoft Excel добавляет три рабочих листа (если иначе не установлено в настройках приложения или не задано групповой политикой). То же правило действует и при программном доступе к объекту «Excel.Application».
Управлять количеством листов при программном доступе можно двумя способами:
* указав при создании рабочей книги в методе «.Add» коллекции «.Worksheets» константу «xlWBATWorksheet» из перечисления «xlWBATemplate», можно принудительно получить рабочую книгу с единственным рабочим листом (что обычно и требуется):
Const xlWBATWorksheet = &HFFFFEFB9
Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add(xlWBATWorksheet)
* задавая непосредственно свойство «.SheetsInNewWorkbook» самого приложения:
Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.SheetsInNewWorkbook = 1
Set objWorkbook = objExcel.Workbooks.Add()
Свойство «.SheetsInNewWorkbook» будет действительно только для созданного экземпляра приложения «Excel.Application».
Автор идеи — kaster.