Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".

Vytvoří a vrátí odkaz na objekt ActiveX.

Syntaxe

CreateObject ( třída [; název_serveru] )

Syntaxe funkce CreateObject má tyto argumenty:

Argument

Popis

třída

Povinný argument. Varianta (řetězec). Název aplikace a třída objektu, který se má vytvořit.

Název_serveru

Nepovinný argument. Varianta (řetězec). Název síťového serveru, na kterém bude objekt vytvořen. Pokud je název_serveru prázdný řetězec (""), použije se místní počítač.

TřídaArgument používá syntaxi appname.objecttype a má tyto části:

Část

Popis

Appname

Povinný argument. Varianta (řetězec). Název aplikace poskytující objekt.

Objecttype

Povinný argument. Varianta (řetězec). Typ nebo Třída objektu, který se má vytvořit.

Poznámky

Každá aplikace, která podporuje automatizaci, poskytuje alespoň jeden typ objektu. Aplikace pro zpracování textu může například poskytnout objekt Aplikace , objekt Dokumentu a objekt panelu nástrojů .

Chcete-li vytvořit objekt ActiveX, přiřaďte objekt vrácený objektem CreateObject k Objektová proměnná:

Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

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

V tomto příkladu budeme automatizovat objekt excelové tabulky z accessové databáze. Tento kód spustí aplikaci, která vytváří objekt, v tomto případě tabulku Microsoft Excelu. Po vytvoření objektu na něj odkazujete v kódu pomocí proměnné objektu, kterou jste definovali. V následujícím příkladu přistupujete k vlastnostem a metodám nového objektu pomocí proměnné objektu, ExcelSheeta dalších objektů aplikace Excel, včetně objektu Application a kolekce Cells .

' 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

Deklarace proměnné objektu pomocí klauzule As Object vytvoří proměnnou, která může obsahovat odkaz na libovolný typ objektu. Přístup k objektu prostřednictvím této proměnné je však vázaný pozdě; to znamená, že vazba nastane při spuštění programu. Chcete-li vytvořit proměnnou objektu, která má za následek počáteční vazbu, tj. vazbu při kompilaci programu, deklarujte proměnnou objektu s konkrétním ID třídy. Můžete například deklarovat a vytvořit následující excelové odkazy:

Dim xlApp As Excel.Application Dim xlBook As Excel.WorkbookDim xlSheet As Excel.WorkSheetSet xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)

Odkaz prostřednictvím proměnné s časnou vazbou může poskytnout lepší výkon, ale může obsahovat pouze odkaz na Třída zadaný v Deklarace.

Objekt vrácený funkcí CreateObject můžete předat funkci, která očekává objekt jako argument. Například následující kód vytvoří a předá odkaz na objekt Excel.Application:

Call MySub (CreateObject("Excel.Application"))

Na vzdáleném počítači v síti můžete vytvořit objekt předáním názvu počítače do argumentu název_serveruCreateObject. Tento název je stejný jako část názvu počítače v názvu sdílené složky: pro sdílenou složku s názvem \\MyServer\Public je název serveru MyServer.

Poznámka:  Další informace o zviditelnění aplikace na vzdáleném počítači v síti najdete v dokumentaci modelu COM (viz Microsoft Developer Network). Možná budete muset přidat klíč registru pro vaši aplikaci.

Následující kód vrátí číslo verze instance aplikace Excel spuštěné ve vzdáleném počítači s názvem MyServer:

Dim xlApp As ObjectSet xlApp = CreateObject("Excel.Application", "MyServer")Debug.Print xlApp.Version

Pokud vzdálený server neexistuje nebo je nedostupný, dojde k chybě za běhu.

Poznámka:  Pokud neexistuje žádná aktuální instance objektu, použijte CreateObject . Pokud je instance objektu již spuštěna, spustí se nová instance a vytvoří se objekt zadaného typu. Pokud chcete použít aktuální instanci nebo spustit aplikaci a načíst soubor, použijte funkci GetObject .

Pokud se objekt zaregistroval jako objekt s jednou instancí, vytvoří se pouze jedna instance objektu bez ohledu na to, kolikrát je objekt CreateObject proveden.

Příklad

Tento příklad používá funkci CreateObject k nastavení odkazu (

xlApp

) do Excelu. Používá odkaz pro přístup k vlastnosti Visible aplikace Excel a pak pomocí metody Ukončení aplikace Excel ji zavřete. Nakonec se uvolní samotný odkaz.

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.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.