CreateObject функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

ActiveX деректер нысандары (ADO) сілтемені жасау және қайтару үшін.

Синтаксис

CreateObject(сынып [, сервер атауы] )

CreateObject функциясы синтаксисінің төмендегідей дәлелдері бар:

Дәлел

Сипаттама

сынып

Міндетті. Нұсқасы (Жол). Бағдарламаның атауы және жасалатын нысанның сыныбы.

сервер атауы

Міндетті.Нұсқасы (Жол). Нысан жасалатын жүйе серверінің атауы. Егер сервер атауы бос жол ("") болса, пайдаланушы компьютері пайдаланылады.


Сынып аргументбағдарлама аты.нысан түрі сияқты синтаксисті пайдаланады және төмендегідей бөлімдерден тұрады:

Бөлім

Сипаттама

бағдарлама атауы

Міндетті. Нұсқасы (Жол). Нысанды ұсынатын бағдарлама атауы.

нысан түрі

Міндетті. Нұсқасы (Жол). Жасалатын нысанның түрі немесе класс.


Түсіндірмелер

Автоматтандыруды қолдайтын әрбір бағдарлама, кем дегенде, нысанның бір түрін ұсынады. Мысалы, мәтіндерді пысықтау бағдарламасы Бағдарлама нысанын, Құжат нысанын және Құралдар тақтасы нысанын ұсынуы мүмкін.

ActiveX нысанын жасау үшін, CreateObject функциясы қайтарған нысанды нысан айнымалысы тағайындаңыз:

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

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

Төмендегі код бағдарламаны іске қосып, нысанды, бұл жағдайда Microsoft Office Excel 2007 электрондық кестесін, жасайды. Нысан жасалғаннан кейін, сіз белгілеген нысанның айнымалы мәнін пайдалана отырып, нысанға сілтемені кодта көрсетесіз. Төмендегі мысалда көрсетілгендей, нысанның айнымалы мәні, ExcelSheet, басқа Excel нысандары, оның ішінде Application нысаны, және 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

Нысанның айнымалы мәнінің кодын As Object сөйлемінен жазу нәтижесінде, нысанның кез келген түріне сілтемесі құрамында бар айнымалы мән жасалады. Алайда, бұл айнымалы мән арқылы нысанға деген қатынас кейінірек байланыстырылады; байланыстыру үрдісі бағдарламаңыз жегілген кезде орындалады. Бағдарлама құрылғанда, яғни дейінгі байланыстыру үрдісі орындалатын нысанның айнымалы мәнін жасау үшін, нысанның айнымалы мәнінің анықталған сынып кодын жасаңыз. Мысалы, төмендегідей 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)

Дейінгі байланыстырылған айнымалы мәнге сілтеме жасау өнімділікті жақсарта алады, бірақ жарияланым белгіленген класс сілтемесі ғана құрамында бар болуы мүмкін.

Нысанды жасау функциясы қайтарған нысанды дәлел ретінде күтетін функцияға бере аласыз. Мысалы, төмендегі код Excel.Application нысанын жасап, оған сілтеме береді:

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

Нысанды жасау функциясының сервер аты дәлеліне компьютердің атын бере отырып, жүйеге қосылған қашықтағы компьютерде нысанды жасай аласыз. Бұл ат ортақ атаудың Компьютер атының бір бөлігі болып табылады: ортақ пайдаланылатын "\\MyServer\Public," атауы үшін сервер атауы - "MyServer."

Ескерту :  Жүйеге қосылған қашықтағы компьютерде бағдарламаны көрсету туралы қосымша ақпарат үшін COM құжаттамасын оқыңыз (Microsoft Дамытушылар жүйесі бөлімін оқыңыз). Бағдарламаңыз үшін тіркеу кілтін қосуға керек болуыңыз мүмкін.

Төмендегі код MyServer атты қашықтағы компьютерде жегілетін Excel бағдарламасының нұсқа нөмірін қайтарады:

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

Қашықтағы сервер жоқ немесе қатынаусыз болса, орындау кезінде қате шығады.

Ескерту :  Нысанның ағымдық данасы жоқ болғанда, CreateObject функциясын пайдаланыңыз. Нысанның данасы жегіліп тұрса, жаңа дана басталып, алдын ала белгіленген түрдегі нысан жасалады. Ағымдық дананы пайдалану немесе бағдарламаны бастап, файлды қотару үшін GetObject функциясын пайдаланыңыз.

Нысан бір даналы нысан ретінде өзін тіркеген болса, CreateObject функциясының неше рет жүргізілгеніне қарамастан, нысанның бір данасы ғана жасалады.

Мысал

Төмендегі мысал CreateObject функциясын (

xlApp

) сілтемесін Excel бағдарламасына орнатуға пайдаланады. Ол сілтемені Excel бағдарламасының Көріну сипатына қатынасуға пайдаланып, одан кейін Excel Шығу әдісін бұл сипатты жабу үшін пайдаланады. Нәтижеде, сілтеменің өзі шығарылады.

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.
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×