برجاء المساعدة : بحث عن ملفات حسب قيمة خلية فى اكسيل

[aladdien]

أرجو المساعدة فى الملف المرفق للبحث حيث ان لدى مجلد رئيسى Z:\All Files يحتوى على عدة مجلدات تشتمل على عدة ملفات وورد ، الرجاء كود بحيث عند الضغط على زر Seach  يقوم الجهاز بالبحث عن الاسم الموجود فى الخلية A2 والبحث عن الملف الذى يحمل نفس الاسم فى المجلد الرئيسى Z:\All Files وكل المجلدات الفرعية الموجودة داخله و اظهار نتيجة البحث ، وان امكن فتح الملف .

الشرح بالمرفق. وجزاكم الله كل خير

TRY.zip

تم تعديل أغسطس 1, 2016 بواسطه aladdien

[omar elhosseini]

 

الاخ aladdien

 

شاهد المرفق

All Files.rar

 

[aladdien]

أخى أ. عمر " أبو تامر" أقدر مجهودك وسرعة ردك 

الكود لا يعمل يبدو ان هناك خطأ ما ، يرجى التأكد مع العلم انى استخدم WIN XP  و Office 2007 . قد يكون لهذا تأثير .

 

مرفق صورة الرسالة التى تظهر

مع خالص شكرى

[omar elhosseini]

 

 

الاخ aladdien

 

شاهد المرفق

 

All Files.rar

[صلاح الصغير]

ا / عمر

عمل اكثر من رائع ممكن عند اضافة فولدر يتم اضافته الى القائمة اليا

 

[omar elhosseini]

 

الاخ صلاح الصغير

قائمة الفلدرات كانت لللتوضيح فقط من قبل الاخ aladdien

ولكن عند  اضافة اي ملف  يظهر ففيي القائمة المنسلة

 

 

 

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

أستاذي الكبير ومعلمي الفاضل أبو تامر

بارك الله فيك وجزيت خير الجزاء على هذه الدرر التي حرمنا منها كثيراً ولكن مشئية الله أرادت لنا الخير بعد طول انتظار

جربت الملف المرفق واطلعت على الأكواد ووجدت أن اسم المصنف الحالي يدرج في قائمة الملفات ولتفادي المشكلة (حيث يتسبب في تهنيج برنامج الإكسيل) قمت بعمل إضافة بسيطة جداً لعدم إدراج اسم المصنف الحالي .. وذلك بعد سطر الحلقة التكرارية في الإجراء الفرعي المسمى

Sub ListMy_Files(Path, Sub_Folder As Boolean)

حيث قمت بإضافة السطر التالي

If My_File.Name <> ThisWorkbook.Name Then
...........
End If

وذلك ما بين سطري الحلقة التكرارية

For Each My_File In My_Source.Files
.........
Next My_File

 

وفي الإجراء المسئول عن عملية البحث عن الملف قمت بإضافة سطر في حالة لم يتم اختيار ملف من الخلية A2

    File_Name = Range("A2")
    If IsEmpty(File_Name) Then MsgBox "No File To Search!", vbExclamation: Exit Sub

تقبل وافر تقديري واحترامي

[صلاح الصغير]

ممكن الملف بعد التعديل

[omar elhosseini]

 

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

بارك الله فيك اثريت الموضووع بالأضافة

 

الملف بعد التعديل

 

All Files.rar

 

[صلاح الصغير]

ا / عمر 

ا / ياسر

جزاكم الله خيرا اكثر من رائع