CreateObject (funksjon)

Obs!: Vi ønsker å gi deg det nyeste hjelpeinnholdet så raskt som mulig, på ditt eget språk. Denne siden er oversatt gjennom automatisering og kan inneholde grammatiske feil eller unøyaktigheter. Formålet vårt er at innholdet skal være nyttig for deg. Kan du fortelle oss om informasjonen var nyttig for deg nederst på denne siden? Her er den engelske artikkelen for enkel referanse.

Obs!: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression service kjører i sand kasse modus, noe som hindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sand kasse modus, kan du søke etter «sand kasse modus» i hjelp.

Oppretter og returnerer en referanse til et ActiveX-objekt.

Syntaks

CreateObject ( klasse [; server navn] )

Syn tak sen for funksjonen CreateObject har disse argumentene:

Argument

Beskrivelse

klasse

Obligatorisk. Variant (Streng). Program navnet og klassen for objektet som skal opprettes.

servernavn

Valgfritt. Variant (Streng). Navnet på nettverksserveren der objektet skal opprettes. Hvis servername er en tom streng (""), brukes den lokale data maskinen.


Klassen argument bruker syn tak sen Appname.objekt type og har følgende deler:

Del

Beskrivelse

program

Obligatorisk. Variant (Streng). Navnet på programmet som gir objektet.

type

Obligatorisk. Variant (Streng). Typen eller klasse for objektet som skal opprettes.


Kommentarer

Hvert program som støtter automatisering, inneholder minst én objekt type. Et tekstbehandlings program kan for eksempel inneholde et program objekt, et dokument objekt og et verktøy linje objekt.

Hvis du vil opprette et ActiveX-objekt, tilordner du objektet som returneres av CreateObject , til en objektvariabel:

Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.

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

I dette eksemplet skal vi automatisere et Excel-regnearkobjekt fra en Access-database. Denne koden starter programmet som oppretter objektet, i dette tilfellet et Microsoft Excel-regneark. Når et objekt er opprettet, refererer du til det i koden ved hjelp av objektvariabelen du definerte. I følgende eksempel får du tilgang til egenskaper og metoder for det nye objektet ved hjelp av objektvariabelen, ExcelSheetog andre Excel-objekter, inkludert Application -objektet og Cells -samlingen.

' 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

Deklarering av en objekt variabel med As Object -setningen oppretter en variabel som kan inneholde en referanse til en hvilken som helst objekt type. Tilgang til objektet gjennom denne variabelen er imidlertid sen bundet. det vil si at bindingen skjer når programmet kjører. Hvis du vil opprette en objekt variabel som resulterer i tidlig binding, det vil si binding når programmet kompileres, deklarerer du objekt-variabelen med en bestemt klasse-ID. Du kan for eksempel deklarere og opprette følgende Excel-referanser:

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)

Referansen gjennom en variabel med tidlig binding kan gi bedre ytelse, men kan bare inneholde en referanse til klasse som er angitt i deklarasjon.

Du kan sende et objekt som returneres av CreateObject -funksjonen, til en funksjon som forventer et objekt som et argument. Følgende kode oppretter for eksempel og sender en referanse til et Excel. Application-objekt:

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

Du kan opprette et objekt på en ekstern nettverks data maskin ved å sende navnet på data maskinen til servernavn -argumentet i CreateObject. Dette navnet er det samme som maskin navn delen av et navn på delt ressurs: for en delt ressurs kalt "\\MyServer\Public", er servername "minserver".

Obs!:  Se COM-dokumentasjonen (se Microsoft Developer Network) Hvis du vil ha mer informasjon om hvordan du gjør et program synlig på en ekstern nettverks data maskin. Det kan hende du må legge til en register nøkkel for programmet.

Følgende kode returnerer versjons nummeret til en forekomst av Excel som kjører på en ekstern data maskin med navnet MyServer:

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

Hvis den eksterne serveren ikke finnes eller er utilgjengelig, oppstår det en kjøre tids feil.

Obs!:  Bruk CreateObject når det ikke er noen gjeldende forekomst av objektet. Hvis en forekomst av objektet allerede kjører, startes en ny forekomst, og et objekt av den angitte typen opprettes. Hvis du vil bruke den gjeldende forekomsten, eller for å starte programmet og laste inn en fil, bruker du GetObject -funksjonen.

Hvis et objekt har registrert seg som et enkelt forekomst objekt, opprettes bare én forekomst av objektet, uansett hvor mange ganger CreateObject kjøres.

Eksempel

I dette eksemplet brukes CreateObject -funksjonen til å angi en referanse (

xlApp

) til Excel. Den bruker referansen til å få tilgang til egenskapen Visible for Excel, og bruker deretter Avslutt -metoden i Excel til å lukke den. Til slutt frigis selve referansen.

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.
Bli bedre på Office
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×