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

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

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

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

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

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

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

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

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

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

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

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

(1.) انقر زر لتحديد المجلد الذي تريد سرد أسماء الملفات ؛

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

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

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

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

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

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

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

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

العرض التوضيحي: قائمة بجميع أسماء الملفات في مجلد وإنشاء روابط تشعبية باستخدام Kutools for Excel

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

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

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...