Funcția CreateObject

Creează și returnează o referință la un obiect ActiveX.

Sintaxă

CreateObject ( clasă [, numeserver] )

Sintaxa funcției CreateObject are următoarele argumente:

Clasa argument utilizează numele de aplicație pentru sintaxă.objecttype și are următoarele componente:

Observații

Fiecare aplicație care acceptă automatizare oferă cel puțin un tip de obiect. De exemplu, o aplicație de procesare a textului poate furniza un obiect Aplicație , un obiect Document și un obiect bară de instrumente .

Pentru a crea un obiect ActiveX, atribuiți obiectul returnat de CreateObject unui variabilă obiect:

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

În acest exemplu, vom automatizează un obiect foaie de calcul Excel dintr-o bază de date Access. Acest cod pornește aplicația care creează obiectul, în acest caz, o foaie de calcul Microsoft Excel. După ce este creat un obiect, faceți referire la el în cod utilizând variabila de obiect pe care ați definit-o. În exemplul următor, accesați proprietățile și metodele obiectului nou utilizând variabila obiect, ExcelSheetși alte obiecte Excel, inclusiv obiectul Application și colecția de 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

Declararea unei variabile obiect cu clauza As Object creează o variabilă care poate conține o referință la orice tip de obiect. Cu toate acestea, accesul la obiect prin această variabilă este legat târziu; mai exact, legarea are loc atunci când rulează programul. Pentru a crea o variabilă de obiect care are ca rezultat legarea timpurie, adică legarea la compilarea programului, declarați variabila obiect cu un ID de clasă specific. De exemplu, puteți declara și crea următoarele referințe Excel:

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)

Referința printr-o variabilă legată timpuriu poate oferi o performanță mai bună, dar poate conține doar o referință la clasă specificate în declarație.

Puteți transmite un obiect returnat de funcția CreateObject unei funcții care așteaptă un obiect ca argument. De exemplu, următorul cod creează și transmite o referință la un obiect Excel.Application:

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

Puteți crea un obiect pe un computer aflat în rețea la distanță, transferând numele computerului la argumentul numeserver al CreateObject. Acest nume este același cu porțiunea Nume computer a unui nume de partajare: pentru o partajare numită "\\ServerulMeu\Public", numele serverului este "Serverulmeu".

Următorul cod returnează numărul de versiune al unei instanțe de Excel care rulează pe un computer la distanță denumit MyServer:

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

Dacă serverul la distanță nu există sau nu este disponibil, apare o eroare la momentul rulării.

Dacă un obiect s-a înregistrat ca obiect cu o singură instanță, se creează o singură instanță a obiectului, indiferent de câte ori se execută CreateObject .