Funkcija CreateObject

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Napomena : Funkcija, način, objekt ili svojstvo koje su opisane u ovoj temi onemogućeno je ako Microsoft Jet Expression Service izvodi u načinu rada s memorijom za testiranje, što sprječava potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje ključnoj riječi "način rada s memorijom za testiranje" u sustavu pomoći.

Stvara i vraća referencu ActiveX objekt.

Sintaksa

Funkcija CreateObject ( predmete [, naziv poslužitelja] )

Sintaksa funkcije CreateObject sadrži sljedeće argumente:

Argument

Opis

klase

Obavezan. Variant (Niz). Naziv aplikacije i klasa objekta koji želite stvoriti.

Naziv poslužitelja

Neobavezno. Variant (Niz). Naziv mrežnog poslužitelja na kojem će se stvoriti objekt. Ako je naziv poslužitelja praznog niza (""), koristi se lokalno računalo.


Klase argument koristi sintaksu appname.vrstu objekta i sastoji se od ovih dijelova:

Dio

Opis

appname

Obavezan. Variant (Niz). Naziv aplikacije koja omogućuje objekt.

vrstu objekta

Obavezan. Variant (Niz). Vrsta ili klasa objekta da biste stvorili.


Napomene

Svaka aplikacija koja podržava automatizaciju omogućuje najmanje jednu vrstu objekta. Na primjer, aplikacija za obradu pružati objekt aplikacija , objekt dokumenta i na alatnoj traci objekt.

Da biste stvorili ActiveX objekt, dodijelite objekt koji je vratila CreateObjectvarijabla objekta:

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")

Kod pokreće aplikaciju koja stvara objekt, u ovom slučaju Microsoft Office Excel 2007 proračunske tablice. Nakon stvaranja objekta, upućujete ga u kod korištenjem varijable objekta koji ste definirali. U sljedećem primjeru pristupiti svojstva i metode novi objekt pomoću varijabla objekta, ExcelSheeti drugih objekata programa Excel, uključujući objekt Application i Cells zbirke.

' 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

Deklariranje varijable objekta uvjet As Object stvara varijabla koja može sadržavati reference na bilo kojoj vrsti objekta. Međutim, pristup objektu kroz ta varijabla kašnjenja vezana; To je povezivanje pojavljuje se prilikom pokretanja programa. Da biste stvorili varijablu objekta čiji je rezultat Prijevremeni uvez, odnosno povezivanje kada na primjer, deklarirati varijabla objekta s ID-a za određene klase Na primjer, deklarirati i stvoriti sljedeć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)

Vodič kroz varijablu Prijevremeni granica ponudit će bolje performanse, ali može sadržavati samo referenca klasa naveden u deklaracija.

Možete proslijediti objekt koji je vratio funkcija CreateObject očekuje objekt kao argument funkcije. Na primjer, sljedeći kod stvara i prosljeđuje referencu Excel.Application objekta:

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

Objekt možete stvoriti na udaljenom računalu umreženi prosljeđivanjem naziv računala argument naziv poslužiteljaCreateObject. Taj naziv je isti kao dio naziv računala naziv zajedničke mape: za dijeljenje pod nazivom "\\MyServer\Public", naziv poslužitelja je "MojPoslužitelj".

Napomena : COM dokumentaciji (potražite u članku Microsoft Developer Network) dodatne informacije o da aplikaciju vidljive na udaljenom računalu umreženi. Možda ćete morati dodati ključ registra za svoju aplikaciju.

Sljedeći kod vraća broj verzije instance programa Excel na udaljenom računalu pod nazivom MyServer:

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 pri izvođenju.

Napomena : Pomoću Funkcija CreateObject kada nema trenutne instance objekta. Ako već traje instancu objekta, pokreće novu instancu i stvara se objekt određene vrste. Da biste koristili trenutne instance ili za pokretanje aplikacije, a zatim ga učitali datoteku, koristi se funkcija GetObject .

Ako neki objekt registrirao kao objekt jednostruke instance, samo jednu instancu objekta stvoriti, bez obzira koliko je puta CreateObject se izvršava.

Primjer

U ovom se primjeru koristi funkcija CreateObject da biste postavili reference (

xlApp

) u Excel. Referenca se koristi za pristup svojstvo Visible programa Excel, a zatim koristi Excel Quit način da biste ga zatvorili. Na kraju, referenca je objavio.

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.

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
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.

×