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

 كيفية سرد جميع أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية لها في Excel؟

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

أدرج جميع أسماء الملفات في مجلد وأنشئ ارتباطات تشعبية برمز VBA

قائمة بجميع أسماء الملفات في مجلد وإنشاء روابط تشعبية مع كوتولس ل إكسيل


لسرد وإنشاء ارتباط تشعبي بملفات من مجلد ، يمكن أن يقدم لك رمز VBA التالي خدمة.

1. قم بتنشيط ورقة عمل جديدة لوضع النتيجة.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

فبا: سرد كافة أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، واختر المجلد الذي تريد سرد الملفات من تصفح نافذة ، انظر لقطة الشاشة:

قائمة المستندات إنشاء ارتباطات تشعبية 1

5. بعد تحديد المجلد ، انقر فوق OK زر ، وجميع الملفات الموجودة في المجلد المحدد تم إدراجها في ورقة العمل النشطة مع الارتباطات التشعبية ، انظر الصورة:

قائمة المستندات إنشاء ارتباطات تشعبية 2

ملاحظة: إذا كانت هناك مجلدات فرعية في المجلد المحدد الخاص بك ، فلن يتم سرد الملفات الموجودة في المجلدات الفرعية.


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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. انقر كوتولس بلس > استيراد و تصدير > قائمة اسم الملف، انظر لقطة الشاشة:

2. في مجلة قائمة اسم الملف مربع الحوار ، يرجى القيام بالعمليات التالية:

(1.) انقر قائمة المستندات إنشاء ارتباطات تشعبية 5 زر لتحديد المجلد الذي تريد سرد أسماء الملفات ؛

(2.) تحقق تضمين الملفات في الدلائل الفرعية إذا كنت ترغب في سرد ​​أسماء الملفات داخل المجلدات الفرعية ، فتحقق تشمل الملفات والمجلدات المخفية إذا كنت تريد سرد الملفات المخفية ؛

(3.) حدد أنواع الملفات التي تريد البحث عنها وقم بإدراجها ضمن ملف نوع الملفات قسم.

(4) حدد وحدة حجم الملف التي تريد عرضها ؛

(5.) تحقق إنشاء ارتباطات تشعبية في الجزء السفلي الأيسر من مربع الحوار.

قم بتنزيل Kutools for Excel الآن!

3. ثم اضغط Ok زر ، وجميع الملفات الموجودة في المجلد والمجلدات الفرعية تم إدراجها في ورقة عمل جديدة مع الارتباطات التشعبية حسب حاجتك ، انظر لقطة الشاشة:

قائمة المستندات إنشاء ارتباطات تشعبية 6

انقر لمعرفة المزيد من التفاصيل حول الأداة المساعدة Filename List ...

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تشغيل رمز VBA المدرج أعلاه ، يوضح أن الدليل المحدد فارغ ، عندما يكون ممتلئًا بملفات Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع .. شكرا جزيلا. حقا وفر وقتي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً على الرغم من عدم إمكانية عرض الملفات في الدليل المحدد كما قال باري ، إلا أنه ينشئ ارتباطات تشعبية لجميع الملفات في هذا الدليل على أي حال.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
"VBA: سرد كافة أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية" أمر رائع! إنه يعمل بشكل مثالي! شكرا لك على النشر! سؤال واحد ... الآن بعد أن أخبرتنا بكيفية إضافة روابط من مجلد ، هل من الممكن استخدام هذه الروابط للحصول على معلومات من ورقة واحدة أو اثنتين مختلفتين في كل ملف من الملفات المدرجة؟ ستكون نفس الخلايا لكل ملف من الملفات التي لدينا الآن قائمة بها. سيساعد هذا في إنشاء محتويات شاملة مع روابط نشطة لأسماء ملفات غير مفهومة بخلاف ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تغيير هذا الرمز لجعله يسرد أسماء المجلدات بدلاً من أسماء الملفات؟ وكيف يمكنني تغييره للتحقق من المجلدات الفرعية للملفات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا إيلي ،
لسرد جميع أسماء المجلدات والمجلدات الفرعية من دليل ، يمكن أن يساعدك رمز VBA أدناه ، يرجى المحاولة ، ويمكن أن يساعدك.

أسماء المجلدات الفرعية ()
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، 5) .Value = Array ("Path"، "Dir"، "Name"، "Date Created"، "تاريخ آخر تعديل")
تعيين fso = CreateObject ("Scripting.FileSystemObject")
تعيين folder1 = fso.getFolder (xPath)
مجلد getSubFolder1
xWs.Cells (2، 1). الحجم (1، 5). داخلي. اللون = 65535
xWs.Cells (2، 1) .Resize (1، 5) .EntireColumn.AutoFit
Application.ScreenUpdating = ترو
نهاية الفرعية
sub getSubFolder (ByRef prntfld ككائن)
تعتيم المجلد الفرعي ككائن
خافت subfld ككائن
خافت xRow طويل
لكل مجلد فرعي في prntfld.SubFolders
xRow = النطاق ("A1"). النهاية (xlDown) .Row + 1
الخلايا (xRow، 1) .Resize (1، 5) .Value = Array (SubFolder.Path، Left (SubFolder.Path، InStrRev (SubFolder.Path، "\"))، SubFolder.Name، SubFolder.DateCreated، SubFolder. تاريخ آخر تعديل)
المجلد الفرعي التالي
لكل مجلد فرعي في prntfld.SubFolders
getSubFolder فرعي
التالي subfld
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف ترميز هذا لإنشاء ارتباطات تشعبية للمسار والدليل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يوري ،
لحل مشكلتك ، يرجى تجربة الكود التالي:

أسماء المجلدات الفرعية ()
Application.ScreenUpdating = خطأ
خافت xPath كسلسلة
خافت xWs كورقة عمل
خافت xRg كمدى
خافت fso ككائن ، j As Long ، folder1 As Object
مع Application.FileDialog (msoFileDialogFolderPicker)
.Title = "اختر المجلد"
.تبين
انتهت ب
على خطأ استئناف التالي
xPath = Application.FileDialog (msoFileDialogFolderPicker). SelectedItems (1) & "\"
التطبيق
تعيين xWs = Application.ActiveSheet
تعيين xRg = xWs.Cells (1، 1)
xRg.Value = xPath
xWs.Hyperlinks. إضافة مرساة: = xRg ، العنوان: = xPath ، TextToDisplay: = xPath
xWs.Cells (2، 1) .Resize (1، 5) .Value = Array ("Path"، "Dir"، "Name"، "Date Created"، "تاريخ آخر تعديل")
تعيين fso = CreateObject ("Scripting.FileSystemObject")
تعيين folder1 = fso.GetFolder (xPath)
مجلد getSubFolder1
xWs.Cells (2، 1). الحجم (1، 5). داخلي. اللون = 65535
xWs.Cells (2، 1) .Resize (1، 5) .EntireColumn.AutoFit
Application.ScreenUpdating = ترو
نهاية الفرعية
sub getSubFolder (ByRef prntfld ككائن)
تعتيم المجلد الفرعي ككائن
خافت subfld ككائن
خافت xRow طويل
خافت xStr كسلسلة
خافت xRg كمدى
لكل مجلد فرعي في prntfld.SubFolders
xRow = النطاق ("A1"). النهاية (xlDown) .Row + 1
الخلايا (xRow، 1) .Resize (1، 5) .Value = Array (SubFolder.Path، Left (SubFolder.Path، InStrRev (SubFolder.Path، "\"))، SubFolder.Name، SubFolder.DateCreated، SubFolder. تاريخ آخر تعديل)
تعيين xRg = خلايا (xRow ، 1)
xRg.Worksheet.Hyperlinks.Add Anchor: = xRg ، العنوان: = xRg.Value ، TextToDisplay: = xRg.Value
تعيين xRg = خلايا (xRow ، 2)
xRg.Worksheet.Hyperlinks.Add Anchor: = xRg ، العنوان: = xRg.Value ، TextToDisplay: = xRg.Value
المجلد الفرعي التالي
لكل مجلد فرعي في prntfld.SubFolders
getSubFolder فرعي
التالي subfld
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
skyyang مرحبًا ، هل يمكن تحرير هذا الرمز إلى مسار الارتباط التشعبي للملفات بدلاً من المجلدات. على سبيل المثال ، بدلاً من إنشاء ارتباط تشعبي بمسارات المجلدات الموجودة داخل Folder1 ، سيؤدي ذلك إلى إنشاء ارتباط تشعبي بمسارات كافة الملفات الموجودة في Folder1 (أحتاج إلى عرض النص كمسار للملف ، وليس اسم الملف) ، وهذا سيكون الاستخدام الأمثل الحال بالنسبة لي. نقدر أي مساعدة يمكن أن تقدمها :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
skyyang مرحبا ،
هل يمكن تحرير هذا الرمز إلى مسار الارتباط التشعبي للملفات بدلاً من المجلدات. على سبيل المثال ، بدلاً من إنشاء ارتباط تشعبي بمسارات المجلدات الموجودة داخل Folder1 ، سيؤدي ذلك إلى إنشاء ارتباط تشعبي بمسارات جميع الملفات الموجودة في Folder1 (أحتاج إلى عرض النص كمسار للملف ، وليس اسم الملف) ، وهذا سيكون الاستخدام الأمثل الحال بالنسبة لي.
نقدر أي مساعدة يمكن أن تقدمها :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
skyyang مرحبا ،
هل يمكن تحرير هذا الرمز إلى مسار الارتباط التشعبي للملفات بدلاً من المجلدات. على سبيل المثال ، بدلاً من إنشاء ارتباط تشعبي بمسارات المجلدات الموجودة داخل Folder1 ، سيؤدي ذلك إلى إنشاء ارتباط تشعبي بمسارات جميع الملفات الموجودة في Folder1 (أحتاج إلى عرض النص كمسار للملف ، وليس اسم الملف) ، وهذا سيكون الاستخدام الأمثل الحال بالنسبة لي.
نقدر أي مساعدة يمكن أن تقدمها :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جميع،

ich habe eine bescheidene Frage:
Wie kann ich Eine Liste von Dateinamen في استعلام روابط klickbare.
Es sind hier Beispiele genannt worden. يموت قبعة ميش أبر نيش ويتر جيبراخت.
هات wer eine Beispieldatei؟ Wie aus dem Bericht # 28151.

شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صديق،

بعد إدراج جميع الملفات الموجودة في المجلد المحدد في ورقة العمل النشطة بالارتباطات التشعبية ، يمكنك النقر فوق الخلايا لفتح الارتباطات التشعبية. جميع أسماء الملفات قابلة للنقر. يرجى الاطلاع على لقطات.

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

مع خالص الشكر والتقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنك تغيير موقع الخلية والعمود؟ نظرًا لأن لدي بيانات بالفعل في العمود A ، أود تغيير الماكرو ليكون في العمود N.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا دييغو ،
لوضع النتيجة في العمود N ، يرجى تطبيق الكود أدناه:
Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 14), xFile.Path, , , xFile.Name
    Next
End Sub


يرجى المحاولة ، آمل أن يساعدك!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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