CreateObject

Erstellt ein Automation-Objekt und gibt eine Referenz darauf zurück.

Aufbau

CreateObject(Servername.Typname [, Speicherort])

Parameter

Servername – erforderlich. Der Name der Anwendung, die das Objekt bereitstellt.

typename – erforderlich. Der Typ oder die Klasse des zu erstellenden Objekts.

Ort – optional. Der Name des Netzwerkservers, auf dem das Objekt erstellt werden soll.

Beschreibung

Automatisierungsserver stellen mindestens einen Objekttyp bereit. Beispielsweise kann eine Textverarbeitungsanwendung ein Anwendungsobjekt, ein Dokumentobjekt und ein Symbolleistenobjekt bereitstellen.

Beispiel

Um ein Automation-Objekt zu erstellen, weisen Sie die von CreateObject zurückgegebene Objektvariable einer Objektvariablen zu. Dieser Code startet die Anwendung, die das Objekt erstellt (in diesem Fall eine Microsoft Excel-Tabelle). Sobald ein Objekt erstellt wurde, verweisen Sie im Code mithilfe der von Ihnen definierten Objektvariablen darauf. Wie im folgenden Beispiel gezeigt, können Sie über die Objektvariable „ExcelSheet“ auf Eigenschaften und Methoden des neuen Objekts sowie auf andere Excel-Objekte zugreifen, darunter das „Application“-Objekt und die „ActiveSheet.Cells“-Sammlung:

Dim ExcelSheet

Set ExcelSheet = CreateObject("Excel.Sheet")

' Machen Sie Excel über das Application-Objekt sichtbar.

ExcelSheet.Application.Visible = True

' Geben Sie etwas Text in die erste Zelle des Arbeitsblatts ein.

ExcelSheet.ActiveSheet.Cells(1,1).Value = "Dies ist Spalte A, Zeile 1"

' Speichern Sie die Tabelle.

ExcelSheet.SaveAs „C:\DOCS\TEST.XLS“

' Schließen Sie Excel mit der Methode „Quit“ des Application-Objekts.

ExcelSheet.Application.Quit

' Die Objektvariable freigeben.

Set ExcelSheet = Nothing

Das Erstellen eines Objekts auf einem Remote-Server ist nur möglich, wenn die Internetsicherheit deaktiviert ist. Sie können ein Objekt auf einem entfernten Netzwerkcomputer erstellen, indem Sie den Namen des Computers an das Argument „servername“ der Funktion „CreateObject“ übergeben. Dieser Name entspricht dem Teil des Freigabenamens, der den Computernamen angibt. Bei einer Netzwerkfreigabe mit dem Namen „\myserver\public“ lautet der Servername „myserver“. Außerdem können Sie den Servernamen im DNS-Format oder als IP-Adresse angeben.

Der folgende Code gibt die Versionsnummer einer Excel-Instanz zurück, die auf einem Remote-Netzwerkcomputer namens „myserver“ ausgeführt wird:

Function GetVersion

Dim XLApp

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

GetVersion = XLApp.Version

End Function

Es tritt ein Fehler auf, wenn der angegebene Remote-Server nicht existiert oder nicht gefunden werden kann. |