CreateObject

Cria e devolve uma referência a um objeto Automation.

Estrutura

CreateObject(nome_do_servidor.tipo [, localização])

Parâmetros

nome do servidor - obrigatório. O nome da aplicação que fornece o objeto.

typename - obrigatório. O tipo ou classe do objeto a criar.

localização - opcional. O nome do servidor de rede onde o objeto deve ser criado.

Descrição

Os servidores de automação fornecem pelo menos um tipo de objeto. Por exemplo, uma aplicação de processamento de texto pode fornecer um objeto de aplicação, um objeto de documento e um objeto de barra de ferramentas.

Exemplo

Para criar um objeto Automation, atribua o objeto devolvido pela função CreateObject a uma variável de objeto. Este código inicia a aplicação que cria o objeto (neste caso, uma folha de cálculo do Microsoft Excel). Depois de criar um objeto, faça referência a ele no código utilizando a variável de objeto que definiu. Conforme ilustrado no exemplo seguinte, é possível aceder às propriedades e métodos do novo objeto utilizando a variável de objeto ExcelSheet, bem como a outros objetos do Excel, incluindo o objeto Application e a coleção ActiveSheet.Cells:

Dim ExcelSheet

Set ExcelSheet = CreateObject("Excel.Sheet")

' Torne o Excel visível através do objeto Application.

ExcelSheet.Application.Visible = True

' Insira algum texto na primeira célula da folha.

ExcelSheet.ActiveSheet.Cells(1,1).Value = "Esta é a coluna A, linha 1"

' Guarde a folha.

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

' Feche o Excel com o método Quit do objeto Application.

ExcelSheet.Application.Quit

' Liberte a variável do objeto.

Defina ExcelSheet = Nothing

A criação de um objeto num servidor remoto só é possível quando a segurança da Internet está desativada. Pode criar um objeto num computador remoto ligado à rede, passando o nome do computador para o argumento servername do método CreateObject. Esse nome é igual à parte do nome da máquina de um nome de partilha. Para uma partilha de rede denominada «\myserver\public», o nome do servidor é «myserver». Além disso, pode especificar o nome do servidor utilizando o formato DNS ou um endereço IP.

O código seguinte devolve o número da versão de uma instância do Excel em execução num computador remoto da rede denominado «myserver»:

Função GetVersion

Dim XLApp

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

GetVersion = XLApp.Version

End Function

Ocorre um erro se o servidor remoto especificado não existir ou não for possível encontrá-lo. |