أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الكلام بيضرب بعد تحويله الى بي دي إف اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





Get the List of File Names and Extension from a Folder in Excel VBA

بسم الله الرحمن الرحيم Get the List of File Names and Extension from a Folder in Excel VBA اليوم نعرض عليكم طريقة لعرض ا ..



25-08-2019 10:17 صباحا
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1240
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9084
الاعجاب : 11
موقعي : زيارة موقعي
 offline 
بسم الله الرحمن الرحيم
Get the List of File Names and Extension from a Folder in Excel VBA
اليوم نعرض عليكم طريقة لعرض الملفات الموجودة في مسار معين داخل الاكسيل وتحديد الامتداد المراد عرضه 

أولا نقوم بفتح مصنف جديد ونفتح محرر الاكواد

ونقوم بانشاء Module جديد ونضع هذا الكود بداخله
WRUel_1111


Function GetFileNamesbyExt(ByVal FolderPath As String, FileExt As String) As Variant
Dim Result As Variant
Dim i As Integer
Dim MyFile As Object
Dim MyFSO As Object
Dim MyFolder As Object
Dim MyFiles As Object
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
ReDim Result(1 To MyFiles.Count)
i = 1
For Each MyFile In MyFiles
If InStr(1, MyFile.Name, FileExt) <> 0 Then
Result(i) = MyFile.Name
i = i + 1
End If
Next MyFile
ReDim Preserve Result(1 To i - 1)
GetFileNamesbyExt = Result
End Function


وبعدها نقوم بوضع هذه الدالة داخل الاكسيل وتحديد خلية المسار وخلية الامتداد المراد عرضهم
وسحب المعادلة الى نطاق يسمح بعرض جميع الملفات بمعنى اذا كان محتوى الفولدر يقدر ب 100 ملف فنسحب المعادلة على عدد صفوف تغطى هذا الرقم
المعادلة كالاتي

=IFERROR(INDEX(GetFileNamesbyExt($A$1;$B$1);ROW()-1);"")


حيث ان A1  مسار الفولدر 
و B1 الامتداد المراد عرضه
اما ROW()-1)
لوضع اول معادلة بالصف الثاني لكي يتم عرض اول ملف داخل الفولدر بطريقة صحيحة وعدم تجاهل احد الملفات
اذا اردت وضع المعادلة في صف اخر وليكن مثلا الصف 3
يتم التعديل على ROW()-1 وجعلها ROW()-2

حتى لا يتم تجاهل اول ملفات داخل الفولدر

لتظهر لنا الملفات كما بالصورة
WgD63_3213516546

لتحميل الملف بالمرفقات
 
 
 
  Get the List of File Names and Extension from a Folder in Excel VBA.zip   تحميل zip مرات التحميل :(20)
الحجم :(13.415) KB




توقيع :Yasser Elaraby
663013020


25-08-2019 01:31 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1483
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6867
الاعجاب : 11
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
أحسنت استاذ ياسر عمل رائع بارك الله فيك وزادك الله من فضله



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

25-08-2019 04:38 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
بارك الله فيك أخي الحبيب ياسر العربي وجزيت خير الجزاء
واصل بلا فواصل ... فقد تعبنا من الفواصل




25-08-2019 08:48 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
لقد هرمنا ويس تعبنا 
من ساعت ما نزلت لعبة بابجي ومعدناش بنشوف مواضيعه الممتعه

بارك الله فيك وزادك الله من علمه 
 



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

تحياتى وتقدير للجميع  محمود ابوالدهب

25-08-2019 08:58 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
بس على حد علمي إنه اتحظر فيها أو يمكن خلاص بطل يلعبها ....
 




25-08-2019 09:39 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بس على حد علمي إنه اتحظر فيها أو يمكن خلاص بطل يلعبها ....
 


الانكت لما حصل كدا 
تخيل يا مؤمن عمله ايه


جاب اكونت ابنه وخده وقله شفلك لعبة تانية biggrin2



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

تحياتى وتقدير للجميع  محمود ابوالدهب

25-08-2019 09:44 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
إخص على دي أبهات .. شفت جمع أب >> طلع أبهات رغم إننا اتعلمناها آباء ..

أبهات آخر زمن أجدع smile




25-08-2019 09:47 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
121laugh121biggrin2



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

تحياتى وتقدير للجميع  محمود ابوالدهب

26-08-2019 08:01 صباحا
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1240
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9084
الاعجاب : 11
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
 
 




توقيع :Yasser Elaraby
663013020


26-08-2019 06:26 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
وماله يا أخويا أهم حاجة بتدي حق الطريق ..
أشوف فيكي يوم يا لعبة بابجي smile




21-11-2019 10:04 مساء
مشاهدة مشاركة منفردة [10]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
جزاكم الله خيرا ابو اسيل
على حسب المعلومات اللى عندى من مصدر موثوق منه انه بيلعبها عن طريق اميل خاص بيه بالجميل وهذا اقرار منى بذلك




22-11-2019 06:09 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
أخي الحبيب حسونة
لازم نشوف المستندات والوثائق عشان نفحصها ونتأكد من مدى صحتها smile




22-11-2019 10:11 صباحا
مشاهدة مشاركة منفردة [12]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA

المستندات والوثائق عاليه السريه لا نستطيع اظهارها 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث داخل القوائم المنسدلة Validation Lists YasserKhalil
55 5535 YasserKhalil
قائمة بمتغيرات بيئة العمل Environment Variables List In VBA YasserKhalil
10 644 YasserKhalil
ربط اداة datepicker مع اداة combobox مع listbox المبتدأ
0 51 المبتدأ
عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm YasserKhalil
9 801 YasserKhalil
طلب عمل رقم تسلسلي في listbox (الليست بوكس) احمد 9598
0 105 احمد 9598

الكلمات الدلالية
Folder ، Extension ، from ، Names ، List ، File ، Excel ،


 







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

الساعة الآن 01:40 مساء

أعلن هنا
أعلن هنا
أعلن هنا