GetObject-Funktion

Gibt einen Verweis auf ein Objekt zurück, das von einer ActiveX-Komponente zur Verfügung gestellt wird.

Syntax

GetObject([pathname ] [, class ] )

Die Syntax der Funktion GetObject weist die folgenden Argumente auf:

Argument	Beschreibung
Pfadname	Optional. Variant (String). Der vollständige Pfad und Name der Datei, die das abzurufende Objekt enthält. Wenn pathname ausgelassen wird, ist class erforderlich.
Klasse	Optional. Variant (String). Eine Zeichenfolge, die die Klasse des Objekts darstellt.

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

Verwenden Sie die GetObject-Funktion , um auf ein ActiveX-Objekt aus einer Datei zuzugreifen und das Objekt einer Objektvariablen zuzuweisen. Verwenden Sie die Set-Anweisung, um das Objekt, das von GetObject zurückgegeben wurde, der Objektvariablen zuzuweisen. Beispiel:

Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")

Wenn dieser Code ausgeführt wird, wird die Anwendung, die dem angegebenen Pfadnamen zugeordnet ist, gestartet, und das Objekt in der angegebenen Datei wird aktiviert.

Wenn pathname eine leere Zeichenfolge ist (""), gibt GetObject eine neue Objekt-Instance des angegebenen Typs zurück. Wenn das Argument pathname weggelassen wird, gibt GetObject ein derzeit aktives Objekt des angegebenen Typs zurück. Ist kein Objekt des angegebenen Typs vorhanden, tritt ein Fehler auf.

Einige Programme ermöglichen es Ihnen, einen Teil einer Datei zu aktivieren. Fügen Sie am Ende des Dateinamens ein Ausrufezeichen (!) hinzu, und fügen Sie eine Zeichenfolge nach, die den Teil der Datei identifiziert, den Sie aktivieren möchten. Informationen dazu, wie diese Zeichenfolge erstellt wird, finden in der Dokumentation für die Anwendung, die das Objekt erstellt hat.

Beispielsweise könnte es in einem CAD-Programm mehrere Ebenen in einer Zeichnung geben, die in einer Datei gespeichert ist. Sie können den folgenden Code verwenden, um eine Ebene innerhalb einer Zeichnung mit dem Namen SCHEMA.CADzu aktivieren:

Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")

Wenn Sie die Klasse des Objekts nicht angeben, bestimmt die Automatisierung anhand des von Ihnen angegebenen Dateinamens die zu startende Anwendung und das zu aktivierende Objekt. In einigen Dateien werden jedoch möglicherweise mehrere Objektklassen unterstützt. Für eine Zeichnung könnten z. B. drei verschiedene Typen von Objekten unterstützt werden: ein Application-Objekt, ein Drawing-Objekt und ein Toolbar-Objekt, die alle Teile derselben Datei sind. Um anzugeben, welches Objekt in einer Datei Sie aktivieren möchten, verwenden Sie das optionale Klassenargument . Beispiel:

Dim MyObject As Object
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", _
    "FIGMENT.DRAWING")

In diesem Beispiel FIGMENT ist dies der Name einer Zeichnungsanwendung und DRAWING einer der von ihr unterstützten Objekttypen.

Sobald ein Objekt aktiviert wurde, verweisen Sie in Code über die von Ihnen definierte Objektvariable auf dieses Objekt. Im vorherigen Beispiel greifen Sie über die Objektvariable MyObjectauf Eigenschaften und Methoden des neuen Objekts zu. Beispiel:

MyObject.Line 9, 90
MyObject.InsertText 9, 100, "Hello, world."
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"

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. Bei einem Single-Instance-Objekt gibt GetObject beim Aufruf mit der Syntax der Länge Null ("") immer dieselbe instance zurück und verursacht einen Fehler, wenn das pathname-Argument weggelassen wird. Sie können GetObject nicht dazu verwenden, einen Verweis auf eine Klasse abzurufen, die mit Visual Basic erstellt wurde.

Beispiel

In diesem Beispiel wird die Funktion GetObject verwendet, um einen Bezug auf ein bestimmtes Excel-Arbeitsblatt abzurufen (MyXL). Sie verwendet die Application-Eigenschaft des Arbeitsblatts, um Excel sichtbar zu machen, es zu schließen und so weiter. Mit zwei API-Aufrufen sucht die Unterprozedur "DetectExcel" nach Excel und gibt es, wenn es ausgeführt wird, in die Tabelle "Ausgeführtes Objekt" ein. Der erste Aufruf von GetObject verursacht einen Fehler, wenn Microsoft Excel noch nicht ausgeführt wird. Im Beispiel führt der Fehler dazu, dass das Flag "ExcelWasNotRunning" auf "True" festgelegt wird. Der zweite Aufruf von GetObject gibt eine zu öffnende Datei an. Wenn Excel noch nicht ausgeführt wird, wird es im zweiten Aufruf gestartet und ein Verweis auf das Arbeitsblatt zurückgegeben, das durch die angegebene Datei mytest.xls dargestellt wird. Die Datei muss sich am angegebenen Speicherort befinden. Andernfalls wird der Visual Basic-Fehler "Automatisierungsfehler" generiert. Als Nächstes werden mit dem Beispielcode sowohl Excel als auch das Fenster angezeigt, das das angegebene Arbeitsblatt enthält. Wenn keine vorherige Excel-Version ausgeführt wurde, verwendet der Code die Quit-Methode des Application-Objekts, um Excel zu schließen. Wenn die Anwendung bereits ausgeführt wurde, wird nicht versucht, sie zu schließen. Der Verweis selbst wird freigegeben, indem er auf Nothing gesetzt wird.

' Declare necessary API routines:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName as String, _
                    ByVal lpWindowName As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long, _
                    ByVal wParam as Long, _
                    ByVal lParam As Long) As Long
Sub GetExcel()
    Dim MyXL As Object    ' Variable to hold reference
                                ' to Microsoft Excel.
    Dim ExcelWasNotRunning As Boolean    ' Flag for final release.
' Test to see if there is a copy of Microsoft Excel already running.
    On Error Resume Next    ' Defer error trapping.
' GetObject function called without the first argument returns a 
' reference to an instance of the application. If the application isn't
' running, an error occurs.
    Set MyXL = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear    ' Clear Err object in case error occurred.
' Check for Microsoft Excel. If Microsoft Excel is running,
' enter it into the Running Object table.
    DetectExcel
' Set the object variable to reference the file you want to see.
    Set MyXL = GetObject("c:\vb4\MYTEST.XLS")
' Show Microsoft Excel through its Application property. Then
' show the actual window containing the file using the Windows
' collection of the MyXL object reference.
    MyXL.Application.Visible = True
    MyXL.Parent.Windows(1).Visible = True
     Do manipulations of your  file here.
    ' ...
' If this copy of Microsoft Excel was not running when you
' started, close it using the Application property's Quit method.
' Note that when you try to quit Microsoft Excel, the
' title bar blinks and a message is displayed asking if you
' want to save any loaded files.
    If ExcelWasNotRunning = True Then 
        MyXL.Application.Quit
    End IF
    Set MyXL = Nothing    ' Release reference to the
                                ' application and spreadsheet.
End Sub
Sub DetectExcel()
' Procedure dectects a running Excel and registers it.
    Const WM_USER = 1024
    Dim hWnd As Long
' If Excel is running this API call returns its handle.
    hWnd = FindWindow("XLMAIN", 0)
    If hWnd = 0 Then    ' 0 means Excel not running.
        Exit Sub
    Else                
    ' Excel is running so use the SendMessage API 
    ' function to enter it in the Running Object Table.
        SendMessage hWnd, WM_USER + 18, 0, 0
    End If
End Sub