شرح كود CreateObject

[صالح حمادي]

السلام عليكم و رحمة الله و بركاته أيها الأخوة الأكارم أحتاج إلى شرح مفصل لهذا الكود إن أمكن ذلك و كيفية إستعماله.

و شكرا.

dim DTPath as string
DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

[رمهان]

حياك الله استاذ صالح

من وين نبدأ اخوي ... الموضوع متشعب ولكن :

من المعروف الكائنات يكون لها خصائص او طرق  (اوامر تنفذ شيئا ما ) فمثلا الكائن me  وهو يعبر عن النموذج الحالي وبعد اسم الكائن نكتب نقطة لكي نستخدم خاصية له وحسب نوع الخاصية هل هي للقراءة فقط ام ممكن ان تتغير ياسناد قيم لها . او نكتب طريقة method تقم بامر ما لهذا الكائن

فمثلا me.backcolor هي خاصية الخلفية لوضع خلقية للكائن . me.move  هي طريقة لتحريك الكائن .

نرجع للسطر السابق وبمشاركتك : الامر  createobject هي دالة معرفة لدى الاكسس تقم بانشاء كائن في الذاكرة . يمكن انشاء الكائنات بمدلول المكتبة library .

هذا الكائن من نوع wshshell ويمكن البحث للاطلاع اكثر .

الان نضع النقطة لكي نقرا او نعين خاصية لهذا الكائن وهنا انت استخدمت الخاصية او الطريقة SpecialFolders   والتي تطلب اسم المجلد وتعود بالمسار ومن نوع نص .

واسم المجلد هنا يكون ضمن اسماء مجلدات الويندوز الخاصة مثل desctop  او fonts  وغيره

فالامر هو عباره عن : انشات كائن لاحتاج وظيفة لديه مهمتها ارجاع مسار احد مجلدات الويندوز الخاصة !

 

تحياتي

[صالح حمادي]

بارك الله و أحسن الله إليك و جزيت خير الجزاء أستاذ رمهان.

- هل يمكن تبديل مكان حفظ هذا الكائن في مكان آخر مثلا مجلد في القرص d

[رمهان]

اخي صالح

الامر هو عبارة عن معرفة مكان المجلدات لدى العميل . فعندما ينزل برنامجك لدى عميل فبالطبع لا تعرف مسار مجلد سطح المكتب لديه . فالامر السابق يجعلك تعرف مسار سطح مكتب العميل

ارجو ان وضحت الصورة عزيزي

[صالح حمادي]

شكرا جزيلا صديقي رمهان

أنا حاولت أطبق الكود لإنشاء ملف أكسل على سطح المكتب أو في المستندات فلم أفلح

[صالح حمادي]

ما هو الخطأ في هذا الكود أخي :

Private Sub ÃãÑ0_Click()
Dim DTPath As String
 DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
 curPath = DTPath & "\Hammadi- " & ".xls"
 Application.FollowHyperlink curPath
End Sub

 

صالح.rar

[رمهان]

معذرة عزيزي ذهبت لصلاة الفجر

اخي صالح

1. قبل كل شي احنا اتفقنا ان الامر يقرأ المسار وليس للانشاء فتاكد من وجود الملف

2. الكود السابق يقوم بفتح الملف من على سطح المكتب وتلاحظ وجود مسافة بعد في نهاية اسم الملف . هل هو صحيح ؟ جرب بحذف المسافة من الكود

بالتوفيق

 

[صالح حمادي]

الله يتقبل منك أخي العزيز.

لقد تمكنت من الوصول إلى الحل الذي أسعى إليه بارك الله فيك يا صديقي العزيز.

كنت أظن أنه سوف يقوم بإنشاء ملف على سطح المكتب ولكن ذلك يتطلب إضافة الدالةالتالية:

DoCmd.TransferSpreadsheet acExport

فهذه الدالة تقوم بتصدير بيانات من الأكسس إلى الأكسل.