Funkcja GetObject

Zwraca odwołanie do obiektu dostarczonego przez składnik ActiveX.

Składnia

GetObject([ścieżka ] [, klasa ] )

W składni funkcji GetObject występują następujące argumenty:

Argumenty argumentów	Opis
ścieżka	Argument opcjonalny. Wariant (ciąg). Pełna ścieżka i nazwa pliku zawierającego obiekt do pobrania. Jeśli ścieżka zostanie pominięta, wymagana jest klasa .
klasa	Argument opcjonalny. Wariant (ciąg). Ciąg reprezentujący klasę obiektu.

Argument classużywa składni appname.objecttype i zawiera następujące segmenty:

Segment	Opis
appname (nazwa aplikacji)	Argument wymagany. Wariant (ciąg). Nazwa aplikacji udostępniającej obiekt.
objecttype (typ obiektu)	Argument wymagany. Wariant (ciąg). Typ lub klasa obiektu do utworzenia.

Uwagi

Użyj funkcji GetObject , aby uzyskać dostęp do obiektu ActiveX z pliku i przypisać obiekt do zmiennej obiektu. Użyj instrukcji Set , aby przypisać obiekt zwrócony przez GetObject do zmiennej obiektu. Na przykład:

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

Po wykonaniu tego kodu uruchamiana jest aplikacja skojarzona z określoną ścieżką i obiekt w określonym pliku jest aktywowany.

Jeśli ścieżka jest ciągiem o zerowej długości (""), funkcja GetObject zwraca nową instancję obiektu określonego typu. Jeśli argument nazwa ścieżki zostanie pominięty, funkcja GetObject zwraca aktualnie aktywny obiekt określonego typu. Jeśli nie istnieje żaden obiekt określonego typu, występuje błąd.

Niektóre aplikacje umożliwiają uaktywnienie części pliku. Dodaj wykrzyknik (!) na końcu nazwy pliku, a po nim ciąg identyfikujący część pliku, którą chcesz aktywować. Aby uzyskać informacje na temat tworzenia tego ciągu, zapoznaj się z dokumentacją aplikacji, która utworzyła obiekt.

Na przykład w aplikacji do rysowania może istnieć wiele warstw rysunku przechowywanego w pliku. Możesz użyć następującego kodu, aby uaktywnić warstwę na rysunku o nazwie SCHEMA.CAD:

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

Jeśli nie określisz klasy obiektu, automatyzacja określi aplikację do uruchomienia i obiekt do aktywacji na podstawie podanej nazwy pliku. Jednak niektóre pliki mogą obsługiwać więcej niż jedną klasę obiektów. Na przykład rysunek może obsługiwać trzy różne typy obiektów: obiekt aplikacji , obiekt rysunkowy i obiekt paska narzędzi , z których wszystkie są częścią tego samego pliku. Aby określić, który obiekt w pliku ma zostać aktywowany, należy użyć opcjonalnego argumentu klasy . Na przykład:

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

W tym przykładzie FIGMENT jest to nazwa aplikacji do rysowania i DRAWING jest jednym z obsługiwanych w niej typów obiektów.

Po aktywowaniu obiektu odwołujesz się do niego w kodzie za pomocą zdefiniowanej zmiennej obiektu. W poprzednim przykładzie dostęp do właściwości i metod nowego obiektu można uzyskać za pomocą zmiennej obiektu MyObject. Na przykład:

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

Jeśli obiekt zarejestrował się jako obiekt o jednym wystąpieniu, tworzone jest tylko jedno wystąpienie obiektu, bez względu na to, ile razy CreateObject jest wykonywane. W przypadku obiektu o jednym wystąpieniu funkcja GetObject zawsze zwraca to samo wystąpienie, gdy jest wywoływana ze składnią ciągu o zerowej długości (""), a pominięcie argumentu nazwy ścieżki powoduje błąd. Za pomocą funkcji GetObject nie można uzyskać odwołania do klasy utworzonej za pomocą języka Visual Basic.

Przykład

W tym przykładzie użyto funkcji GetObject , aby uzyskać odwołanie do określonego arkusza programu Excel (MyXL). Używa właściwości Application arkusza, aby wyświetlić program Excel, zamknąć go i tak dalej. Przy użyciu dwóch wywołań interfejsu API podprocedura DetectExcel wyszukuje program Excel i jeśli jest uruchomiony, wprowadza go do tabeli obiektów Running. Pierwsze wywołanie funkcji GetObject powoduje błąd, jeśli program Microsoft Excel nie jest jeszcze uruchomiony. W tym przykładzie błąd powoduje ustawienie flagi ExcelWasNotRunning na wartość True. Drugie wywołanie funkcji GetObject określa plik do otwarcia. Jeśli program Excel nie jest jeszcze uruchomiony, drugie wywołanie uruchamia go i zwraca odwołanie do arkusza reprezentowanego przez określony plik, mytest.xls. Plik musi istnieć w określonej lokalizacji; w przeciwnym razie jest generowany błąd automatyzacji języka Visual Basic. Następnie w tym przykładowym kodzie program Excel i okno zawierające określony arkusz są wyświetlane. Na koniec, jeśli nie była uruchomiona żadna poprzednia wersja programu Excel, kod używa metody Quit obiektu Application w celu zamknięcia programu Excel. Jeśli aplikacja była już uruchomiona, nie jest podejmowana próba jej zamknięcia. Samo odwołanie jest zwalniane przez ustawienie go na wartość Nothing.

' 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