Функция

CreateObject

Синтаксис

CreateObject(class,[servername])

Создает и возвращает ссылку на объект ActiveX. Функцию CreateObject следует использовать в отсутствие текущего экземпляра объекта. Если имеется уже выполняющийся экземпляр объекта, запускается новый экземпляр, и создается объект указанного типа. При наличии текущего экземпляра или необходимости запуска приложения и загрузки файла можно использовать функцию GetObject.
Если объект зарегистрирован как уникальный, создается только один экземпляр этого объекта, вне зависимости от числа вызовов функции CreateObject.

Параметры

Замечания

Каждое приложение, поддерживающее программирование объектов, может создавать объекты по крайней мере одного типа. Например, текстовым процессором могут быть созданы объект Application (приложение), объект Document (документ) и объект Toolbar (панель инструментов).
Чтобы создать объект ActiveX, следует присвоить объектной переменной объект, возвращенный функцией CreateObject:

'описывает объектную переменную, содержащую ссылку на объект
'предложение Dim as Object задает связывание на поздней стадии
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

Эти инструкции запускают приложение, являющееся источником объекта, в данном случае, электронную таблицу Microsoft Excel. После создания объекта следует присвоить ссылку на него предварительно описанной объектной переменной. В следующем примере доступ к свойствам и методам нового объекта осуществляется через объектную переменную ExcelSheet и другие объекты Microsoft Excel, включая объект Application и семейство Cells.

'делает Excel видимым через объект Application
ExcelSheet.Application.Visible = True
'помещает текст в первую ячейку электронной таблицы
ExcelSheet.Cells(1, 1).Value = "Это столбец A, строка 1"
'сохраняет электронную таблицу в каталоге C:\test.doc
ExcelSheet.SaveAs "C:\ TEST.DOC"
'закрывает Excel, вызвав метод Quit объекта Application
ExcelSheet.Application.Quit
'освобождает объектную переменную
Set ExcelSheet = Nothing

Описание объектной переменной с предложением As Object создает переменную, которая может содержать ссылку на объект любого типа. Однако доступ к объекту через эту переменную возможен на стадии позднего связывания; это означает, что связывание осуществляется при выполнении программы. Чтобы создать объектную переменную, обеспечивающую связывание на ранней стадии; т.е. связывание при компиляции программы, следует описать объектную переменную со специфическим кодом класса. Например, пользователь имеет возможность описать и создать следующие ссылки для Microsoft Excel:

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

Ссылки на переменную, обеспечивающую связывание на ранней стадии, могут повысить быстродействие, но при этом возможны ссылки только на класс, указанный в описании.

Объект, возвращенный функцией CreateObject, может быть передан функции, принимающей объект в качестве одного из аргументов. Например, следующая инструкция создает и передает ссылку на объект Excel.Application:

Call MySub (CreateObject("Excel.Application"))

Пример использования

'в данном примере функция CreateObject создает ссылку (xlApp) на
'Microsoft Excel. эта ссылка используется для доступа к свойству Visible
'Microsoft Excel, а затем для закрытия Microsoft Excel с помощью
'метода Quit. после этого ссылка очищается

Dim xlApp As Object 'переменная, которая будет содержать ссылку

Set xlApp = CreateObject("excel.application")
'необходимо задать для свойства Visible
'значение True, чтобы приложение было видимым
xlApp.Visible = True
'использование xlApp для доступа к другим
'объектам Microsoft Excel.
xlApp.Quit 'по окончании работы вызывается метод Quit для выхода
Set xlApp = Nothing 'из приложения. Ссылка очищается

Дополнительная информация

Категория: Функции для работы с объектами

Еще функции: CallByName, CreateObject, GetAutoServerSetting, GetObject

Логин:

Пароль:

Регистрация, забыли пароль?