Função CreateObject

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

Sintaxe

CreateObject ( classe [, servername] )

A sintaxe da função CreateObject tem estes argumentos:

A classeargumento utiliza o nome de aplicação de sintaxe.objecttype e tem as seguintes partes:

Observações

Todas as aplicações que suportam a automatização fornecem, pelo menos, um tipo de objeto. Por exemplo, uma aplicação de processamento de palavras pode fornecer um objeto Aplicação , um objeto Documento e um objeto da Barra de Ferramentas .

Para criar um objeto ActiveX, atribua o objeto devolvido por CreateObject a um variável de objeto:

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding. 
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

Neste exemplo, vamos automatizar um objeto de folha de cálculo do Excel a partir de uma base de dados do Access. Este código inicia a aplicação ao criar o objeto, neste caso, uma folha de cálculo do Microsoft Excel. Assim que um objeto é criado, pode referenciá-lo no código com a variável de objeto que definiu. No exemplo seguinte, pode aceder às propriedades e métodos do novo objeto com a variável de objeto, ExcelSheete outros objetos do Excel, incluindo o objeto Application e a coleção de Cells .

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

Declarar uma variável de objeto com a cláusula As Object cria uma variável que pode conter uma referência a qualquer tipo de objeto. No entanto, o acesso ao objeto através dessa variável está atrasado; ou seja, o enlace ocorre quando o programa é executado. Para criar uma variável de objeto que resulta num enlace antecipado, ou seja, enlace quando o programa é compilado, declare a variável de objeto com um ID de classe específico. Por exemplo, pode declarar e criar as seguintes referências do 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)

A referência através de uma variável vinculada antecipada pode proporcionar um melhor desempenho, mas só pode conter uma referência ao classe especificado no declaração.

Pode transmitir um objeto devolvido pela função CreateObject para uma função que espera um objeto como argumento. Por exemplo, o código seguinte cria e transmite uma referência a um objeto Excel.Application:

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

Pode criar um objeto num computador em rede remota ao transmitir o nome do computador para o argumento servername de CreateObject. Esse nome é o mesmo que a parte Nome do Computador de um nome de partilha: para uma partilha chamada "\\MyServer\Public", o nome do servidor é "MyServer".

O código seguinte devolve o número da versão de uma instância do Excel em execução num computador remoto com o nome MyServer:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

Se o servidor remoto não existir ou estiver indisponível, ocorre um erro de tempo de execução.

Se um objeto se tiver registado como um objeto de instância única, só é criada uma instância do objeto, independentemente do número de vezes que CreateObject é executado.