VBScript. Функция CreateObject

Создает объект автоматизации и возвращает ссылку на него.

 CreateObject(servername.typename[, location])

servername 

имя приложения, поставляющего объект;

typename 

имя класса объекта;

location 

необязательный параметр. Имя сетевого компьютера, где будет создан объект.

Сервер автоматизации реализует как минимум один класс объектов автоматизации. Например, текстовый процессор может предоставлять доступ к объектам приложения, документу, панели инструментов и т.п. Для создания объекта автоматизации присвойте его значение объявленной переменной:

 Dim ExcelSheet
 Set ExcelSheet = CreateObject("Excel.Sheet")

Приведенный код вызывает приложение (в данном случае Microsoft Excel) и создает объект типа Лист электронной таблицы (Sheet). После создания объекта мы можем обращаться к свойствам и вызвать его методы. Ниже приведен пример работы с листом электронной таблицы:

 ' Отображаем Excel на экране
 ExcelSheet.Application.Visible = True
 ' Вводим текст в первую клетку на листе
 ExcelSheet.ActiveSheet.Cells(1, 1).Value = _
 "Колонка А, строка 1"
 ' Сохраняем документ
 ExcelSheet.SaveAs "C:\TEST.XLS"
 ' Закрываем Excel
 ExcelSheet.Application.Quit
 ' Уничтожаем объект
 Set ExcelSheet = Nothing

Если позволяют настройки сетевой безопасности, можно создать объект на удаленном компьютере. Для этого в качестве параметра location следует указать имя компьютера или его IP адрес. Приведенная ниже функция возвращает версию приложения Microsoft Excel, установленного на компьютере MyServer:

 Function GetVersion
   Dim XLApp
   Set XLApp = CreateObject("Excel.Application", "MyServer")
   GetVersion = XLApp.Version
 End Function

Обратите внимание, что по завершении функции объект XLApp будет уничтожен автоматически.