Prijavite se pomoću Microsoft naloga
Prijavite se ili kreirajte nalog.
Zdravo,
Select a different account.
Imate više naloga
Odaberite nalog pomoću kojih želite da se prijavite.

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

Obavezno. 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.


Razred argument koristi sintaksu APPNAME.objecttype i ima ove delove:

Deo

Opis

APPNAME

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

objecttype

Obavezno. Varijanta (Niska). Tip ili klasa 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 promenljiva objekta:

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 imate pristup svojstvima i metodima novog objekta pomoću promenljive objekta, ExcelSheeti drugih Excel objekata, uključujući Application objekat i kolekciju 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

Proglašenjem promenljive objekta pomoću klauzule As Object se kreira promenljiva 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 klasa navedenu u deklaracija.

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 radi na udaljenom računaru koji se zove MyServer:

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.

Potrebna vam je dodatna pomoć?

Unapredite veštine
Istražite obuku

Da li su vam ove informacije koristile?

Koliko ste zadovoljni kvalitetom jezika?
Šta je uticalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×