Funkcija CreateObject

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Piezīme : Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Izveido un atgriež atsauci uz ActiveX objektu.

Sintakse

Funkcija CreateObject ( klase [, Servera_nosaukums] )

Funkcija CreateObject sintaksē ir šādi argumenti:

Arguments

Apraksts

mācību priekšmeta

Obligāts. Varianta (Virknes). Lietojumprogrammas nosaukums un mācību priekšmeta objekta izveidei.

Servera_nosaukums

Pēc izvēles. Varianta (Virknes). Tīkla serverī, kur tiks izveidots objekta nosaukums. Ja Servera_nosaukums ir tukša virkne (""), lokālajā datorā tiek izmantots.


Mācību priekšmeta arguments izmanto sintakse APPNAME %.objecttype un ir šādas daļas:

Daļa

Apraksts

APPNAME %

Obligāts. Varianta (Virknes). Lietojumprogrammas, nodrošinot objektu nosaukumu.

objecttype

Obligāts. Varianta (Virknes). Tipa vai klase objekta izveidei.


Piezīmes

Katra lietojumprogramma, kas atbalsta automatizāciju, nodrošina vismaz vienu objekta tipu. Piemēram, teksta apstrādes lietojumprogrammu var sniegt programmas objekta, dokumenta objekts un rīkjoslas objekts.

Lai izveidotu ActiveX objektu, piešķirtu objektam atgrieza CreateObject uz objekta mainīgais:

Piezīme : Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

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

Šis kods startē programmu izveides objekta, šajā gadījumā Microsoft Office Excel 2007 izklājlapu. Kad objekts ir izveidots, ir atsauce kodā, izmantojot jūsu definēto objekta mainīgo. Šajā piemērā, varat piekļūt, izmantojot objekta mainīgo, ExcelSheetun citiem Excel objekti, tostarp Application objektu un Cells kolekcijas jauna objekta rekvizīti un metodes.

' 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

Paziņojot objekta mainīgo ar klauzulu As Object izveido mainīgais, kam var saturēt atsauci uz jebkuru objekta tipu. Tomēr piekļuve šim objektam, izmantojot šo mainīgo vēlu saistīta; tas ir, piesaiste notiek, kad tiek palaista programma. Lai izveidotu objekta mainīgo, kas nodrošina agru piesaisti, t.i., piesaisti, kad programma tiek kompilēta, deklarēt objekta mainīgo ar konkrētu klases ID. Piemēram, varat deklarēt un izveidot šādas Excel atsauces:

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)

Atsauces, izmantojot priekšlaicīgas robeža mainīgo var sniegt labākai veiktspējai, taču var būt tikai atsauce uz klase norādīti deklarācija.

Jūs varat nodot atgrieza funkcija CreateObject gaida objektu kā arguments funkcijai objektu. Piemēram, šādu kodu izveido un nodod atsauci uz Excel. Application objektu:

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

Objektu var izveidot attālo tīkla datorā, iet tā datora nosaukumam, uz Servera_nosaukums argumentu CreateObject. Šis nosaukums ir tāda pati, kā kopīgot nosaukums daļa datora nosaukums: koplietojumam ar nosaukumu "\\MyServer\Public" Servera_nosaukums ir "MyServer".

Piezīme : Skatiet COM dokumentācijā (skatiet Microsoft Developer Network) lai iegūtu papildinformāciju par to, kā padarot lietojumprogrammu redzamas tīkla attālajā datorā. Jums var būt nepieciešams pievienot reģistra atslēgu lietojumprogrammas.

Šis kods atgriež versijas numuru Excel instances darbojas ar nosaukumu MyServerattālajā datorā:

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

Ja attālais serveris nepastāv vai nav pieejams, rodas izpildlaika kļūda.

Piezīme : Kad nav pašreizējās instances objekta, izmantojiet CreateObject . Ja objekta gadījums jau darbojas, tiek startēts jauns gadījums un ir izveidots norādītā tipa objekts. Izmantojiet šīs instances vai arī startēt lietojumprogrammu, un tas ir iespējams ielādēt failu, izmantojiet funkciju GetObject .

Ja objekts ir reģistrējusies kā atsevišķas instances objekts, tikai viena objekta gadījums tiek izveidots, neatkarīgi no tā, cik reizes izpildīta funkcija CreateObject .

Piemērs

Šajā piemērā funkcija CreateObject tiek izmantota, lai iestatītu atsauces (

xlApp

) programmā Excel. To izmanto atsauci, lai piekļūtu Excel redzams rekvizīts, un pēc tam izmanto Excel iziet metodes, lai to aizvērtu. Visbeidzot, tiek palaista pati atsauce.

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.

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×