logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





25-08-2019 10:17 صباحاً
بسم الله الرحمن الرحيم
Get the List of File Names and Extension from a Folder in Excel VBA
اليوم نعرض عليكم طريقة لعرض الملفات الموجودة في مسار معين داخل الاكسيل وتحديد الامتداد المراد عرضه

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

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

CODE

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 ملف فنسحب المعادلة على عدد صفوف تغطى هذا الرقم
المعادلة كالاتي

CODE
=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 مرات التحميل :(33)
الحجم :(13.415) KB




توقيع :Yasser Elaraby
663013020

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



توقيع :ali mohamed ali


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

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




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]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
لقد هرمنا ويس تعبنا
من ساعت ما نزلت لعبة بابجي ومعدناش بنشوف مواضيعه الممتعه

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



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

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

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]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بس على حد علمي إنه اتحظر فيها أو يمكن خلاص بطل يلعبها ....




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]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil بس على حد علمي إنه اتحظر فيها أو يمكن خلاص بطل يلعبها ....
الانكت لما حصل كدا
تخيل يا مؤمن عمله ايه


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



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

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

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

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




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



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

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

look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
  26-08-2019 08:01 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10066
الاعجاب : 67
موقعي : زيارة موقعي
YasserKhalil@
YasserKhalil@

nXtOP_Dulc0aAWoAEI9jE

121
وعليكم السلام
 
 




توقيع :Yasser Elaraby
663013020

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




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




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]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
أخي الحبيب حسونة
لازم نشوف المستندات والوثائق عشان نفحصها ونتأكد من مدى صحتها :)




look/images/icons/i1.gif Get the List of File Names and Extension from a Folder in Excel VBA
  22-11-2019 10:11 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 803
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3951
الاعجاب : 23

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




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
رؤوس أعمدة listbox ReduMak
2 348 ReduMak
كسر ملف إكسيل محمي من الخارج Open Protected Password Workbook From Passwords List YasserKhalil
41 6092 YasserKhalil
مشكله ف LISTBOX mahmoud ayad
3 1056 hassona229
طباعة تقرير من الفورم وترحيل بيانات بالكامل من ListBox الي الشيت ssafe
12 1701 YasserKhalil
حذف البيانات من خلال Listbox محمدعبدالسلام
16 3276 YasserKhalil

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









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

الساعة الآن 11:25 PM