كيفية سرد جميع أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية لها في Excel؟
بالنسبة لعملك اليومي ، قد تحتاج إلى استيراد أسماء ملفات متعددة من مجلد إلى ورقة عمل ، وإنشاء ارتباطات تشعبية لكل ملف بحيث تفتح الملف بسرعة وسهولة. ربما ، يمكنك نسخ ولصق أسماء الملفات وإنشاء ارتباط تشعبي لها واحدًا تلو الآخر يدويًا ، ولكن هذا سيضيع الكثير من الوقت إذا كان هناك مئات الملفات في المجلد. اليوم سأتحدث عن بعض الطرق السريعة والممتعة للتعامل مع هذه الوظيفة.
أدرج جميع أسماء الملفات في مجلد وأنشئ ارتباطات تشعبية برمز VBA
قائمة بجميع أسماء الملفات في مجلد وإنشاء روابط تشعبية مع كوتولس ل إكسيل
أدرج جميع أسماء الملفات في مجلد وأنشئ ارتباطات تشعبية برمز VBA
لسرد وإنشاء ارتباط تشعبي بملفات من مجلد ، يمكن أن يقدم لك رمز VBA التالي خدمة.
1. قم بتنشيط ورقة عمل جديدة لوضع النتيجة.
2. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
فبا: سرد كافة أسماء الملفات في مجلد وإنشاء ارتباطات تشعبية
Sub Example1()
'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)
For Each xFile In xFolder.Files
I = I + 1
ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
Next
End Sub
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، واختر المجلد الذي تريد سرد الملفات من تصفح نافذة ، انظر لقطة الشاشة:
5. بعد تحديد المجلد ، انقر فوق OK زر ، وجميع الملفات الموجودة في المجلد المحدد تم إدراجها في ورقة العمل النشطة مع الارتباطات التشعبية ، انظر الصورة:
ملاحظات: إذا كانت هناك مجلدات فرعية في المجلد المحدد الخاص بك ، فلن يتم سرد الملفات الموجودة في المجلدات الفرعية.
قائمة بجميع أسماء الملفات في مجلد وإنشاء روابط تشعبية مع كوتولس ل إكسيل
لسرد جميع الملفات الموجودة في مجلد ومجلداته الفرعية وإنشاء ارتباطات تشعبية لكل ملف ، كوتولس ل إكسيلالصورة قائمة اسم الملف قد تفعل لك معروفا. باستخدام هذه الميزة ، سيتم سرد جميع الملفات الموجودة في المجلد والمجلدات الفرعية دفعة واحدة مع بعض السمات ، مثل اسم الملف وحجم الملف ووقت الإنشاء والمجلد الذي يحتوي على وما إلى ذلك.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:
1. انقر كوتولس بلس > استيراد و تصدير > قائمة اسم الملف، انظر لقطة الشاشة:
2. في مجلة قائمة اسم الملف مربع الحوار ، يرجى القيام بالعمليات التالية:
(1.) انقر زر لتحديد المجلد الذي تريد سرد أسماء الملفات ؛
(2.) تحقق تضمين الملفات في الدلائل الفرعية إذا كنت ترغب في سرد أسماء الملفات داخل المجلدات الفرعية ، فتحقق تشمل الملفات والمجلدات المخفية إذا كنت تريد سرد الملفات المخفية ؛
(3.) حدد أنواع الملفات التي تريد البحث عنها وقم بإدراجها ضمن ملف نوع الملفات قسم.
(4) حدد وحدة حجم الملف التي تريد عرضها ؛
(5.) تحقق إنشاء ارتباطات تشعبية في الجزء السفلي الأيسر من مربع الحوار.
3. ثم اضغط Ok زر ، وجميع الملفات الموجودة في المجلد والمجلدات الفرعية تم إدراجها في ورقة عمل جديدة مع الارتباطات التشعبية حسب حاجتك ، انظر لقطة الشاشة:
انقر لمعرفة المزيد من التفاصيل حول الأداة المساعدة Filename List ...
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: قائمة بجميع أسماء الملفات في مجلد وإنشاء روابط تشعبية باستخدام Kutools for Excel
مقالة ذات صلة:
كيف تسرد جميع الملفات في المجلد والمجلدات الفرعية في ورقة عمل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!