كيف يمكن استيراد عدة ملفات نصية من مجلد واحد إلى ورقة عمل واحدة؟
افترض أنك تواجه سيناريو يتطلب توحيد البيانات لأغراض التقارير أو التحليل، وتستلم المعلومات في شكل عدة ملفات نصية محفوظة جميعها في مجلد واحد. إن نسخ المحتوى ولصقه يدويًّا من كل ملف نصي إلى ورقة عمل واحدة قد يستغرق وقتًا طويلاً للغاية ويكون عرضةً للأخطاء، خاصةً إذا كان عدد الملفات كبيرًا أو كانت تُحدَّث بانتظام. لحسن الحظ، توجد طرق فعّالة لاستيراد هذه الملفات النصية ودمجها تلقائيًّا في ورقة عمل واحدة في Excel. يقدم هذا المقال حلولًا عملية لتحقيق هذه المهمة، مما يضمن الدقة ويوفّر جهدًا يدويًّا كبيرًا. وهي مناسبة لمجموعة واسعة من السيناريوهات العملية، مثل توحيد نتائج الاستبيانات، أو استيراد بيانات السجلات (Logs)، أو دمج تصديرات نصية مجزأة من مصادر مختلفة في مجموعة بيانات واحدة.
فيما يلي عدة طرق سريعة لاستيراد ملفات نصية متعددة من مجلد إلى Excel. تتضمّن كل طريقة إرشادات خطوة بخطوة، ونصائح عملية، وملاحظات تساعدك على تجنّب الأخطاء الشائعة.
استيراد عدة ملفات ملف نصي من مجلد واحد إلى ورقة واحدة باستخدام VBA
استيراد ملف ملف نصي إلى الخلية النشطة باستخدام Kutools لـ Excel 
استيراد عدة ملفات ملف نصي من مجلد واحد إلى ورقة واحدة باستخدام VBA
إحدى الطرق الفعّالة لاستيراد جميع ملفات النصوص من مجلد معيّن إلى Excel هي استخدام ماكرو VBA. ويُعدّ هذا الحل مثاليًا خصوصًا إذا كنت تؤدي هذه المهمة بشكل متكرر أو تحتاج إلى أتمتة سير العمل دون الاعتماد على إضافات خارجية. فهو يمكّنك من معالجة عدد كبير من الملفات بسرعةٍ فائقة ويقلّل الحاجة إلى التدخل اليدوي. ومع ذلك، يتطلب استخدام VBA تمكين الماكروات—وهو أمر قد يكون مقيدًا في بعض البيئات—كما يستلزم معرفةً أساسيةً بمحرر Visual Basic for Applications.
قبل البدء، ننصحك بإنشاء نسخة احتياطية من ملف العمل الخاص بك، إذ لا يمكن التراجع عن عمليات الماكرو بسهولة. تأكد أيضًا من أن ملفاتك عبارة عن ملفات نصية ذات تنسيق متسق، فقد تستلزم الهياكل غير المتوقعة تنظيفًا يدويًّا بعد الاستيراد.
1. افتح ملف العمل الذي تريد استيراد الملفات النصية إليه، ثم اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في محرر VBA، انقر فوقإدراج > وحدة نمطية (Module)، ثم انسخ والصق كود VBA التالي في نافذة الوحدة:
VBA: استيراد عدة ملفات ملف نصي من مجلد واحد إلى ورقة واحدة
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. اضغطF5 بينما يكون المؤشر داخل الكود لتنفيذه. بعد ذلك، سيظهر مربّع حوار يطلب منك تحديد المجلد الذي يحتوي على ملفاتك المستهدفة كملف نصي. راجع لقطة الشاشة:
4. انقر فوقموافق. سيقوم الماكرو باستيراد كل ملف نصي كورقة عمل جديدة في المصنف الحالي الخاص بك. يُرجى الملاحظة: إذا كانت الملفات كبيرة أو عديدة، فقد تستغرق هذه العملية بعض الوقت. تحقق من النتيجـة:
تلميح: إذا كانت ملفاتك النصية تحتوي على رؤوس (Headers) أو فواصل معيّنة، فقد تحتاج إلى تعديل كود VBA ليتوافق مع هيكل بياناتك. في حال حدوث أخطاء، تأكد من صحة مسار الملف ونوعه، ومن أن لا تكون هناك أي ملفات نصية مفتوحة في مكان آخر على نظامك. وإذا وُجدت ملفات بأسماء متطابقة، فقد يؤدي ذلك إلى تعارضات في تسمية أوراق العمل.
استيراد ملف ملف نصي إلى الخلية النشطة باستخدام Kutools لـ Excel
عندما تحتاج فقط إلى إدراج محتوى ملف نصي واحد في موقع معيّن داخل ورقة العمل الخاصة بك، يوفّرKutools لـ Excelحلاً بديهيًّا من خلال أداةإدراج ملف في المؤشر. ويُعدّ هذا الحل مثاليًّا بشكل خاص عند دمج مقاطع نصية لتحديد البيانات أو استيراد ملاحظات مرجعية إلى خلايا أو نطاقات معرّفة. وعلى عكس حلول VBA، لا يتطلب Kutools أي برمجة، بل يقدّم واجهة سهلة الاستخدام لاستيراد ملفات نصية مباشرةً إلى أي خلية مستهدفة.
بعدتثبيت الإصدار المجانيKutools لـ Excel، اتبع الخطوات التالية:
1. انقر لتحديد الخلية التي تريد استيراد محتوى الملف النصي إليها، ثم انتقل إلىKUTOOLS PLUS > استيراد/تصدير > إدراج ملف في المؤشر. راجع لقطة الشاشة:
2. سيظهر مربّع حوار. انقر فوقاستعراضلفتح مربّع حوار اختيار الملف. من القائمة المنسدلة «نوع الملف»، حددملف نصي، ثم حدد موقع الملف النصي الذي تريد إدراجه. راجع لقطة الشاشة:
3. انقر فوقفتح، متبوعًا بـموافق. سيتم إدراج محتويات الملف الذي اخترته كملف نصي في الخلية المحددة. راجع لقطة الشاشة:
ملاحظات: يتم استيراد محتوى النص إلى الخلية المحددة مع الحفاظ على التنسيق الأصلي قدر الإمكان. وللحصول على أفضل النتائج، تأكد من أن الخلية المستهدفة تحتوي على مساحة كافية لعرض البيانات المستوردة أو قابلة للتوسيع. أما في حالة عمليات الاستيراد المتعددة دفعةً واحدة، فاستخدم هذه الميزة بشكل متكرر أو اجمع بينها وبين أدوات الدُفعات (Batch) في Kutools.
الخلاصة: بالنسبة لعمليات الاستيراد البسيطة أو لمرة واحدة لملفات فردية، يوفّر Kutools خيارات سهلة الاستخدام مباشرةً في ورقة العمل، بينما يُعدّ VBA الخيار الأمثل للمستخدمين الذين يحتاجون إلى تخصيص أعمق أو معالجة دُفعات دون الاعتماد على الإضافات.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل