كيفية سرد كافة المجلدات والمجلدات الفرعية في إكسيل؟
هل سبق لك أن عانيت من هذه المشكلة التي تسرد جميع المجلدات والمجلدات الفرعية من دليل محدد في ورقة عمل؟ في Excel ، لا توجد طريقة سريعة وسهلة للحصول على اسم جميع المجلدات الموجودة في دليل معين مرة واحدة. للتعامل مع المهمة ، قد تساعدك هذه المقالة.
سرد كافة المجلدات والمجلدات الفرعية برمز VBA
سرد كافة المجلدات والمجلدات الفرعية برمز VBA
إذا كنت ترغب في الحصول على جميع أسماء المجلدات من دليل محدد ، فقد يساعدك رمز VBA التالي ، فيرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
رمز فبا: سرد كافة المجلدات وأسماء المجلدات الفرعية
Sub FolderNames()
'Update 20141027
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، و اختر المجلد ستظهر النافذة ، فأنت بحاجة إلى تحديد الدليل الذي تريده لإدراج أسماء المجلدات والمجلدات الفرعية ، انظر لقطة الشاشة:
4. انقر OK، وستحصل على مسار المجلد والمجلدات الفرعية والدليل والاسم وتاريخ الإنشاء وتاريخ آخر تعديل في مصنف جديد ، انظر لقطة الشاشة:
مقالة ذات صلة:
كيفية سرد الملفات في دليل لورقة العمل في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!