CreateObject-Funktion

Hinweis : Die Funktion, die Methode, das Objekt oder die Eigenschaft, die bzw. das in diesem Thema erläutert wird, ist deaktiviert, falls der Ausdrucksdienst in Microsoft Jet im geschützten Modus (Sandkastenmodus) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus finden Sie in der Hilfe unter "Sandkastenmodus".

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

Syntax

CreateObject ( Klasse [, 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 Klasse-Argument verwendet die Syntax Anwendungsname.Objekttyp und hat folgende Teile:

Teil

Beschreibung

Anwendungsname

Erforderlich. Variant (String). Der Name der Anwendung, die das Objekt bereitstellt.

Objekttyp

Erforderlich. Variant (String). Typ oder 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:

Hinweis : Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

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

Dieser Code startet die Anwendung, die das Objekt erstellt, in diesem Fall eine Microsoft Office Excel 2007-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 mithilfe der Objektvariablen ExcelSheet und anderer Microsoft Excel-Objekte einschließlich des Application-Objekts und der Auflistung Cells 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

Durch Deklarieren einer Objektvariablen mit der Klausel As Object wird eine Variable erstellt, die einen Verweis auf ein Objekt jedes Typs enthalten kann. Der Zugriff auf das Objekt durch diese Variable ist jedoch spät gebunden, d. h., die Bindung wird bei Ausführung des Programms erstellt. Um eine Objektvariable zu erstellen, die eine frühe Bindung zur Folge hat, d. h. eine Bindung bei der Kompilierung des Programms, deklarieren Sie die Objektvariable mit einer bestimmten Klassen-ID. Sie können beispielsweise folgende Microsoft 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 durch eine früh gebundene Variable kann die Leistung verbessern, jedoch nur einen Verweis auf die Klasse enthalten, die in der Deklaration angegeben ist.

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 Argument Servername von CreateObject übergeben. Dieser Name stimmt mit dem Computernamensteil eines Freigabenamens überein: Bei einem Freigabenamen "\\MyServer\Public" lautet der Servername "MyServer".

Hinweis :  Weitere Informationen zur Sichtbarmachung einer Anwendung auf einem Remotenetzwerkcomputer finden Sie in der COM-Dokumentation (siehe Microsoft Developer Network). Möglicherweise müssen Sie für Ihre Anwendung einen Registrierungsschlüssel hinzufügen.

Der folgende Code gibt die Versionsnummer einer Instanz von Excel zurück, die auf einem Remotecomputer namens MyServer ausgefü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.

Hinweis :  Verwenden Sie CreateObject, wenn keine aktuelle Instanz des Objekts existiert. Wird bereits eine Instanz des Objekts ausgeführt, wird eine neue Instanz gestartet und ein Objekt des angegebenen Typs erstellt. Um die aktuelle Instanz zu verwenden oder die Anwendung zu starten und eine Datei laden zu lassen, verwenden Sie die Funktion GetObject.

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

) auf Microsoft Excel festzulegen. Der Verweis wird verwendet, um auf die Eigenschaft Visible von Excel zuzugreifen. Anschließend wird die Excel-Methode Quit verwendet, um sie zu schließen. Schließlich wird der Verweis selbst aufgehoben.

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.
Ihre Fähigkeiten erweitern
Schulung erkunden
Neue Funktionen als Erster erhalten
An Office Insider teilnehmen

War diese Information hilfreich?

Vielen Dank für Ihr Feedback!

Vielen Dank für Ihr Feedback. Es klingt, als ob es hilfreich sein könnte, Sie mit einem unserer Office-Supportmitarbeiter zu verbinden.

×