Note: The other languages of the website are Google-translated. Back to English

كيفية سرد كافة المجلدات والمجلدات الفرعية في إكسيل؟

هل سبق لك أن عانيت من هذه المشكلة التي تسرد جميع المجلدات والمجلدات الفرعية من دليل محدد في ورقة عمل؟ في Excel ، لا توجد طريقة سريعة وسهلة للحصول على اسم جميع المجلدات الموجودة في دليل معين مرة واحدة. للتعامل مع المهمة ، قد تساعدك هذه المقالة.

سرد كافة المجلدات والمجلدات الفرعية برمز VBA

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة سرد كافة المجلدات والمجلدات الفرعية برمز 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 مفتاح لتشغيل هذا الرمز ، و اختر المجلد ستظهر النافذة ، فأنت بحاجة إلى تحديد الدليل الذي تريده لإدراج أسماء المجلدات والمجلدات الفرعية ، انظر لقطة الشاشة:

قائمة أسماء المجلدات doc-1

4. انقر OK، وستحصل على مسار المجلد والمجلدات الفرعية والدليل والاسم وتاريخ الإنشاء وتاريخ آخر تعديل في مصنف جديد ، انظر لقطة الشاشة:

قائمة أسماء المجلدات doc-1


مقالة ذات صلة:

كيفية سرد الملفات في دليل لورقة العمل في إكسيل؟


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (18)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً ، كنت أستخدم موجه cmd للحصول على نص مع مجلداتي ، ثم انسخه على Excel ، ولكنك الآن تجعل الأمور سهلة بالنسبة لي :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت بحاجة إلى إنشاء رابط للمجلد أيضًا ، فما الذي يجب علي تعديله في الترميز ولا يمكننا إنشاء زر وربط نفس الترميز به ، لذلك سيكون مفيدًا للمستخدمين الذين لا يعرفون كيفية تشغيل وحدات الماكرو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد فعلت بالضبط ما تطلبه. لقد وضعت شعار شركتي على ورقة العمل ، ثم قمت بالنقر بزر الماوس الأيمن فوقه وقمت بتعيين ماكرو (وهو الرمز أعلاه.) يمكنك أيضًا إدراج تعليمات المستخدم الخاصة بكيفية الاستخدام.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز حقا أنقذ اليوم. شكرا لتقاسم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد اتبعت للتو توجيهاتك ولكني أتلقى أخطاء عندما أضرب F5 للركض. يبرز الخطأ أدناه "Dim xWs As Worksheet". هل هناك كود محدث يمكنني استخدامه؟ خطأ في التحويل البرمجي: النوع المعرف من قبل المستخدم غير محدد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبًا ، لقد اتبعت للتو التوجيهات الخاصة بك ولكني أتلقى أخطاء عندما ضربت F5 للركض. يبرز الخطأ أدناه "Dim xWs As Worksheet". هل هناك كود محدث يمكنني استخدامه؟ خطأ في التحويل البرمجي: النوع المعرف من قبل المستخدم غير محددبواسطة كارالين[/ quote] هل تستخدم برنامج Kutools الإضافي أو محرر MS Excel VBA؟ نظرًا لأنني لا أستخدم الوظيفة الإضافية ، فلا يمكنني تكرار الخطأ الخاص بك. يعمل استخدام محرر MS VBA دون أي أخطاء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بتشغيل هذا الرمز ، فإنه يعمل ولكنه يظهر فقط المجلد الأول في جانب المجلد الذي أختاره. على سبيل المثال ، عندما أقوم بتشغيل الكود ، أختار "C: \ Users \ Johnson \ Music" (ملاحظة: لدي 70 مجلدًا داخل مجلد الموسيقى الخاص بي) عندما يتم تشغيل الكود ، فإنه يعرض المجلد الأول فقط ثم يسرد جميع المجلدات الموجودة بداخله مجلد. أرغب في سرد ​​كافة المجلدات الموجودة داخل مجلد الموسيقى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا مع الآخرين - إنه يعمل إلى حد ما.

بالنسبة لي ، هذه النقطة هي إنشاء s / s الجديدة ، تفاصيل المجلد الذي عرضته (في الخلايا A1) ، الشريط الأصفر المميز في الصف 2 مع العناوين متبوعة بأي شيء آخر!

المجلد الذي أنظر إليه فارغ باستثناء المجلدات الفرعية (أي لا توجد ملفات بيانات) والمجلدات الفرعية لا تظهر على الإطلاق.

هل يمكن لأي شخص مساعدتي في سرد ​​المجلدات الفرعية وملفاتها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بتعديله لإضافة الحجم:



أسماء المجلدات الفرعية ()
تحديث 20141027
Application.ScreenUpdating = خطأ
خافت xPath كسلسلة
خافت xWs كورقة عمل
خافت fso ككائن ، j As Long ، folder1 As Object
مع Application.FileDialog (msoFileDialogFolderPicker)
.Title = "اختر المجلد"
.تبين
انتهت ب
على خطأ استئناف التالي
xPath = Application.FileDialog (msoFileDialogFolderPicker). SelectedItems (1) & "\"
التطبيق
تعيين xWs = Application.ActiveSheet
xWs.Cells (1، 1) .Value = xPath
xWs.Cells (2، 1) .Resize (1، 6) .Value = Array ("Path"، "Dir"، "Name"، "Date Created"، "Date Last Modified"، "Size")
تعيين fso = CreateObject ("Scripting.FileSystemObject")
تعيين folder1 = fso.getFolder (xPath)
مجلد getSubFolder1
xWs.Cells (2، 1). الحجم (1، 6). داخلي. اللون = 65535
xWs.Cells (2، 1) .Resize (1، 6) .EntireColumn.AutoFit
Application.ScreenUpdating = ترو
نهاية الفرعية
sub getSubFolder (ByRef prntfld ككائن)
تعتيم المجلد الفرعي ككائن
خافت subfld ككائن
خافت xRow طويل
لكل مجلد فرعي في prntfld.SubFolders
xRow = النطاق ("A1"). النهاية (xlDown) .Row + 1
الخلايا (xRow، 1) .Resize (1، 6) .Value = Array (SubFolder.Path، Left (SubFolder.Path، InStrRev (SubFolder.Path، "\"))، SubFolder.Name، SubFolder.DateCreated، SubFolder. DateLastModified ، SubFolder.Size)
المجلد الفرعي التالي
لكل مجلد فرعي في prntfld.SubFolders
getSubFolder فرعي
التالي subfld
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما تقوم بتضمين وظيفة SubFolder.Size ، لم يعد البرنامج النصي يسرد جميع المجلدات الفرعية ، فقط المستوى الأول.
كيف يمكنني تضمين الحجم وإدراج جميع المجلدات الفرعية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا. هل يمكنك من فضلك مساعدتي في رمز أجد صعوبة في العثور عليه.

فيما يلي متطلبات الكود.



1. يجب أن يمر VBA عبر جميع المجلدات والمجلدات الفرعية
وتحقق من كل نوع من أنواع الملفات. يجب على المستخدم إعطاء المسار فقط لـ
المجلد العلوي. يجب أن يتحقق الرمز بعد ذلك من جميع المجلدات والمجلدات الفرعية
داخل المجلد العلوي.



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



3. بعد ضغط الملفات ، يجب أن يحذف الرمز ملف
الملفات الأصلية التي تم ضغطها.



4. يجب حفظ الملف المضغوط بنفس مسار ملف
الملف الأصلي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أداة عظيمة! بعد بحث طويل وجد هذه اللعبة الدقيقة :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فقط ما احتاجه ، وتعليمات واضحة تمامًا حول كيفية إنجاحه. شكرًا جزيلاً
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك !، مفيد جدا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نجح هذا وكيف ... شكرا جزيلا لك. إضافة واحدة فقط - في الخطوة 3 ، كان علي النقر فوق Step Into ثم عمل مفتاح F5 فقط لاختيار المجلد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على هذا الرمز المفيد لك. هل هذا ممكن حفظ نتيجة في نفس المصنف وليس واحد جديد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك ، هذا بالضبط ما نحتاجه لتسجيل المجلدات لعملائنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل رائع ... إنه مفيد جدًا بالنسبة لي ، شكرًا جزيلاً
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL