הפונקציה CreateObject

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

הערה: הפונקציה, שיטת, אובייקט או מאפיין המתוארים בנושא זה אינה זמינה אם שירות Microsoft Jet ביטוי פועל במצב ארגז חול, המונעת להערכה של ביטויים העשויים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש "מצב sandbox" בעזרה.

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

תחביר

הפונקציה CreateObject ( מחלקה [, servername] )

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

ארגומנט

תיאור

מחלקה

נדרש. משתנה (מחרוזת). שם יישום ומחלקה האובייקט שברצונך ליצור.

שם השרת

אופציונלי. משתנה (מחרוזת). שם שרת הרשת שבו ייווצר האובייקט. אם servername הוא מחרוזת ריקה (""), נעשה שימוש במחשב המקומי.


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

חלק

תיאור

appname

נדרש. משתנה (מחרוזת). שם היישום המספק את האובייקט.

objecttype

נדרש. משתנה (מחרוזת). הסוג או מחלקה של האובייקט כדי ליצור.


הערות

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

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

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (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)

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

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

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

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

הערה: עיין בתיעוד COM (ראה Microsoft Developer Network) לקבלת מידע נוסף אודות הפיכת יישום לגלויים במחשב מרוחק ברשת. ייתכן שיהיה עליך להוסיף מפתח רישום עבור היישום.

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

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

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

הערה: השתמש CreateObject כאשר מתקבלת ללא במופע הנוכחי של האובייקט. אם כבר פועל מופע של האובייקט, מופעל מופע חדש, נוצרת אובייקט מהסוג שצוין. כדי להשתמש במופע הנוכחי או כדי להפעיל את היישום ולגרום לו לטעון קובץ, השתמש בפונקציה GetObject .

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

דוגמה

דוגמה זו משתמשת בפונקציה CreateObject כדי להגדיר (של הפניה

xlApp

) ל- Excel. It משתמשת בהפניה כדי לגשת המאפיין Visible של Excel ולאחר מכן משתמשת בשיטת Quit של 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.

הערה: כתב ויתור בנוגע לתרגום מכונה: מאמר זה תורגם על-ידי מערכת מחשב, ללא התערבות אדם. Microsoft מציעה את תרגומי המכונה כדי לסייע למשתמשים שאינם דוברי אנגלית ליהנות מתוכן בנושא מוצרים, שירותים וטכנולוגיות של Microsoft. מכיוון שהמאמר תורגם על-ידי מכונה, הוא עלול להכיל שגיאות באוצר המילים, בתחביר או בדקדוק.

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×