CreateObject, functie

Hiermee maakt of retourneert u een verwijzing naar een ActiveX-object.

Syntaxis

CreateObject ( klasse [, servernaam] )

De syntaxis van de functie CreateObject bevat deze argumenten:

Het klasse-argument gebruikt de syntaxis appnaam.objecttype en bestaat uit deze onderdelen:

Opmerkingen

Elke toepassing die automatisering ondersteunt, bevat ten minste één type object. Een tekstverwerkingsprogramma kan bijvoorbeeld een Application-object, een Document-object en een Toolbar-object bevatten.

Als u een ActiveX-object wilt maken, wijst u het object dat wordt geretourneerd door CreateObject toe aan een objectvariabele:

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

In dit voorbeeld automatiseren we een Excel-spreadsheetobject vanuit een Access-database. Met deze code wordt de toepassing gestart die het object maakt, in dit geval een Microsoft Excel-spreadsheet. Wanneer een object is gemaakt, kunt u er in code naar verwijzen met behulp van de objectvariabele die u hebt gedefinieerd. In het volgende voorbeeld gebruikt u eigenschappen en methoden van het nieuwe object met behulp van de objectvariabele ExcelSheet, en andere objecten van Excel, waaronder het Application-object en de verzameling 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

Als u een objectvariabele declareert met de component As Object, wordt er een variabele gemaakt die een verwijzing naar elk type object kan bevatten. De toegang tot het object via deze variabele gebeurt echter via late binding, namelijk op het moment dat het programma wordt uitgevoerd. Als u een objectvariabele met vroege verbinding wilt maken, wat inhoudt dat de binding plaatsvindt als het programma wordt gecompileerd, moet u de objectvariabele declareren met een bepaalde klasse-id. U kunt bijvoorbeeld de volgende Excel-verwijzingen declareren en maken:

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)

De verwijzing via vroege binding van een variabele kan weliswaar resulteren in betere prestaties, maar er mag alleen worden verwezen naar de klasse die is opgegeven in de declaratie.

U kunt een object dat wordt geretourneerd door de functie CreateObject doorgeven aan een functie die een object als argument verwacht. Met de volgende code wordt er bijvoorbeeld een Excel.Application-object gemaakt en wordt er ook een verwijzing naar dit object doorgegeven:

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

U kunt een object maken op een externe computer in het netwerk door de naam van de computer door te geven via het argument servernaam van CreateObject. Deze naam is hetzelfde als het onderdeel Computernaam van een share-naam: voor een share met de naam '\\MijnServer\Public', komt servernaam overeen met 'MijnServer'.

Met de volgende code wordt het versienummer opgevraagd van een exemplaar van Excel dat wordt uitgevoerd op een externe computer met de naam MyServer:

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

Als de externe server niet bestaat of niet beschikbaar is, treedt er een runtimefout op.

Als een object zichzelf heeft geregistreerd als een object met één exemplaar, wordt er maar één exemplaar van het object gemaakt, ongeacht hoe vaak CreateObject wordt uitgevoerd.