كيفية استيراد عدة ملفات csv/نصية/xml دفعة واحدة بسرعة في Excel؟

في Excel، ربما حاولت حفظ مصنف كملف csv أو ملف نصي أو ملف xml، ولكن هل سبق لك أن حاولت استيراد عدة ملفات csv أو نصية أو xml من مجلد إلى مصنف أو ورقة عمل؟ في هذه المقالة، أقدم بعض الطرق لاستيرادها دفعة واحدة بسرعة.

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

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

1. فعّل مصنف فارغ، ثم اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

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

4. ثم انقر موافق، وسيتم استيراد كل ملف نصي في المجلد المحدد إلى ورقة عمل منفصلة في المصنف الحالي. شاهد الصورة:

اكتشف سحر Excel مع Kutools AI

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

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

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

1. فعّل ورقة عمل فارغة، ثم اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

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 أو انقر على زر تشغيل لتنفيذ كود VBA، وسيظهر مربع حوار لتحديد المجلد الذي تريد استيراد جميع ملفات csv منه. شاهد الصورة:

4. انقر موافق، وسيظهر مربع حوار يسألك إذا كنت تريد مسح محتوى ورقة العمل الحالية قبل الاستيراد، هنا اخترت نعم. شاهد الصورة:

بعد النقر على نعم، سيتم استيراد جميع ملفات csv في المجلد المحدد إلى الورقة الحالية، وسيتم وضع البيانات بدءًا من العمود A إلى اليمين. شاهد الصورة:

نصيحة: إذا كنت ترغب في وضع ملفات 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 

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

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

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

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

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. انقر على زر تشغيل أو مفتاح F5 لتشغيل كود VBA، ثم حدد المجلد في مربع الحوار المنبثق، شاهد الصورة:

4. انقر موافق، وسيتم استيراد جميع ملفات XML في المجلد المحدد إلى الورقة النشطة.

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

إذا لم تكن لديك خبرة مع VBA، لا تقلق، أقدم لك هنا أداة عملية – Kutools لـ Excel. باستخدام أداة تجميع القوية، يمكنك بسرعة تجميع عدة ملفات xml أو csv في مصنف واحد أو ورقة Excel واحدة.

بعد تثبيت Kutools لـ Excel، يرجى اتباع الخطوات التالية: (تحميل Kutools لـ Excel مجانًا الآن!)

1. افتح Excel، ثم انقر على Kutools Plus > تجميع. شاهد الصورة:

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

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

4. انقر التالي إلى الخطوة الأخيرة من تجميع, ويمكنك تحديد خيارات التجميع.

5. انقر إنهاء, سيظهر مربع حوار لتذكيرك بتحديد النطاق لحفظ النتيجة المجمعة الجديدة. شاهد الصورة:

6. انقر حفظ. تم تجميع جميع الأوراق المضافة في ورقة واحدة جديدة.

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

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

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

بعد تحميل وتثبيت Kutools لـ Excel مجانًا، يرجى اتباع الخطوات التالية:

1. فعّل المصنف الذي تريد تصدير أوراق العمل منه، ثم انقر Kutools Plus > أدوات المصنف > فصل المصنف. شاهد الصورة:

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

3. انقر على فصل وحدد المجلد الذي تريد حفظ الملفات المفصولة فيه في مربع حوار تصفح المجلد، شاهد الصورة:

4. انقر موافق، الآن جميع الأوراق المحددة تم تصديرها كنوع ملف جديد في المجلد المحدد.

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

• كيفية تحويل الارتباط التشعبي إلى نص عادي في Excel؟
• كيفية تحويل رقم عشري إلى رقم ثنائي/ثماني/سداسي عشري أو العكس في Excel؟
• كيفية إدراج سعر الصرف المباشر في Excel؟