كيف يتم استيراد ملفات CSV / text / xml متعددة بسرعة في Excel؟

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

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

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

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

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

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

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

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

2. انقر إدراج > وحدة، والصق 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 ، وحدد المجلد الذي تريد استيراد الملفات النصية منه في مربع الحوار الذي يظهر. انظر لقطة الشاشة:

doc استيراد نص csv متعدد xml 1

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

ادمج بسهولة أوراق / مصنف متعدد في ورقة واحدة أو مصنف واحد

قد يكون دمج الأوراق المتعددة أو المصنفات في ورقة واحدة أو مصنف واحد أمرًا صعبًا في Excel ، ولكن مع ملحق دمج في Kutools for Excel ، يمكنك دمج عشرات الأوراق / المصنفات في ورقة واحدة أو مصنف واحد ، كما يمكنك دمج الأوراق في واحدة بعدة نقرات فقط. انقر للحصول على كامل المواصفات 30 أيام تجريبية مجانية!

Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود 30 يوما.

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

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

2. انقر إدراج > وحدة، والصق أدناه 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 منه. انظر لقطة الشاشة:

doc استيراد نص csv متعدد xml 4

4. انقر OK، وينبثق مربع حوار لتذكيرك إذا قمت بمسح محتويات ورقة العمل النشطة قبل الاستيراد ، هنا أنقر نعم. انظر لقطة الشاشة:

doc استيراد نص csv متعدد xml 5

بعد النقر نعم، يتم استيراد جميع ملفات 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

doc استيراد نص csv متعدد xml 8

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

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

2. انقر إدراج > وحدة، قم بلصق كود 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 ، وحدد مجلدًا في مربع الحوار ، انظر لقطة الشاشة:

doc استيراد نص csv متعدد xml 9

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

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة.
تحميل مجانا مجاني كامل المواصفات في 30-يوم

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:（تنزيل مجاني Kutools for Excel الآن!)

1. اكسل اكسل ، وانقر كوتولس بلس > دمج. انظر لقطة الشاشة ：
doc الجمع بين 1

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

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

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

5. انقر نهاية، يظهر مربع حوار لتذكيرك بتحديد موقع لحفظ النتيجة المدمجة الجديدة. انظر لقطة الشاشة:
doc الجمع بين 5

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

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

إذا كنت تريد تصدير كل ورقة كملف csv / text / pdf إلى مجلد ، كوتولس ل إكسيلالصورة انقسام وركبوك يمكن أن تقدم فائدة لك.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بتمكين المصنف الذي تريد تصدير أوراق العمل الخاصة به ، وانقر فوق كوتولس بلس > مصنف > انقسام وركبوك. انظر لقطة الشاشة:

doc استيراد نص csv متعدد xml 10

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

doc استيراد نص csv متعدد xml 11

3. انقر الانقسام وحدد مجلدًا لحفظ الملفات المقسمة بتنسيق قم بالاستعراض بحثًا عن مجلد الحوار ، انظر لقطة الشاشة:

doc استيراد نص csv متعدد xml 12

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

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (36)

لا يوجد تقييم. كن أول من يقيم!

توماس

منذ حوالي 5 سنوات

#19018

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا بكم ، شكرًا جزيلاً على عينات التعليمات البرمجية هذه! أول واحد (VBA: استيراد جميع الملفات النصية من مجلد إلى مصنف) هو بالضبط ما أحتاجه. ومع ذلك ، أود تحديد الملفات المراد استيرادها وعدم استيراد جميع الملفات النصية تلقائيًا في أي مجلد معين. أود أيضًا أن يتم الكتابة فوق المحتويات الموجودة في الأوراق المستهدفة الخاصة بي بمحتويات الملفات النصية. (مع الكود أعلاه ، يتم تحويل المحتويات الموجودة إلى اليمين بدلاً من استبدالها.) كيف يمكنني القيام بذلك؟ شكرا لك مقدما!

رد

منذ حوالي 5 سنوات

#20536

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، أود أن أفهم رمز VBA الخاص بـ "استيراد ملفات Xml متعددة من مجلد إلى ورقة واحدة باستخدام VBA". 1. لماذا هناك حاجة إلى مصنفين بدلاً من مصنف واحد؟ 2. يستغرق تحميل العديد من ملفات xml إلى Excel بعض الوقت ، فهل هناك رمز أكثر كفاءة؟ لأنني أدركت عندما تم تشغيل التعليمات البرمجية الخاصة بك ، تم إنشاء العديد من مصنفات VBA مما تسبب في التباطؤ. سأكون ممتنًا حقًا إذا كنت تستطيع مساعدتي في الفهم!

رد

مشمس XY

منذ حوالي 5 سنوات

#20537

تم تصغير هذا التعليق بواسطة المشرف على الموقع

آسف ، لم أفهم سؤالك الأول ، وعن السؤال الثاني ، كلما كان الرمز أكثر فعالية ، لم أجده ، إذا كنت تعلم ، يرجى ترك ملاحظة لي ، شكرًا.

رد