https://gsbelarus.com:80/gs/wiki/index.php?action=history&feed=atom&title=VBScript._%D0%A4%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F_CreateObject 2026-07-16T16:37:09Z История изменений этой страницы в вики MediaWiki 1.19.16 https://gsbelarus.com:80/gs/wiki/index.php?title=VBScript._%D0%A4%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F_CreateObject&diff=2620&oldid=prev 2009-05-13T15:51:25Z

<p>Создана новая страница размером Создает объект автоматизации и возвращает ссылку на него. CreateObject(servername.type...</p> <p><b>Новая страница</b></p><div>Создает объект автоматизации и возвращает ссылку на него.<br /> <br /> CreateObject(servername.typename[, location])<br /> <br /> ;servername : имя приложения, поставляющего объект;<br /> ;typename : имя класса объекта;<br /> ;location : необязательный параметр. Имя сетевого компьютера, где будет создан объект.<br /> <br /> Сервер автоматизации реализует как минимум один класс объектов автоматизации. Например, текстовый процессор может предоставлять доступ к объектам приложения, документу, панели инструментов и т.п. Для создания объекта автоматизации присвойте его значение объявленной переменной:<br /> <br /> Dim ExcelSheet<br /> Set ExcelSheet = CreateObject(&quot;Excel.Sheet&quot;)<br /> <br /> Приведенный код вызывает приложение (в данном случае Microsoft Excel) и создает объект типа Лист электронной таблицы (Sheet). После создания объекта мы можем обращаться к свойствам и вызвать его методы. Ниже приведен пример работы с листом электронной таблицы:<br /> <br /> ' Отображаем Excel на экране<br /> ExcelSheet.Application.Visible = True<br /> ' Вводим текст в первую клетку на листе<br /> ExcelSheet.ActiveSheet.Cells(1, 1).Value = _<br /> &quot;Колонка А, строка 1&quot;<br /> ' Сохраняем документ<br /> ExcelSheet.SaveAs &quot;C:\TEST.XLS&quot;<br /> ' Закрываем Excel<br /> ExcelSheet.Application.Quit<br /> ' Уничтожаем объект<br /> Set ExcelSheet = Nothing<br /> <br /> Если позволяют настройки сетевой безопасности, можно создать объект на удаленном компьютере. Для этого в качестве параметра location следует указать имя компьютера или его IP адрес. Приведенная ниже функция возвращает версию приложения Microsoft Excel, установленного на компьютере MyServer:<br /> <br /> Function GetVersion<br /> Dim XLApp<br /> Set XLApp = CreateObject(&quot;Excel.Application&quot;, &quot;MyServer&quot;)<br /> GetVersion = XLApp.Version<br /> End Function<br /> <br /> Обратите внимание, что по завершении функции объект XLApp будет уничтожен автоматически.<br /> <br /> [[Category:VBScript]]<br /> [[Category:Книга]]</div>

SYSDBA