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

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

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

سرد جميع أسماء الملفات في مجلد وإنشاء روابط تشعبية باستخدام Kutools لـ Excel

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

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

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

2. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

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

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

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

سرد جميع أسماء الملفات في مجلد وإنشاء روابط تشعبية باستخدام Kutools لـ Excel

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

إذا كنت قد قمت بتثبيت Kutools لـ Excel، يرجى تنفيذ الخطوات التالية:

1. انقر فوق Kutools Plus > استيراد وتصدير > قائمة أسماء الملفات، انظر إلى لقطة الشاشة:

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

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

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

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

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

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

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

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

انقر لمعرفة المزيد من التفاصيل حول أداة قائمة أسماء الملفات…

قم بتنزيل Kutools لـ Excel وجرّبه مجانًا الآن!

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

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

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