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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





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
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 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 مرات التحميل :(15)
الحجم :(13.415) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، محمود ابو الدهب، مالك ماريه،


توقيع :Yasser Elaraby
663013020




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

أثارت هذه المشاركة إعجاب: Yasser Elaraby،


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


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

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




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

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

أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby،


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

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


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

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Yasser Elaraby،




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


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


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

أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby،


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

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


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

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

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Yasser Elaraby، abdulwahed catran،




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

أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby،


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

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


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


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، YasserKhalil،


توقيع :Yasser Elaraby
663013020



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

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية بناء إجراء عام وعمل قائمة بأسماء أوراق العمل Build Public Procedure Create Sheets List YasserKhalil
16 157 YasserKhalil
عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm YasserKhalil
6 130 YasserKhalil
قائمة بمتغيرات بيئة العمل Environment Variables List In VBA YasserKhalil
4 75 YasserKhalil
مقارنة عمودين بالتفصيل Compare Two Lists In Detail YasserKhalil
12 409 YasserKhalil
نقل عناصر الليست بوكس إلى أعلى وإلى أسفل Move ListBox Items Up And Down YasserKhalil
9 102 Yasser Elaraby

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


 







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



الساعة الآن 09:50 مساء

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