Funkcija CreateObject

Ustvari in vrne sklic na predmet ActiveX.

Sintaksa

CreateObject ( razred [, ime strežnika] )

Sintaksa funkcije CreateObject ima te argumente:

Razred argument uporablja sintakso ime programa. Vrsta predmeta je sestavljena iz teh delov:

Opombe

Vsak program, ki podpira avtomatizacijo, zagotavlja vsaj eno vrsto predmeta. Na primer, program za urejanje besedil lahko posreduje predmete program, dokument in orodno vrstico.

Če želite ustvariti predmet ActiveX, dodelite predmet, ki ga vrne CreateObject , spremenljivka predmeta:

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

V tem primeru bomo avtomatizirali predmet Excelove preglednice iz Accessove zbirke podatkov. Ta koda zažene program, ki ustvari predmet, v tem primeru Microsoft Excelovo preglednico. Ko je predmet ustvarjen, se sklicujete nanj v kodi z uporabo spremenljivke predmeta, ki ste jo določili. V tem primeru dostopate do lastnosti in metod novega predmeta s spremenljivko predmeta, ExcelSheet, in drugih Excelovih predmetov, vključno s predmetom Application in z zbirko 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

Z deklariranjem spremenljivke predmeta s stavkom As Object se ustvari spremenljivka, ki lahko vsebuje sklic na katero koli vrsto predmeta. Vendar pa je dostop do predmeta prek te spremenljivke pozno vezan; do vezave pride, ko se zažene program. Če želite ustvariti spremenljivko predmeta, ki se odrazi v zgodnji vezavi, torej vezavi, ko je program preveden, deklarirajte spremenljivko predmeta z določenim ID-jem razreda. Na primer, deklarirate in ustvarite lahko te Excelove sklice:

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)

Sklic prek predčasne vezane spremenljivke lahko daje boljšo učinkovitost delovanja, vendar lahko vsebuje le sklic na podatke razred določene v deklaracija.

Predmet, ki ga vrne funkcija CreateObject lahko podate funkciji, ki pričakuje predmet kot argument. Na primer, spodnja koda ustvari in poda sklic na predmet Excel.Application:

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

Ustvarite lahko predmet v oddaljenem omreženem računalniku, tako da v argument ime strežnika funkcije CreateObject podate ime računalnika. To je isto ime kot je del imena računalnika za skupno rabo: če je ime za skupno rabo »\\MyServer\Public«, je argument ime strežnika »MyServer«.

Spodnja koda vrne številko različice primerka Excela, ki se izvaja v oddaljenem računalniku z imenom MyServer:

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

Če oddaljeni strežnik ne obstaja ali pa ni na voljo, pride do napake med izvajanjem.

Če se je predmet registriral kot enkratni primerek predmeta, se ustvari samo en primerek predmeta, ne glede na to, kolikokrat se izvede funkcija CreateObject.