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

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

أسماء ملفات الاستيراد doc 1

5. ثم انقر فوق OK زر ، وستحصل على النتيجة التالية:

أسماء ملفات الاستيراد doc 2

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


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

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

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

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

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

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

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

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

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

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

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

أسماء ملفات الاستيراد doc 4

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

أسماء ملفات الاستيراد doc 6

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

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

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


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

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

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

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

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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (14)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مهلا،
لديّ ورقة ecxel بها بعض أسماء المنتجات ، ولدي أيضًا مجلد به بعض ملفات pdf المسماة كما في بيانات الخلية ، مثل إذا كانت قيمة الخلية A2 هي apple1 ، واسم ملف Pdf هو apple1.pdf ، فأنا أريد معرفة الاسم الملف مفقود ، هل يمكننا الحصول على ذلك في Excel بعض الشيء ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ميك ،
أولاً ، يمكنك تطبيق الكود أعلاه لإدراج أسماء الملفات في ورقة العمل ، وإدراج عمودين من أسماء الملفات في ورقة عمل واحدة ، وبعد ذلك يمكنك استخدام ميزة تحديد الخلايا نفسها والمختلفة في Kutools لتحديد وتمييز أسماء الملفات المفقودة ، انظر لقطة الشاشة :

من فضلك جربها ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدا ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أباكا بيزا ميرينام ملف دينجان تتفوق؟
terimakasih sangat Membantu perkerjaan saya ،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah وقت التشغيل 26 مسار غير موجود bisa bantu kenapa itu bisa terjadi؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا. كان رائعا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة لرمز VBA ، كيف يمكنك سحب التاريخ المعدل أيضًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أضف عمود تاريخ التعديل لأسماء الملفات المستوردة ، يرجى تطبيق كود فبا التالي ، يرجى تجربته ، آمل أن يساعدك!

Sub GetFileList ()
خافت xFSO ككائن
خافت xFolder ككائن
خافت xFile ككائن
Dim xFiDialog باسم FileDialog
خافت xPath كسلسلة
خافت أنا كعدد صحيح
اضبط xFiDialog = Application.FileDialog (msoFileDialogFolderPicker)
إذا كان xFiDialog.Show = -1 ثم
xPath = xFiDialog.SelectedItems (1)
إنهاء حالة
اضبط xFiDialog = لا شيء
إذا كان xPath = "" ثم اخرج من Sub
تعيين xFSO = CreateObject ("Scripting.FileSystemObject")
تعيين xFolder = xFSO.GetFolder (xPath)
ActiveSheet.Cells (1، 1) = "اسم المجلد"
ActiveSheet.Cells (1، 2) = "اسم الملف"
ActiveSheet.Cells (1، 3) = "امتداد الملف"
ActiveSheet.Cells (1، 4) = "تاريخ آخر تعديل"
I = 1
لكل xFile في xFolder.Files
أنا = أنا + 1
ActiveSheet.Cells (i، 1) = xPath
ActiveSheet.Cells (i، 2) = يسار (xFile.Name، InStrRev (xFile.Name، ".") - 1)
ActiveSheet.Cells (i، 3) = Mid (xFile.Name، InStrRev (xFile.Name، ".") + 1)
ActiveSheet.Cells (i، 4) = CDate (xFile.datelastmodified)
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لوضع مسار المجلد بالفعل في الكود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اريد ان اذكر اسم المجلد فقط. ما هو كود vba لذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في إضافة جدول ، اسم المجلد فقط ، والبيانات التي تم تعديلها أيضًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هل تريد سرد كافة أسماء المجلدات من مجلد رئيسي معين؟ من فضلك أعط مشكلتك أكثر تفصيلا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هناك طريقة أخرى سهلة. ما عليك سوى نسخ مسار الدليل حيث حفظت المستندات ، ولصق هذا الرابط في المتصفح (chrome / mozilla). ستحصل على قائمة الأسماء ونسخ اللصق في Excel. هتافات!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدا. Tnx كثيرا
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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