CreateObject-Funktion

Erstellt einen Verweis auf ein ActiveX-Objekt und gibt diesen zurück

Syntax

CreateObject(class [, servername] )

Die Syntax der Funktion CreateObject weist die folgenden Argumente auf:

Argument	Beschreibung
Klasse	Erforderlich. Variant (String). Der Name der Anwendung und die Klasse des zu erstellenden Objekts.
Servername	Optional. Variant (String). Der Name des Netzwerkservers, auf dem das Objekt erstellt wird. Wenn "Servername" eine leere Zeichenfolge ("") ist, wird der lokale Computer verwendet.

    

Das Klassenargumentverwendet die Syntax appname.objecttype und besteht aus den folgenden Teilen:

Teil	Beschreibung
appname	Erforderlich. Variant (String). Der Name der Anwendung, die das Objekt bereitstellt.
Objekttyp	Erforderlich. Variant (String). Der Typ oder die Klasse des zu erstellenden Objekts.

    

Hinweise

Jede Anwendung, die die Automatisierung unterstützt, stellt mindestens einen Objekttyp bereit. Eine Anwendung zur Textverarbeitung kann beispielsweise ein Application-Objekt, ein Document-Objekt und ein Toolbar-Objekt bereitstellen.

Um ein ActiveX-Objekt zu erstellen, weisen Sie das von CreateObject zurückgegebene Objekt einer Objektvariablen zu:

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

In diesem Beispiel automatisieren wir ein Excel-Tabellenkalkulationsobjekt aus einer Access-Datenbank. Dieser Code startet die Anwendung, die das Objekt erstellt, in diesem Fall eine Microsoft Excel-Tabelle. Sobald ein Objekt erstellt wurde, verweisen Sie unter Verwendung der Objektvariable, die Sie erstellt haben, im Code darauf. Im folgenden Beispiel greifen Sie auf Eigenschaften und Methoden des neuen Objekts über die Objektvariable ExcelSheetund andere Excel-Objekte, einschließlich des Objekts Application und der Cells Sammlung, zu.

' 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

Wenn Sie eine Objektvariable mit der As Object Klausel deklarieren, wird eine Variable erstellt, die einen Verweis auf einen beliebigen Objekttyp enthalten kann. Der Zugriff auf das Objekt über diese Variable ist jedoch spät gebunden. Das heißt, die Bindung findet statt, wenn das Programm ausgeführt wird. Um eine Objektvariable zu erstellen, die zu einer frühen Bindung führt, d. h. eine Bindung beim Kompilieren des Programms, deklarieren Sie die Objektvariable mit einer bestimmten Klassen-ID. Beispielsweise können Sie die folgenden Excel-Verweise deklarieren und erstellen:

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)

Der Verweis über eine früh gebundene Variable kann zu einer besseren Leistung führen, kann aber nur einen Verweis auf die in der Deklaration angegebene Klasse enthalten.

Sie können ein von der Funktion CreateObject zurückgegebenes Objekt an eine Funktion übergeben, die ein Objekt als Argument erwartet. Der folgende Code erstellt und übergibt beispielsweise einen Verweis auf ein Excel-Anwendungsobjekt:

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

Sie können ein Objekt auf einem Remotenetzwerkcomputer erstellen, indem Sie den Namen des Computers an das Servername-Argumentvon CreateObject übergeben. Dieser Name ist identisch mit dem Computernamenteil eines Freigabenamens: Für eine Freigabe mit dem Namen "\\MyServer\Public" lautet Servername "MyServer".

Der folgende Code gibt die Versionsnummer einer Instance von Excel zurück, die auf einem Remotecomputer mit dem Namen MyServerausgeführt wird:

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

Wenn der Remoteserver nicht vorhanden oder nicht verfügbar ist, tritt ein Laufzeitfehler auf.

Wenn sich ein Objekt als Objekt mit einer einzigen Instanz selbst registriert hat, wird nur eine Instanz des Objekts erstellt, unabhängig davon, wie oft CreateObject ausgeführt wird.

Beispiel

In diesem Beispiel wird die Funktion CreateObject verwendet, um einen Verweis (

xlApp

) nach Excel umwandeln. Er verwendet den Verweis, um auf die Visible-Eigenschaft von Excel zuzugreifen, und verwendet dann die Excel-Quit-Methode , um sie zu schließen. Schließlich wird die Referenz selbst freigegeben.

Dim xlApp As Object    ' Declare variable to hold the reference.
Set xlApp = CreateObject("excel.application")
    ' You may have to set Visible property to True
    ' if you want to see the application.
xlApp.Visible = True
    ' Use xlApp to access Microsoft Excel's 
    ' other objects.
xlApp.Quit    ' When you finish, use the Quit method to close 
Set xlApp = Nothing    ' the application, then release the reference.