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

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

Argumentos

servidor

Necesario. Nombre de la aplicación que proporciona el objeto.

tipo

Necesario. Tipo o clase del objeto que se va a crear.

ubicación

Opcional. Nombre del servidor de red donde se va a crear el objeto.

Observaciones

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

Para crear un objeto de automatización, asigne el objeto devuelto por CreateObject a una variable de objeto:

Dim HojaExcel
Set HojaExcel = CreateObject("Hoja.Excel")

Este código inicia la aplicación que crea el objeto (en este caso, una hoja de cálculo de Microsoft Excel). Una vez que se ha creado el objeto, haga referencia a él en código utilizando la variable de objeto que haya definido. Tal y como se muestra en el siguiente ejemplo, puede acceder a las propiedades y métodos del nuevo objeto utilizando la variable de objeto, HojaExcel y otros objetos Excel, incluyendo el objeto de la aplicación y ActiveSheet.Colección de celdas:

' Hacer Excel visible en el objeto de la aplicación.
ExcelSheet.Application.Visible = True
' Ubicar algún texto en la primera celda de la hoja.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "Esta es la columna A, fila 1"
' Guardar la hoja.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Cerrar Excel con el método Abandonar en el objeto de la aplicación.
ExcelSheet.Application.Quit
' Liberar la variable de objeto.
Set ExcelSheet = Nothing

Crear un objeto en un servidor remoto sólo se puede conseguir cuando se desactiva la seguridad de Internet. Puede crear un objeto en un equipo de red remoto pasando el nombre del equipo al argumento servidor de CreateObject. Dicho nombre es el mismo que el de la parte del nombre del equipo de un nombre de recurso compartido. Para un recurso de red compartido denominado "\\miservidor\public", el servidor es "miservidor". Además, puede especificar servidor utilizando el formato DNS o una dirección IP.

La siguiente porción de código devuelve el número de versión de una instancia de Excel ejecutándose en un equipo de red remoto denominado "miservidor":

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

Se produce un error si el servidor remoto especificado no existe o no se puede encontrar.

Requisitos

Versión 2

Consulte también

Función GetObject