Funktionen CreateObject

Skapar och returnerar en referens till ett ActiveX-objekt.

Syntax

CreateObject ( klass [, servernamn] )

CreateObject-funktionens syntax har följande argument:

Klass argument använder syntax appnamn.objekttyp och har följande delar:

Anmärkningar

Alla program som stöder automation innehåller minst en objekttyp. I ett ordbehandlingsprogram kan det till exempel finnas ett Programobjekt, ett Dokumentobjekt och ett Verktygsfältobjekt.

Om du vill skapa ett ActiveX-objekt tilldelar du objektet som returneras av CreateObject till en objektvariabel:

' 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 det här exemplet automatiserar vi ett Excel-kalkylbladsobjekt inifrån en Access-databas. Med den här koden börjar programmet att skapa objektet, i det här fallet ett Microsoft Excel-kalkylblad. När ett objekt har skapats kan du referera till det i koden genom att använda objektvariabeln som du har definierat. I följande exempel kommer du åt egenskaper och metoder för det nya objektet med hjälp av objektvariabeln ExcelSheet, och andra Excel-objekt, inklusive Application-objektet och 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

Om du deklarerar en objektvariabel med As Object -satsen skapas en variabel som kan innehålla en referens till alla typer av objekt. Åtkomsten till objektet genom variabeln är dock sen bunden. bindningen sker alltså när programmet körs. Om du vill skapa en objektvariabel som resulterar i tidig bindning, d.v.s. bindning när programmet kompileras, deklarerar du objektvariabeln med ett specifikt klass-ID. Du kan till exempel deklarera och skapa följande Excel-referenser:

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)

Referensen till en variabel med tidig bindning kan ge bättre prestanda, men kan endast innehålla en referens till den klass som anges i deklaration.

Du kan skicka ett objekt som returneras av CreateObject-funktionen till en funktion som tar ett objekt som ett argument. Följande kod skapar och skickar en referens till ett Excel.Application-objekt:

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

Du kan skapa ett objekt på en dator ansluten till ett fjärrnätverk genom att ange namnet på datorn till argumentet servernamn för CreateObject. Namnet är detsamma som datornamnet i ett resursnamn: för en resurs med namnet "\\MyServer\Public" är servernamn "MyServer."

Följande kod returnerar versionsnumret för en instans av Excel som körs på en fjärrdator med namnet MyServer:

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

Ett fel uppstår om fjärrservern inte finns eller inte är tillgänglig.

Om ett objekt har registrerat sig själv som ett objekt med en enstaka instans skapas bara en förekomst av objektet oavsett hur många gånger CreateObject körs.