كيف تسرد جميع الملفات في المجلد والمجلدات الفرعية في ورقة عمل؟
هل سبق لك أن حاولت سرد جميع أسماء الملفات من مجلد في ورقة عمل بما في ذلك الملفات الموجودة داخل مجلداته الفرعية؟ في الواقع ، لا توجد طريقة مباشرة بالنسبة لنا لسرد أسماء الملفات من مجلد ومجلده الفرعي في Excel ، ومع ذلك ، سأقدم اليوم بعض الحيل السريعة لحل هذه المهمة.
أدرج جميع أسماء الملفات في المجلد والمجلد الفرعي برمز VBA
قم بإدراج جميع أسماء الملفات في مجلد ومجلد فرعي بسرعة وسهولة باستخدام Kutools for Excel
أدرج جميع أسماء الملفات في المجلد والمجلد الفرعي برمز VBA
عادةً ، لا يحتوي Excel على ميزة مضمنة للتعامل مع هذه المهمة ، ولكن يمكنك تطبيق رمز VBA التالي لإكمال هذه المشكلة.
1. قم بتنشيط ورقة عمل جديدة تسرد أسماء الملفات.
2. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
رمز فبا: سرد كافة أسماء الملفات في المجلد والمجلد الفرعي
Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
4. بعد لصق الرمز في الوحدة النمطية ، اضغط على F5 مفتاح لتشغيل هذا الرمز ، و وحدات الماكرو ينبثق مربع الحوار ، حدد ملف القائمة الرئيسية اسم الماكرو ، ثم انقر فوق موافق يجري زر ، انظر لقطة الشاشة:
5. وفي تصفح نافذة ، يرجى تحديد المجلد الذي تريد سرد جميع أسماء الملفات بما في ذلك المجلدات الفرعية ، انظر الصورة:
6. بعد تحديد المجلد ، انقر فوق OK الزر ، وجميع أسماء الملفات الموجودة في المجلد ومجلداته الفرعية مدرجة في ورقة العمل الحالية من الخلية A2 ، انظر لقطات الشاشة:
قم بإدراج جميع أسماء الملفات في مجلد ومجلد فرعي بسرعة وسهولة باستخدام Kutools for Excel
باستخدام الكود أعلاه ، يمكنك فقط سرد أسماء الملفات ، وفي بعض الأحيان ، تحتاج إلى سرد سمات أخرى ، مثل حجم الملف ونوع الملف ووقت الإنشاء والمجلد الذي يحتوي على وهكذا. كوتولس ل إكسيل يحتوي على وظيفة مفيدة - قائمة اسم الملف، باستخدام هذه الميزة ، يمكنك بسرعة سرد جميع أسماء الملفات أو أنواع معينة منها في مجلد ومجلداته الفرعية.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:
1. انقر مشروع > استيراد و تصدير > قائمة اسم الملف، انظر لقطة الشاشة:
2. في قائمة اسم الملف في مربع الحوار ، قم بالعمليات التالية:
A: انقر زر لاختيار المجلد الذي تريده لسرد أسماء الملفات ؛
B: حدد نوع الملف الذي تريد سرده من ملف نوع الملفات قسم.
C: حدد وحدة حجم ملف واحدة تريد عرضها من ملف وحدة حجم الملف والقسم الخاص به.
ملاحظات: لسرد أسماء الملفات من المجلد الفرعي ، يرجى التحقق تضمين الملفات في الدلائل الفرعية، يمكنك أيضًا التحقق من تشمل الملفات والمجلدات المخفية ما تحتاج إليه. إذا قمت بالتدقيق إنشاء ارتباطات تشعبية الخيار ، فإنه سيتم إنشاء ارتباطات تشعبية لكل أسماء الملفات والمجلدات.
3. ثم اضغط OK الزر ، تم عرض كافة الملفات الموجودة في المجلد المحدد ومجلداته الفرعية بالسمات التالية في ورقة عمل جديدة. انظر لقطة الشاشة:
انقر لمعرفة المزيد من التفاصيل حول هذه الأداة المساعدة لقائمة اسم الملف.
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: قائمة بجميع أسماء الملفات في مجلد ومجلد فرعي باستخدام كوتولس فور إكسيل
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!