كيفية استيراد أسماء ملفات متعددة إلى خلايا في 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
إذا كنت بحاجة إلى استيراد أسماء الملفات في كل من المجلد والمجلدات الفرعية ، فالرجاء عدم القلق ، باستخدام كوتولس ل إكسيلالصورة قائمة اسم الملف ، يمكنك بسهولة استيراد جميع أسماء الملفات في المجلد المحدد بما في ذلك المجلدات الفرعية.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. انقر كوتولس بلس> استيراد و تصدير > قائمة اسم الملف، انظر لقطة الشاشة:
2. في قائمة اسم الملف في مربع الحوار ، قم بالعمليات التالية:
(1.) انقر زر لتحديد المجلد الذي يحتوي على الملفات التي تريد استيرادها ؛
(2.) تحقق تضمين الملفات في الدلائل الفرعية لاستيراد أسماء ملفات المجلدات الفرعية ؛
(3.) حدد نوع الملفات التي تريد استيرادها ضمن ملف نوع الملفات قسم.
(4.) حدد وحدة حجم ملف واحدة تريد عرضها من ملف وحدة حجم الملف قسم.
(5.) إذا كنت ترغب في إنشاء ارتباط تشعبي لأسماء الملفات والمجلدات ، يرجى التحقق إنشاء ارتباطات تشعبية الخيار.
3. بعد الانتهاء من الإعدادات ، الرجاء الضغط OK الزر ، ويتم استيراد أسماء الملفات الموجودة في المجلد والمجلدات الفرعية في ورقة عمل جديدة كما هو موضح في لقطة الشاشة التالية:
نصائح: إذا كنت تريد فقط استيراد أسماء ملفات من النوع المحدد من مجلد معين ، فيمكنك التحقق تحديد الخيار في قائمة اسم الملف مربع الحوار ، واكتب امتداد الملف فيه ، ثم سيقوم باستيراد أسماء الملفات المحددة فقط من كل من المجلد والمجلدات الفرعية.
انقر لمعرفة المزيد حول ميزة قائمة اسم الملف هذه ...
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
عرض توضيحي: استيراد أسماء ملفات متعددة إلى خلايا ورقة العمل باستخدام Kutools for Excel
مقالات ذات صلة:
كيف تسرد جميع الملفات في المجلد والمجلدات الفرعية في ورقة عمل؟
كيفية سرد جميع أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية لها في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!