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

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

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

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

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

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

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

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

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

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

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. ثم انقر فوق OK زر ، وستحصل على النتيجة التالية:

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

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

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

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

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

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

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

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

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

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

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

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

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

انقر لمعرفة المزيد حول ميزة قائمة اسم الملف هذه ...

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

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

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

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

كيفية سرد جميع أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية لها في 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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