كيفية استيراد أسماء ملفات متعددة إلى الخلايا في 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؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد