Funkcija CreateObject

Napomena: Željeli bismo vam pružiti najnoviji sadržaj pomoći što je brže moguće i to na vašem jeziku. Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Možete li nam pri dnu ove stranice javiti jesu li vam ove informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku.

Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Stvara i vraća referencu na ActiveX objekt.

Sintaksa

Funkcija CreateObject(klasa [, nazivposlu] )

Sintaksa funkcije CreateObject sadrži sljedeće argumente:

Argument

Opis

klasa

Obavezno. Variant (Niz). Naziv aplikacije i klasa objekta za stvaranje.

nazivposlu

Dodatno. Variant (Niz). Naziv mrežnog poslužitelja na kojem će objekt biti stvoren. Ako je naziv poslužitelja prazan niz (""), koristi se lokalno računalo.


Klasa argument koristi sintaksu appname.predmet vrsta i sadrži ove dijelove:

Dio

Opis

appname

Obavezno. Variant (Niz). Naziv aplikacije koja pruža objekt.

objecttype

Obavezno. Variant (Niz). Vrsta ili _ z0z_ objekta za stvaranje.


Napomene

Svaka aplikacija koja podržava automatizaciju nudi najmanje jednu vrstu objekta. Aplikacija za obradu programa Word može, primjerice, ponuditi objekt aplikacije , objekt dokumenta i objekt alatne trake .

Da biste stvorili ActiveX objekt, dodijelite objekt koji je vratio CreateObject na _ z0z_:

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

' 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 ćemo primjeru automatizira objekt proračunske tablice programa Excel unutar baze podataka programa Access. Ovaj kod pokreće aplikaciju koja stvara objekt, u ovom slučaju, proračunsku tablicu programa Microsoft Excel. Kada se objekt stvori, možete ga referencirati u kodu pomoću varijable objekta koju ste definirali. U sljedećem primjeru možete pristupiti svojstvima i načinima novog objekta pomoću varijable Object, _ z0z_i drugih objekata programa Excel, uključujući objekt _ z1z_ i _ z2z_ Collection.

' 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

Objavljujući varijablu objekta s _ z0z_ klauzulom stvara se varijabla koja može sadržavati referencu na bilo koju vrstu objekta. No pristup objektu kroz tu varijablu kasni. To jest, povezivanje se pojavljuje kada se program pokreće. Da biste stvorili varijablu objekta koja rezultira ranom obvezujući, odnosno obvezujućom prilikom sastavnog programa, deklarirajte varijablu objekta s određenim ID-om razreda. Možete, primjerice, proglasiti i stvoriti sljedeće reference u programu Excel:

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 putem rane varijable može pružiti bolje performanse, no može sadržavati samo referencu na _ z0z_ navedeno u sustavu _ z1z_.

Možete proći objekt koji je vratio funkcija CreateObject na funkciju koja očekuje objekt kao argument. Na primjer, sljedeći kod stvara i prosljeđuje referencu na objekt programa Excel. aplikacija:

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

Objekt možete stvoriti na udaljenom umreženi računalu tako da dodate naziv računala u argument poslužiteljaCreateObject. Taj je naziv isti kao dio naziva zajedničkog korištenja naziva računala: za zajedničko korištenje pod nazivom "\\myserver\public", poslužitelja " nazivposlu " je "myserver".

Napomena:  Pogledajte COM dokumentaciju (pogledajte Microsoftovu mrežu za razvojne inženjere) da biste dobili dodatne informacije o tome da aplikacija bude vidljiva na udaljenom umreženi računalo. Možda ćete morati dodati registarski ključ za aplikaciju.

Sljedeći kod vraća broj verzije instance programa Excel koja se pokreće na udaljenom računalu pod nazivom _ z0z_:

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

Ako udaljeni poslužitelj ne postoji ili nije dostupan, pojavljuje se pogreška prilikom izvođenja.

Napomena:  Koristite CreateObject kada nema trenutnih instanci objekta. Ako je instanca objekta već pokrenuta, pokrenut će se nova instanca i stvorit će se objekt određene vrste. Da biste koristili postojeću instancu ili pokrenuli aplikaciju te je učitali, upotrijebite funkciju GetObject .

Ako se objekt registrirao kao objekt jednostrukog instanca, stvorit će se samo jedna instanca objekta, bez obzira na to koliko se puta izvodi CreateObject .

Primjer

U ovom se primjeru pomoću funkcije CreateObject postavlja referenca (

xlApp

) u Excel. Koristi referencu da bi pristupio svojstvima vidljivog programa Excel, a zatim ga zatvara pomoću metode za odustajanje u programu Excel. Konačno, sama referenca je objavljena.

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.
Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×