كيفية استيراد أسماء ملفات متعددة إلى الخلايا في Excel؟

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

استيراد أسماء ملفات متعددة إلى خلايا ورقة العمل باستخدام كود VBA

استيراد أسماء ملفات متعددة إلى خلايا ورقة العمل باستخدام Kutools لـ Excel

استيراد أسماء ملفات متعددة إلى خلايا ورقة العمل باستخدام كود VBA

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

1. قم بتشغيل ورقة عمل جديدة حيث تريد استيراد أسماء الملفات.

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

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

كود VBA: استيراد أسماء ملفات متعددة إلى خلايا ورقة العمل

Sub GetFileList()
'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)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

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

5. وبعد ذلك انقر فوق زر موافق، وستحصل على النتيجة التالية:

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

استيراد أسماء ملفات متعددة إلى خلايا ورقة العمل باستخدام Kutools لـ Excel

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

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

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

(1.) انقر زر لتحديد المجلد الذي يحتوي على الملفات التي تريد استيرادها؛

(2.) تحقق من تضمين الملفات في الأدلة الفرعية لاستيراد أسماء الملفات في المجلدات الفرعية؛

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

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

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

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

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

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

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

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

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