Funkce GetObject

Vrátí odkaz na objekt poskytnutý komponentou ActiveX.

Syntaxe

GetObject([název_cesty ] [, třída ] )

Syntaxe funkce GetObject obsahuje tyto argumenty:

Argument	Popis
název_cesty	Nepovinný argument. Proměnná (String). Úplná cesta a název souboru obsahujícího objekt, který chcete načíst. Pokud je pathname vynechán, je třída povinná.
třída	Nepovinný argument. Proměnná (String). Řetězec představující třídu objektu.

Argument classpoužívá syntaxi appname.objecttype a skládá se z těchto částí:

Část	Popis
název aplikace	Povinný argument. Proměnná (String). Název aplikace poskytující objekt.
typ objektu	Povinný argument. Proměnná (String). Typ nebo třída objektu, který chcete vytvořit.

Poznámky

Funkce GetObject slouží k přístupu k objektu ActiveX ze souboru a přiřazení objektu k objektové proměnné. Pomocí příkazu Set přiřaďte objekt vrácený funkcí GetObject proměnné objektu. Příklady:

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

Při spuštění tohoto kódu se spustí aplikace přidružená k zadanému názvu cesty a aktivuje se objekt v zadaném souboru.

Pokud je pathname řetězec nulové délky (""), vrátí funkce GetObject novou instanci objektu zadaného typu. Pokud je argument pathname vynechán, GetObject vrátí aktuálně aktivní objekt zadaného typu. Pokud žádný objekt daného typu neexistuje, dojde k chybě.

Některé aplikace umožňují aktivaci části souboru. Na konec názvu souboru přidejte vykřičník (!) a za něj řetězec označující část souboru, kterou chcete aktivovat. Informace o tom, jak tento řetězec vytvořit, najdete v dokumentaci k aplikaci, která objekt vytvořila.

Například ve výkresové aplikaci můžete mít více vrstev výkresu uloženého v souboru. Následující kód můžete použít k aktivaci hladiny ve výkresu s názvem SCHEMA.CAD:

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

Pokud nezadáte třídu objektu, automatizace určí aplikaci, která se má spustit, a objekt, který se má aktivovat, na základě zadaného názvu souboru. Některé soubory ale můžou podporovat více než jednu třídu objektu. Výkres může například podporovat tři různé typy objektů: objekt aplikace , objekt kresby a objekt panelu nástrojů , přičemž všechny tyto objekty jsou součástí stejného souboru. Chcete-li určit, který objekt v souboru chcete aktivovat, použijte volitelný argument třídy . Příklady:

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

V tomto příkladu je název kreslicí aplikace a DRAWING je jedním z typů objektů, FIGMENT které podporuje.

Jakmile je objekt aktivován, odkazujete na něj v kódu pomocí objektové proměnné, kterou jste definovali. V předchozím příkladu přistupujete k vlastnostem a metodám nového objektu pomocí proměnné MyObjectobjektu. Příklady:

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

Pokud se objekt zaregistroval jako objekt s jednou instancí, vytvoří se pouze jedna instance objektu bez ohledu na to, kolikrát je CreateObject spuštěn. U objektu s jednou instancí vrátí funkce GetObject vždy stejnou instanci, pokud je volána se syntaxí řetězce nulové délky ("") a pokud je argument pathname vynechán, způsobí chybu. GetObject nelze použít k získání odkazu na třídu vytvořenou pomocí jazyka Visual Basic.

Příklad

V tomto příkladu se funkce GetObject používá k získání odkazu na určitý excelový list (MyXL). Pomocí vlastnosti Application listu Excel zviditelní, zavře jeho atd. DetectExcel Sub procedura vyhledá Excel, a pokud je spuštěný, vloží ho do tabulky spuštěných objektů. První volání funkce GetObject způsobí chybu, pokud ještě není spuštěný Microsoft Excel. V tomto příkladu chyba způsobí, že se příznak ExcelWasNotRunning nastaví na hodnotu True. Druhé volání GetObject určuje soubor, který se má otevřít. Pokud Excel ještě není spuštěný, spustí ho druhé volání a vrátí odkaz na list představovaný zadaným souborem mytest.xls. Soubor musí existovat v zadaném umístění. V opačném případě se vygeneruje chyba Visual Basic Error Automation. V dalším příkladu kódu se zobrazí Excel a okno obsahující zadaný list. A nakonec, pokud nebyla spuštěna žádná předchozí verze aplikace Excel, kód pomocí metody Quit objektu aplikace ukončí aplikaci Excel. Pokud už aplikace běžela, neprovede se žádný pokus o její ukončení. Samotný odkaz se uvolní nastavením na 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