CreateObject

Crea y devuelve una referencia a un objeto de automatización.

Estructura

CreateObject(nombre_servidor.tipo [, ubicación])

Parámetros

nombre del servidor - obligatorio. El nombre de la aplicación que proporciona el objeto.

nombre del tipo - obligatorio. El tipo o clase del objeto que se va a crear.

ubicación: opcional. El nombre del servidor de red en el que se va a crear el objeto.

Descripción

Los servidores de automatización proporcionan al menos un tipo de objeto. Por ejemplo, una aplicación de procesamiento de textos puede proporcionar un objeto de aplicación, un objeto de documento y un objeto de barra de herramientas.

Ejemplo

Para crear un objeto Automation, asigne el objeto devuelto por CreateObject a una variable de objeto. Este código inicia la aplicación que crea el objeto (en este caso, una hoja de cálculo de Microsoft Excel). Una vez creado el objeto, haz referencia a él en el código utilizando la variable de objeto que hayas definido. Como se muestra en el siguiente ejemplo, puedes acceder a las propiedades y métodos del nuevo objeto mediante la variable de objeto ExcelSheet, así como a otros objetos de Excel, incluidos el objeto Application y la colección ActiveSheet.Cells:

Dim ExcelSheet

Set ExcelSheet = CreateObject("Excel.Sheet")

' Haz que Excel sea visible a través del objeto Application.

ExcelSheet.Application.Visible = True

Escribe algo de texto en la primera celda de la hoja.

ExcelSheet.ActiveSheet.Cells(1,1).Value = "Esta es la columna A, fila 1"

' Guarda la hoja.

ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"

' Cierra Excel con el método Quit del objeto Application.

ExcelSheet.Application.Quit

' Libera la variable de objeto.

Establecer ExcelSheet = Nothing

Solo se puede crear un objeto en un servidor remoto si la seguridad de Internet está desactivada. Puedes crear un objeto en un equipo remoto conectado a la red indicando el nombre del equipo en el argumento servername del método CreateObject. Ese nombre es el mismo que la parte correspondiente al nombre del equipo en el nombre de un recurso compartido. En el caso de un recurso compartido de red denominado «\myserver\public», el nombre del servidor es «myserver». Además, puedes indicar el nombre del servidor utilizando el formato DNS o una dirección IP.

El siguiente código devuelve el número de versión de una instancia de Excel que se está ejecutando en un ordenador de red remoto llamado «myserver»:

Función GetVersion

Dim XLApp

Set XLApp = CreateObject("Excel.Application", "MyServer")

GetVersion = XLApp.Version

End Function

Se produce un error si el servidor remoto especificado no existe o no se encuentra. |