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

في العديد من سيناريوهات العمل المكتبي أو إدارة المشاريع، قد تحتاج إلى الحصول بسرعة على قائمة بأسماء جميع الملفات في مجلد معيّن والوصول الفوري إليها عبر روابط تشعبية داخل Excel. يُعدّ هذا الحل مثاليًا خصوصًا عند التعامل مع مجلدات مليئة بالعقود أو التقارير أو الصور أو السجلات، حيث يضمن تنقّلًا سلسًا وتنظيمًا فعّالًا. وعلى الرغم من إمكانية نسخ أسماء الملفات وإنشاء الروابط التشعبية يدويًّا واحدًا تلو الآخر، فإن هذه الطريقة تصبح غير عملية وتستهلك وقتًا طويلاً جدًّا عند التعامل مع عشرات أو حتى مئات الملفات. لحسن الحظ، يوفّر Excel عدة حلول—مدمجة أو بمساعدة أدوات متخصصة—لتبسيط هذه العملية ورفع الإنتاجية بشكل كبير. هنا، ستتعرّف على مجموعة من الأساليب، وسيناريوهات تطبيق كل منها، وأبرز النصائح لتشغيل فعّال وخالٍ من الأخطاء.

سرد جميع أسماء الملفات في مجلد وإنشاء إنشاء ارتباط تشعبي باستخدام كود VBA

عندما تحتاج إلى سرد جميع الملفات من مجلد وإنشاء روابط تشعبية قابلة للنقر لكلٍّ منها داخل Excel، يُعد استخدام ماكرو VBA حلاً مباشرًا وعمليًا—وهو مثالي خصوصًا إذا كنت مرتاحًا لاستخدام الماكروات وتحتاج إلى أسلوب آلي يواكب المجلدات التي يتغيّر محتواها بانتظام.

1. افتح ورقة عمل جديدة في المكان الذي تريد عرض النتائج فيه.

2. اضغط علىAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

3.في نافذة VBA، انتقل إلىإدراج>وحدة، ثم الصق مقتطف الكود التالي في منطقة الوحدة:

VBA: سرد جميع أسماء الملفات في مجلد وإنشاء إنشاء ارتباط تشعبي

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 لتشغيل ماكرو VBA. ستظهر نافذة مربع حواراستعراض، مما يتيح لك اختيار المجلد الذي تريد سرد ملفاته.

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

سرد جميع أسماء الملفات في مجلد وإنشاء إنشاء ارتباط تشعبي باستخدام Kutools لـ Excel

للحصول على قائمة سريعة ومرنة بجميع الملفات في مجلدٍ ومجلداته الفرعية، بما في ذلك سماتٍ متنوعة مثل الحجم ووقت الإنشاء والمجلد، توفّر أداةKutools لـ Excelميزةقائمة أسماء الملفات. يُعد هذا الحل مثاليًا خصوصًا للمستخدمين الذين يحتاجون إلى إنشاء مثل هذه القوائم بشكل متكرر، أو إدارة كميات كبيرة من البيانات، أو يتطلبون خيارات متقدمة (مثل تصفية حسب نوع الملف، وعرض الملفات/المجلدات المخفية، وإنشاء روابط تشعبية بسهولة).

إذا كان Kutools لـ Excel مثبّتًا على نظامك، فاتبع الخطوات التالية:

1.انقر علىKUTOOLS PLUS>استيراد/تصدير>قائمة أسماء الملفاتكما هو موضح أدناه:

2.في نافذة مربع الحوارقائمة أسماء الملفات، قم بالخطوات التالية:

(1.) انقر على الزرلتحديد مجلدك المستهدف؛

(2.) إذا رغبت في تضمين الملفات الموجودة داخل المجلدات الفرعية، ففعّل الخيارتضمين الملفات في الأدلة الفرعية. ولإظهار الملفات المخفية، فعّل أيضًا الخيارتضمين الملفات والمجلدات المخفية. وهذا يمنحك تحكمًا كاملاً في الملفات التي يتم عرضها.

(3.) ضمننوع الملف، حدد الامتدادات أو نوع الملف التي ترغب في تضمينها (على سبيل المثال: *.xlsx، *.docx، *.pdf، إلخ)؛

(4.) اختر وحدة العرض المناسبة لـ حجم الملف حسب الحاجة (بايت، كيلوبايت، ميجابايت، إلخ)؛

(5.) تأكد من تفعيل الخيارإنشاء ارتباط تشعبيفي الزاوية السفلية اليسرى لتمكين الوصول المباشر إلى الملفات من القائمة.

راجع اختياراتك بدقة، خاصةً عند التعامل مع مجلدات كبيرة أو مشتركة، لتجنب استهلاك وقت معالجة غير ضروري أو مواجهة مشكلات تتعلق بالخصوصية.

حمّل Kutools لـ Excel الآن!

3.بعد ضبط الإعدادات في مربع الحوار، انقر علىموافق. ستقوم الأداة تلقائيًا بإنشاء قائمة شاملة مرتبطة تشعبيًا بجميع الملفات التي تتوافق مع معاييرك في ورقة عمل جديدة. ويشمل هذا الإجراء الملفات من جميع المجلدات الفرعية المحددة ويطبّق خيارات العرض المختارة. إليك نتيجة نموذجية:

انقر لمعرفة المزيد من التفاصيل حول أداة قائمة أسماء الملفات…

حمّل Kutools لـ Excel وجربه مجانًا الآن!

عرض توضيحي: سرد جميع أسماء الملفات في مجلد وإنشاء إنشاء ارتباط تشعبي باستخدام Kutools لـ Excel

سرد جميع أسماء الملفات في مجلد وإنشاء إنشاء ارتباط تشعبي باستخدام صيغ Excel

إذا كنتَ بالفعل تمتلك قائمةً بأسماء الملفات ومساراتها النسبية أو المطلقة—سواءً حصلتَ عليها من نسخها منWindows Explorer إلى Excel، أو باستخدام أمرDIR، أو عبرPower Query، أو أي أدوات استيراد أخرى—فيمكنك الاستفادة من دالةHYPERLINK المضمنة في Excel لإنشاء روابط قابلة للنقر بسرعة لكل ملف. هذه الطريقة سهلة الاستخدام ولا تتطلب ماكروسكربتات، وتُعدّ مثالية للمستخدمين الذين يحتاجون فقط إلى إنشاء ارتباط تشعبي من قائمة ملفات جاهزة، بغض النظر عن الطريقة التي تم بها إنشاء تلك القائمة.

1. افترض أن العمودA يحتوي على مسارات الملفات الكاملة (ابتداءً من الخلية A2 فما دون)، مثلC:\Documents\Report1.xlsx وC:\Documents\Report2.xlsx، إلخ. في الخليةB2 (بجانب أول مسار ملف)، أدخل هذه الصيغة:

=HYPERLINK(A2, A2)

2. اضغط علىEnter. ثم انسخ الصيغة لأسفل في جميع الصفوف التي تحتوي على مسار الملف (اسحب مقبض التعبئة أو انقر نقرًا مزدوجًا عليه)، وسيتم إنشاء روابط قابلة للنقر تعرض المسار الكامل كنص الرابط.

3.إذا أردت أن يكون نص عرض النص هو اسم الملف فقط (وليس المسار الكامل)، فاستخدم:

=HYPERLINK(A2, MID(A2, FIND("@", SUBSTITUTE(A2, "\", "@", LEN(A2) - LEN(SUBSTITUTE(A2, "\", "")))) + 1, 255))

هذا يحافظ على هدف الارتباط التشعبي كمسار كامل موجود فيA2، مع عرض اسم الملف فقط.

=HYPERLINK(A2, TEXTAFTER(A2, "\", -1))

4.إذا كانت خلاياك في العمودAتحتوي فقط على أسماء الملفات (بدون مسارات) وكانت جميع الملفات موجودة في نفس المجلد، فأضف مسار الملف في الصيغة (عدّل المسار حسب حالتك):

=HYPERLINK("D:\SharedFiles\" & A2, A2)

سيناريو متقدم (ويب):في Excel للويب، يمكنك استخدامOffice Scripts لأتمتة جمع القوائم وإدراج الروابط التشعبية لمواقع السحابة (OneDrive/SharePoint). راجعوثائق Office Scripts الرسمية من Microsoftللحصول على التفاصيل.

سرد جميع أسماء الملفات في مجلد وإنشاء ارتباط تشعبي باستخدام Power Query (الحصول على البيانات وتحويلها)

يوفر Power Query (المدمج في إصدارات Excel الحديثة) طريقة موثوقة وقابلة للتحديث لاستيراد قائمة الملفات مجلد والاحتفاظ بها محدثة باستمرار. وهو مثالي عندما ترغب في تحديثات ديناميكية، أو تضمين اختياري للمجلدات الفرعية، وفرز سهل حسب نوع الملف أو التاريخ.

خطوة بخطوة

1. انتقل إلى علامة التبويبData > Get Data > From File > From Folder.

2. في مربع الحوار، انقر علىBrowse، واختر مجلدك المستهدف، ثم انقر علىOK.

3. انقر علىTransform Dataلفتح محرر Power Query. سترى جدولًا يحتوي على الملفات (بشكل افتراضي،)يتضمن المجلدات الفرعيةعبر موصل Folder.Files).

4.احذف الأعمدة التي لا تحتاجها (مثل)Content). واحتفظ بـمسار الملف،Name،تاريخ التعديل،Extension، وغيرها حسب الحاجة.

5.أنشئ عمودًا للمسار الكامل: Add Column > Custom Column > الصيغة: [Folder Path] & [Name]، وأعطه الاسمFullPath.

6. (اختياري) صفّح حسبالامتدادلتضمين أنواع معيّنة فقط (مثل).xlsx،.pdf).

7. انقر علىClose & Load لتحميل الجدول في Excel.

=HYPERLINK([@[FullPath]])

مقال ذو صلة:

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

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

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...