الدالة CreateObject

إنشاء مرجع وإرجاعه إلى كائن ActiveX.

بناء الجملة

CreateObject ( class [, servername] )

يحتوي بناء جملة الدالة CreateObject على هذه الوسيطات:

تستخدم وسيطة الفئةاسم تطبيق بناء الجملة.نوع العنصر ويحتوي على هذه الأجزاء:

ملاحظات

يوفر كل تطبيق يدعم الأتمتة نوعا واحدا على الأقل من العناصر. على سبيل المثال، قد يوفر تطبيق معالجة الكلمات كائن تطبيق وعنصر مستند وعنصر شريط الأدوات .

لإنشاء كائن 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 .