كيف يمكن استيراد أسماء ملفات متعددة إلى خلايا 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’s قائمة أسماء الملفات، يمكنك بسهولة استيراد جميع أسماء الملفات من المجلد المحدد، بما في ذلك المجلدات الفرعية.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. انقر فوقKUTOOLS PLUS > استيراد/تصدير > قائمة أسماء الملفات، كما هو موضح في لقطة الشاشة:
2. في مربع حوارقائمة أسماء الملفات، قم بالعمليات التالية:
(1.) انقر فوق زر
لتحديد المجلد الذي يحتوي على الملفات التي تريد استيرادها؛
(2.) فعّل خيارتضمين الملفات في الأدلة الفرعيةلاستيراد أسماء الملفات من المجلدات الفرعية؛
(3.) حدّد نوع الملف الذي تريد استيراده ضمن قسمنوع الملف؛
(4.) اختر أحد وحدة حجم الملف الذي تريد عرضه من قسموحدة حجم الملف؛
(5.) إذا كنت ترغب في إنشاء روابط تشعبية لأسماء الملفات والمجلدات، فعَلّ خيارإنشاء ارتباط تشعبي.
3. بعد الانتهاء من الإعدادات، انقر فوق زرموافق، وسيتم استيراد أسماء الملفات من المجلد والمجلدات الفرعية إلى ورقة عمل جديدة كما هو موضح في لقطة الشاشة التالية:
نصائح: إذا كنت ترغب فقط في استيراد أسماء ملفات من نوع معيّن من مجلد محدد، ففعِّل خيارتحديدفي مربع حوارقائمة أسماء الملفات، ثم اكتب امتداد الملف المطلوب. وبذلك، سيتم استيراد أسماء الملفات من النوع المحدد فقط من المجلد والمجلدات الفرعية.
حمّل Kutools لـ Excel وجربه مجانًا الآن!
مقالات ذات صلة:
كيف يمكن سرد جميع الملفات في مجلدٍ ما ومجلداته الفرعية داخل ورقة عمل؟
كيف يمكن سرد جميع أسماء الملفات في مجلد وإنشاء ارتباط تشعبي لكل منها في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل