Funkcija CreateObject naudojama

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Pastaba : Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris trukdo galimai nesaugių reiškinių įvertinti. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Sukuria ir grąžina nuorodą į ActiveX objektą.

Sintaksė

CreateObject ( klasė [, serverio vardas] )

Funkcijos CreateObject sintaksės argumentai:

Argumentas

Aprašas

klasės

Būtina. Variantas (Eilutės). Taikomosios programos pavadinimas ir klasės objekto kūrimas.

serverio vardas

Pasirinktinai. Variantas (Eilutės). Tinklo serveryje, kur bus sukurtas objekto pavadinimas. Jei serverio vardas yra tuščia eilutė (""), naudojamas vietinis kompiuteris.


Klasės argumentas naudoja sintaksė appname.objekto tipo ir sudarytas iš trijų dalių:

Dalis

Aprašas

appname

Būtina. Variantas (Eilutės). Gauti, kuriose objekto pavadinimas.

objekto tipo

Būtina. Variantas (Eilutės). Įveskite arba klasė objekto kūrimas.


Pastabos

Kas taikomąją programą, kuri palaiko automatinius teikia bent vieną objekto tipą. Pvz., teksto apdorojimo programa gali būti pateikiamos elementą ir dokumento objektas, įrankių juostoje objektą.

Norėdami sukurti ActiveX objektą, priskirkite CreateObject grąžintą yra objekto kintamasis:

Pastaba : Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

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

Šį kodą paleista programa sukurti objektą, šiuo atveju Microsoft Office Excel 2007 skaičiuoklę. Sukūrę objektą, galite nurodyti jį kodą naudodami objekto kintamąjį, kurį apibrėžėte. Šiame pavyzdyje, galite pasiekti ypatybės ir naudodami objekto kintamasis, ExcelSheetir kitus Excel objektus, įskaitant Application objektą ir Cells rinkinio metodai.

' 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

Paskelbti objekto kintamąjį su As Object sąlyga sukuriamas kintamasis, kuriame yra nuoroda į bet kokį objekto tipą. Tačiau prieigos prie objekto naudojant šį kintamąjį susieta pabaigoje; tai yra privalomas įvyksta, kai programa paleista. Norėdami sukurti objekto kintamąjį, gautą pradžioje susiejimas, tai yra privalomo programa surinkta, paskelbkite objekto kintamąjį su tam tikru klasės ID. Pavyzdžiui, galite paskelbti ir sukurti tokias Excel nuorodas:

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

Per anksti susijusių kintama nuorodą galite suteikti našiau, bet gali būti tik nuoroda į klasė nurodyti aprašas.

Galite perkelti objektą, kurį grąžino funkcija CreateObject laukianti objektą kaip argumentas funkcijai. Pavyzdžiui, šis kodas sukuria ir perduoda nuorodą į Excel.Application objektą:

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

Galite sukurti objektą nuotoliniame tinklo kompiuteryje perduodami kompiuterio vardą CreateObjectserverio vardo argumentui. Kad pavadinimas yra toks pat kaip vardo dalis kompiuterio vardas: bendrai naudojamo pavadinta "\\MyServer\Public", serverio vardas yra "MyServer".

Pastaba : COM dokumentaciją (rasite "Microsoft" kūrėjų tinklo) papildomos informacijos pateikti prašymą matomas tinklo nuotoliniame kompiuteryje. Turite pridėti registro raktą taikomosios programos.

Šis kodas grąžina į programą "Excel" versijos numeris veikia MyServernuotolinį kompiuterį:

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

Jei Nuotolinis serveris neegzistuoja arba yra nepasiekiamas, įvyksta vykdymo laiko klaida.

Pastaba : Naudokite CreateObject , kai nėra esamo objekto egzemplioriaus. Jei jau veikia objekto egzempliorius, naują egzempliorių darbo ir nurodyto tipo objektas yra sukurtas. Norėdami naudoti esamą egzempliorių arba paleisti programą ir jį įkelti failą, naudokite funkciją netinkamas .

Jei objektas užsiregistravo kaip vieno egzemplioriaus objektas, tik vieną egzempliorių objekto sukuriamas, nesvarbu, kiek kartų funkcija CreateObject .

Pavyzdys

Šiame pavyzdyje naudojama funkcija CreateObject naudojama nuoroda (nustatymas

xlApp

) į "Excel". Ji naudoja nuorodą pasiekti ypatybę matomas , "Excel", ir ją naudoja Excel baigti metodą, kad jį uždarytumėte. Galiausiai, išsiskiria pati nuoroda.

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.

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×