KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكنني استيراد عدة ملفات من نوع CSV أو نصية أو XML دفعةً واحدة وبسرعة في Excel؟

المؤلفصنتاريخ التعديل

في Excel، ربما تكون قد حاولت حفظ مصنف كملف CSV أو ملف نصي أو ملف XML، ولكن هل سبق أن جرّبت استيراد عدة ملفات من نوع CSV/نص/XML من مجلد واحد إلى مصنف أو ورقة عمل واحدة؟ في هذه المقالة، أقدّم لك بعض الطرق لاستيرادها دفعةً واحدة وبسرعة!

استيراد عدة ملفات ملف نصي من مجلد إلى أوراق عمل منفصلة داخل مصنف باستخدام VBA

لاستيراد ملفات نصية من مجلد إلى مصنف، يمكنك استخدام كود VBA أدناه للتعامل مع المهمة بسرعة وسهولة.

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

2. انقر علىإدراج > وحدة البرمجة (Module)، ثم الصق كود VBA في نافذةوحدة البرمجة (Module).

VBA: استيراد جميع ملفات ملف نصي من مجلد إلى مصنف

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    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
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3. اضغط على مفتاحF5 أو انقر على زرتشغيل (Run)لتنفيذ كود VBA، ثم اختر المجلد الذي تريد استيراد ملفات نصية منه في مربع الحوار الظاهر. انظر لقطة الشاشة:

لقطة شاشة لاختيار مجلد تريد استيراد ملفات txt منه

4. ثم انقر على زرموافق (OK)، وسيتم استيراد كل ملف نصي من المجلد المحدد إلى ورقة عمل منفصلة داخل المصنف الحالي. انظر لقطة الشاشة:

لقطة شاشة تُظهر أن كل ملف نصي في المجلد المحدد قد تم استيراده إلى أوراق عمل مختلفة في المصنف الحاليلقطة شاشة تُظهر أن كل ملف نصي في المجلد المحدد قد تم استيراده إلى أوراق عمل مختلفة في المصنف الحالي 2
لقطة شاشة لـ kutools for excel ai

افتح سحر إكسل مع KUTOOLS AI

  • التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
  • الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
  • برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
  • تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
  • ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
حسِّن قدراتك في إكسل بأدوات مدعومة بالذكاء الاصطناعي.حمِّل الآنوجرِّب الكفاءة كما لم تفعل من قبل!

استيراد عدة ملفات csv من مجلد إلى ورقة واحدة باستخدام VBA

لاستيراد جميع ملفات CSV من مجلد إلى ورقة واحدة، يمكنك استخدام كود VBA التالي.

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

2. انقر علىإدراج > وحدة البرمجة (Module)، ثم الصق كود VBA أدناه في نافذةوحدة البرمجة (Module)الجديدة.

VBA: استيراد ملفات csv من مجلد إلى ورقة عمل واحدة

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    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
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3. اضغط على مفتاحF5 أو انقر على زرتشغيل (Run)لتنفيذ كود VBA، وسيظهر مربع حوار يطلب منك تحديد المجلد الذي تريد استيراد جميع ملفات CSV منه. انظر لقطة الشاشة:

لقطة شاشة لاختيار مجلد تريد استيراد ملفات csv منه إلى ورقة عمل واحدة

4. انقر على زرموافق (OK)، وسيظهر مربع حوار آخر لتذكيرك بما إذا كنت ترغب في مسح محتويات ورقة العمل النشطة قبل الاستيراد؛ عندئذٍ، انقر على زرنعم (Yes). انظر لقطة الشاشة:

لقطة شاشة لمربع مطالبة يذكّرك بما إذا كنت تريد مسح الورقة الحالية قبل استيراد ملفات csv

بعد النقر على زرنعم (Yes)، سيتم استيراد جميع ملفات CSV من المجلد المحدد إلى ورقة العمل الحالية، مع بدء عرض البيانات من العمود A جهة اليمين. انظر لقطة الشاشة:

لقطة شاشة تُظهر أن جميع ملفات csv في المجلد المحدد قد تم استيرادها إلى ورقة العمل الحاليةلقطة شاشة تُظهر أن جميع ملفات csv في المجلد المحدد قد تم استيرادها إلى ورقة العمل الحالية 2

تلميح:إذا كنت ترغب في وضع ملفات CSV أفقيًا في ورقة عمل واحدة، يمكنك استخدام كود VBA أدناه.

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    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
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

لقطة شاشة لاستيراد ملفات csv أفقيًا في ورقة عمل

استيراد عدة ملفات xml من مجلد إلى ورقة واحدة باستخدام VBA

إذا كنت ترغب في استيراد جميع ملفات XML من مجلدٍ ما إلى ورقة واحدة، فاستخدم كود VBA أدناه.

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

2. انقر علىإدراج>وحدة البرمجة (Module)، ثم الصق كود VBA في نافذةوحدة البرمجة (Module).

VBA: استيراد ملفات XML من مجلد إلى ورقة عمل.

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    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
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3. انقر على زرتشغيل (Run)أو اضغط على مفتاحF5 لتشغيل كود VBA، ثم اختر المجلد من مربع الحوار الذي يظهر. انظر لقطة الشاشة:

لقطة شاشة لاختيار مجلد تريد استيراد ملفات xml منه إلى ورقة عمل واحدة

4. انقر على زرموافق (OK)، وسيتم استيراد جميع ملفات XML من المجلد المحدد إلى ورقة العمل الحالية.

استيراد أو دمج عدة ملفات xml/csv إلى ورقة واحدة أو مصنف واحد باستخدام Kutools لـ Excel

إذا لم تكن معتادًا على استخدام VBA، فلا داعي للقلق! سأقدّم لك أداة مفيدة جدًّا – وهيKutools لـ Excel. باستخدام أداةالدمج (Combine)القوية الخاصة بها، يمكنك دمج عدة ملفات XML أو CSV بسرعة في مصنف Excel واحد أو ورقة واحدة!

بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات أدناه:（تنزيل مجاني لـ Kutools لـ Excel الآن!)

1. شغّل Excel، ثم انقر علىKUTOOLS PLUS > دمج (Combine). انظر لقطة الشاشة：
لقطة شاشة لتمكين ميزة الدمج من Kutools for Excel

2. في خطوةالخطوة 1 من الدمج (Combine)بمربع الحوار، اختر خيار الفصل الأنسب لك. راجع لقطة الشاشة التالية:
لقطة شاشة لاختيار عملية واحدة حسب احتياجاتك في معالج دمج الأوراق

3. انقر على زرالتالي (Next)للانتقال إلىالخطوة 2 من الدمج (Combine)، ثم انقر على زرإضافة (Add)لإضافة ملفات من مجلدات مختلفة أو من مجلد واحد إلى قائمةالمصنف (Workbook). كما يمكنك تحديد الأوراق التي تريد دمجها من قائمةورقة العمل (Worksheet)في القسم الأيمن. انظر لقطة الشاشة:
لقطة شاشة لإضافة ملفات أو مجلدات وتحديد الأوراق التي تريد دمجها

4. انقر على زرالتالي (Next)للوصول إلى خطوة الأخيرة منالدمج (Combine)، ويمكنك تحديد خيارات الدمج.
لقطة شاشة لتحديد خيارات الدمج

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

6. انقر على زرحفظ (Save). بعد ذلك، سيتم دمج جميع الأوراق المضافة في ورقة واحدة جديدة.
لقطة شاشة تُظهر أن جميع الأوراق المضافة قد تم دمجها في ورقة عمل واحدة جديدة

تلميح:باستخدام أداةالدمج (Combine)، يمكنك دمج عدة ملفاتCSV من مجلدات متعددة أو من مجلد واحد في ورقة واحدة أو مصنف واحد.

تصدير كل ورقة كملف csv/text/pdf إلى مجلد باستخدام Kutools لـ Excel

إذا كنت ترغب في تصدير كل ورقة كملف CSV أو نصي أو ملفات PDF إلى مجلد، فإن أداةKutools لـ Excelالخاصة بـفصل المصنفيمكنها مساعدتك في ذلك.

بعدالتنزيل المجاني والتثبيتKutools لـ Excel، يُرجى اتباع الخطوات أدناه:

1. افتح المصنف الذي تريد تصدير أوراق عمله، ثم انقر علىKUTOOLS PLUS > مصنف (Workbook) > فصل المصنف. انظر لقطة الشاشة:

لقطة شاشة لتمكين ميزة تقسيم المصنف

2. في مربع حوارفصل المصنف، يمكنك تحديد أسماء الأوراق التي تريد تصديرها؛ تكون جميع الأوراق محددة بشكل افتراضي. بعد ذلك، فعّل الخيارتحديد تنسيق الحفظواختر نوع الملف الذي ترغب في حفظه من القائمة المنسدلة أدناه. انظر لقطة الشاشة:

لقطة شاشة لتحديد أسماء الأوراق التي ستُصدّر وتحديد تنسيق الحفظ

3. انقر على زرتقسيم (Split)، ثم اختر الموقع الذي تريد حفظ الملفات المنقسمة فيه من مربع حواراستعراض المجلدات (Browse for Folder). انظر لقطة الشاشة:

لقطة شاشة لاختيار مجلد وجهة لحفظ الملفات المصدرة

4. انقر على زرموافق (OK)، وسيتم تصدير جميع الأوراق المحددة كملفات جديدة من نوع الملف المحدد في المجلد المطلوب.

مقالات ذات صلة:

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

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

عزِّز مهاراتك في 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.

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