تفعيل مكتبة من Reference من خلال كود

[ابو تميم]

تحية طيبة

هل يمكن إدراج مكتبة من Reference بواسطة كود

وما هي الطريقة لإضافة المكتبات التي نرغب بإضافتها إلى الكود بحيث أنه عندما نضغط على زر معين في الملف يتم إضافة المكتبة

جزاكم الله خيرا

[ياسر خليل أبو البراء]

جرب هذا الملف

قمت بتنزيله من أحد المواقع

AddRef.zip

[الـعيدروس]

السلام عليكم

بعد اذن اخي الفاضل ياسر خليل

هذا الكود استخدمه في حدث فتح الملف

Private Ar

Private Sub Workbook_Open()

Dim Ref

For Each Ref In ThisWorkbook.VBProject.References

  If Ref.IsBroken = True Then ThisWorkbook.VBProject.References.Remove Ref

Next Ref

Ali_Referen

End Sub

Private Function Ali_Referen()

    Dim Ai&, A_Rw$

    On Error Resume Next

    Ar = Array("{0002E157-0000-0000-C000-000000000046}", "{94A0E92D-43C0-494E-AC29-FD45948A5221}")

    For Ai = LBound(Ar) To UBound(Ar)

    A_Rw = Ar(Ai)

    ThisWorkbook.VBProject.References.AddFromGuid GUID:=A_Rw, Major:=1, Minor:=0

    Next Ai

End Function

جرب الكود وبلغنى بالنتائج

تم تعديل ديسمبر 16, 2012 بواسطه عباد

[الـعيدروس]

السلام عليكم

الاخ الحبيب ياسر خليل

بعد اطلاعي على مرفقك

حقيقة ملف قيم حستفيد منه كثير

جزاك الله كل خير

[ابو تميم]

شكرا جزيلا أساتذتنا الكرام

ولكن أرجو ان تعذرو قلة خبرتي

أنا كيف سأضيف مكتبة معينة

[الـعيدروس]

الاخ ابو تميم

هذا الجزء من الكود

Ar = Array("{0002E157-0000-0000-C000-000000000046}", "{94A0E92D-43C0-494E-AC29-FD45948A5221}")

الاول رمز اضافة مكتبة للتعامل مع زاجهة Reference

والرمز الثاني لإضافة مكتبة Wi حق الاسكنار

أرجو أن تكون اتضحت لديك الصورة

[ياسر خليل أبو البراء]

بارك الله فيك أبو نصار وجعل أعمالك في موزاين حسناتك يوم القيامة

[ابو تميم]

الاخ ابو تميم

هذا الجزء من الكود

Ar = Array("{0002E157-0000-0000-C000-000000000046}", "{94A0E92D-43C0-494E-AC29-FD45948A5221}")

الاول رمز اضافة مكتبة للتعامل مع زاجهة Reference

والرمز الثاني لإضافة مكتبة Wi حق الاسكنار

أرجو أن تكون اتضحت لديك الصورة

شكرا جزيلا أستاذ ابو نصار

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

أعلم أني أزعجتكم

جزاكم الله خيرا

[ابو تميم]

أستاذي أبو نصار

بعد تجربتي للكود الذي أرفقته في المشاركة رقم 3 فإنها تعطيني خطأ كما في الصور

[ياسر خليل أبو البراء]

الأخ الحبيب أبو تميم

في الملف الذي قمت بإرفاقه في المشاركة رقم 2

انتقل لمحرر الأكواد وضع السطر الخاص بإضافة مكتبة WIA محل هذا السطر

strGUID = "{00020905-0000-0000-C000-000000000046}"

ليصبح بهذا الشكل

strGUID = "{94A0E92D-43C0-494E-AC29-FD45948A5221}"

هذا كل ما في الأمر

[الـعيدروس]

الاخ ابو تميم

اذهب الى اعدادات الاكسل

ثم مركز التوثيق

ثم إعدادات مركز التوثيق

ثم اعدادت الماكرو

ثم حفز مربع الثقة في الوصول إلى طراز كائن مشروع VBA

ثم جرب الكود

[ابو تميم]

أستاذي ابو نصار

جزاك الله خيرا

فعلا الكود الآن يعمل معي بشكل ممتاز

جزاك الله خيرا