VBScript: управление количеством листов в новой рабочей книге Excel

2009-09-21T19:22:33Z

Как известно, по умолчанию в создаваемую рабочую книгу 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.

Серый форум — VBScript: управление количеством листов в новой рабочей книге Excel

VBScript: управление количеством листов в новой рабочей книге Excel