הפונקציה CreateObject

יצירה והחזרה של הפניה לאובייקט ActiveX.

תחביר

CreateObject ( class [, servername] )

תחביר הפונקציה CreateObject מכיל את הארגומנטים הבאים:

מחלקה זו ארגומנט את שם היישום של התחביר.objecttype והוא כולל את החלקים הבאים:

הערות

כל יישום התומך באוטומציה מספק לפחות סוג אחד של אובייקט. לדוגמה, יישום עיבוד מילים עשוי לספק אובייקט Application , אובייקט Document אובייקט סרגל כלים.

כדי ליצור אובייקט ActiveX, הקצה את האובייקט המוחזר על-ידי CreateObjectמשתנה אובייקט:

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

בדוגמה זו, אנו להפוך אובייקט גיליון אלקטרוני של Excel מתוך מסד נתונים של Access לאוטומטי. קוד זה מפעיל את היישום היוצר את האובייקט, במקרה זה, גיליון אלקטרוני של Microsoft Excel. לאחר יצירת אובייקט, יש להפנות אותו בקוד באמצעות משתנה האובייקט שאתה מגדיר. בדוגמה הבאה, תוכל לגשת למאפיינים ולפעולות שירות של האובייקט החדש באמצעות משתנה האובייקט, 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)

ההפניה באמצעות משתנה מאוגד מוקדם יכולה להעניק ביצועים טובים יותר, אך יכולה להכיל רק הפניה מחלקה הטבלה שצוינה הצהרה.

באפשרותך להעביר אובייקט שהוחזר על-ידי הפונקציה CreateObject לפונקציה המצפה לאובייקט כארגומנט. לדוגמה, הקוד הבא יוצר ומעביר הפניה לאובייקט Excel.Application:

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

באפשרותך ליצור אובייקט במחשב מרוחק ברשת על-ידי העברת שם המחשב לארגומנט שם השרתשל CreateObject. שם זה זהה לחלק 'שם מחשב' של שם שיתוף: עבור שיתוף בשם "\\MyServer\Public", שם השרת הוא "MyServer".

הקוד הבא מחזיר את מספר הגירסה של מופע של Excel הפועל במחשב מרוחק בשם MyServer:

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

אם השרת המרוחק אינו קיים או אינו זמין, מתרחשת שגיאת זמן ריצה.

אם אובייקט רשם את עצמו אובייקט בעל מופע יחיד, נוצר מופע אחד בלבד של האובייקט, ללא קשר למספר הפעמים ש- CreateObject מבוצע.