Funkcija „CreateObject“

Napomena: Želimo da vam što pre pružimo najnoviji sadržaj pomoći čim na vašem jeziku. Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li nam na dnu ove stranice saopštiti da li su vam informacije bile od koristi? Ovo je članak na engleskom jeziku za brzu referencu.

Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".

Kreira i vraća referenca na ActiveX objekat.

Sintaksa

CreateObject ( klasa [, ime servera] )

Sintaksa funkcije CreateObject ima sledeće argumente:

Argument

Opis

klasa

Obavezna. Varijanta (Niska). Ime aplikacije i klasa objekta za kreiranje.

servername

Opcionalno. Varijanta (Niska). Ime mrežnog servera na kojem će se kreirati objekat. Ako je ime servera prazna niska (""), koristi se lokalni računar.


Class cz0z_ koristi APPNAMEsintaksu.objecttype i ima ove delove:

Deo

Opis

APPNAME

Obavezna. Varijanta (Niska). Ime aplikacije koja pruža objekat.

objecttype

Obavezna. Varijanta (Niska). Tip ili _ z0z_ objekta za kreiranje.


Napomene

Svaka aplikacija koja podržava automatizaciju pruža najmanje jedan tip objekta. Na primer, aplikacija za obradu reči može da obezbedi objekat aplikacije , objekat dokumenta i objekat trake sa alatkama .

Da biste kreirali ActiveX objekat, dodelite objekat koji je vratio CreateObject u _ z0z{:

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

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

U ovom primeru automatizujemo objekat Excel unakrsne tabele iz Access baze podataka. Ovaj kôd pokreće aplikaciju kreiranje objekta, u ovom slučaju Microsoft Excel unakrsna tabela. Kada se objekat kreira, upućuje se na kôd pomoću promenljive objekta koju ste definisali. U sledećem primeru, pristupate svojstvima i metodima novog objekta pomoću promenljive objekta, _ z0z_i drugih Excel objekata, uključujući objekat " _ z1zve " i stavke " _ z2zve ".

' 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

Deklarisanje promenljive objekta pomoću odredbe _ z0z_ kreira promenljivu koja može da sadrži referenca za bilo koji tip objekta. Međutim, pristup objektu kroz tu promenljiva je u kasnijem odnosu; To jest, povezivanje dolazi kada se program pokrene. Da biste kreirali promenljive objekta koje rezultira ranim povezivanjem, to jest, povezivanje kada se program sastavi, proglasite promenljivom objekat. Na primer, možete da proglasite i kreirate sledeće Excel reference:

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)

Referenca pomoću promenljive koja je rano povezana može da pruži bolje performanse, ali može da sadrži samo referenca za _ z0zve navedenu u usluzi _z1zve.

Možete da prosledite objekat koji je vratio funkcija CreateObject da bi funkcija očekivala objekat kao argument. Na primer, sledeći kôd kreira i prosleđuje referenca na Excel. Application objekat:

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

Možete da kreirate objekat na udaljenom mrežni računar tako što ćete prosleđiti ime računara u argument serverski argument CreateObject. To ime je isto kao deo imena mašine: za deljeno ime "\\MyServer\Public", "imeime" je myserver.

Napomena:  Pogledajte COM dokumentaciju (pogledajte Microsoft Developer Network) za dodatne informacije o pravljenju vidljive aplikacije na udaljenom umreћenom računaru. Možda ćete morati da dodate ključ registratora za aplikaciju.

Sledeći kôd daje broj verzije instance programa Excel koji je pokrenut na udaljenom računaru koji se zove _ z0z{:

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

Ako Udaljeni server ne postoji ili je nedostupan, dolazi do greške pri izvršanju.

Napomena:  Koristite CreateObject kada ne postoji trenutna instanca objekta. Ako je instanca objekta već pokrenuta, počinje nova instanca i objekat određenog tipa se kreira. Da biste koristili trenutnu instancu ili da biste pokrenuli aplikaciju i da li je učitala datoteku, koristite funkciju GetObject .

Ako se objekat registrovao kao objekat sa jednim instancom, kreira se samo jedna instanca objekta, bez obzira na to koliko se puta Kreateobject izvršava.

Primer

Ovaj primer koristi funkciju CreateObject za postavljanje referenca (

xlApp

) u Excel. Koristi referenca za pristup vidljivom svojstvu programa Excel, a zatim koristi metodu Excel prekine da bi je zatvorio. Na kraju će se objaviti samo referenca.

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.
Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Izgleda da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×