Funcția CreateObject

Important : Acest articol este tradus automat, consultați exonerarea de răspundere. Versiunea în limba engleză a acestui articol se poate găsi aici pentru referință.

Notă : Funcția, metodă, obiecte sau proprietăți cum este descris în acest subiect este dezactivat dacă serviciul de expresie Microsoft Jet se execută în modul sandbox, ceea ce împiedică evaluarea expresii potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în ajutor.

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

Sintaxă

CreateObject ( școlar [, NumeServer] )

Sintaxa funcției CreateObject are următoarele argumente:

Argument

Descriere

școlar

Sunt necesare. Variant (Șir). Nume de aplicație și clasa de obiect pentru a crea.

Nume server

Opțional. Variant (Șir). Numele de server de rețea în cazul în care se va crea obiectul. Dacă NumeServer este un șir gol (""), se utilizează computerul local.


Clasa argument utilizează sintaxa appname.objecttype și are următoarele părți:

Parte

Descriere

AppName

Sunt necesare. Variant (Șir). Numele aplicației oferind obiectul.

objecttype

Sunt necesare. Variant (Șir). Tip sau clasă de obiect pentru a crea.


Observații

Fiecare aplicație care acceptă automatizarea furnizează cel puțin un tip de obiect. De exemplu, o aplicație word procesare poate oferi un obiect de aplicație , un obiect Document și un obiect din bara de instrumente .

Pentru a crea un obiect ActiveX, atribuirea obiectul returnată de CreateObject la o variabilă obiect:

Notă : Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

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

Acest cod pornește aplicația obiectul, în acest caz, creați o foaie de calcul Microsoft Office Excel 2007 . După ce creați un obiect, referință codul utilizând variabilă obiect care definit. În exemplul următor, puteți accesa proprietăți și metode de obiect nou utilizând variabilă obiect, ExcelSheetși alte obiecte de Excel, inclusiv obiectul Application și colecția 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 o variabilă obiect cu clauza As Object creează o variabilă care poate conține o referință la orice tip de obiect. Cu toate acestea, accesul la obiectul prin acea variabilă târziu legat; care este, legarea apare atunci când este rulat programul. Pentru a crea o variabilă obiect care are ca rezultat legare inițiale, adică legare atunci când este compilată programul, declara variabilă obiect cu un ID de clasă specifice. De exemplu, poate declara și crearea referințele Excel următoarele:

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ă anticipată bazate pe poate oferi mai, dar numai poate conține o referință la clasă specificate în declarație.

Pot trece un obiect returnată de funcția CreateObject la o funcție 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 să creați un obiect pe un computer la distanță în rețea prin care trece numele computerului la argumentul NumeServerCreateObject. Acel nume este la fel ca în porțiunea automată numele unui nume de partajare: pentru o partajare de denumit "\\MyServer\Public", NumeServer este "Serverulmeu".

Notă : Consultați documentația COM (consultați Microsoft Developer Network) pentru informații suplimentare despre a face o aplicație vizibile pe un computer la distanță în rețea. Va trebui să adăugați o cheie de registry pentru aplicație.

Următorul cod Returnează numărul de versiune al o instanță 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ă, se produce o eroare la momentul rulării.

Notă : Utilizați CreateObject atunci când nu există nicio instanță curentă a obiectului. Dacă o instanță a obiectului rulează deja, o instanță nouă este pornit și se creează un obiect de tip specificat. Pentru a utiliza instanța curentă, sau pentru a porni aplicația și să-l încărcați un fișier, utilizați funcția GetObject .

Dacă un obiect în sine are înregistrate ca o singură instanță obiect, o singură instanță a obiectului este creat, indiferent de câte ori este executat CreateObject .

Exemplu

Acest exemplu utilizează funcția CreateObject pentru a seta o (de referință

xlApp

) în Excel. Vă utilizează referințe pentru a accesa proprietatea Visible de Excel, și apoi utilizează metoda Excel părăsire pentru a-l închide. În cele din urmă, referința propriu-zis este lansat.

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.

Notă : Exonerare de răspundere pentru traducere automată: Acest articol a fost tradus de un sistem computerizat, fără intervenție umană. Microsoft oferă aceste traduceri automate pentru a ajuta utilizatorii vorbitori de alte limbi decât engleza să beneficieze de conținutul despre produsele, serviciile și tehnologiile Microsoft. Pentru că articolul a fost tradus de un computer, poate conține erori de vocabular, sintaxă sau gramatică.

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×