كيفية استيراد ملفات نصية متعددة إلى أوراق عمل متعددة؟

لنفترض أن لديك عدة ملفات نصية في مجلد على جهاز الكمبيوتر الخاص بك، وتريد الآن استيراد هذه الملفات النصية إلى مصنف Excel، ووضع كل ملف نصي في أوراق عمل منفصلة. نسخ ولصق كل ملف نصي إلى ورقة عمل واحدة تلو الأخرى يستهلك الكثير من الوقت؛ هنا، سأناقش بعض الحيل لحل هذه المشكلة.

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

تقسيم مصنف إلى ملفات نصية / PDF / CSV / XLSX منفصلة باستخدام Kutools لـ Excel

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

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

1. اضغط مع الاستمرار على مفتاحي ALT + F11 في Excel لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

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

Sub CombineTextFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

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

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

5. وأخيرًا، يمكنك حفظ المصنف الجديد كما تحتاج.

تقسيم مصنف إلى ملفات نصية / PDF / CSV / XLSX منفصلة باستخدام Kutools لـ Excel

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. قم بتفعيل المصنف الذي تريد تقسيمه إلى ملفات نصية متعددة.

2. انقر فوق المؤسسة > المصنف > تقسيم المصنف، انظر إلى الصورة التوضيحية:

3. في مربع الحوار تقسيم المصنف:

(1.) حدد الأوراق التي تريد تقسيمها.

(2.) حدد خيار تحديد تنسيق الحفظ، ثم اختر تنسيق الملف الذي تريد حفظه، على سبيل المثال، يمكنك اختيار تنسيق ملف txt أو csv أو pdf أو xlsx أو xls حسب الحاجة.

(3.) ثم انقر فوق زر التقسيم، في مربع الحوار المنبثق حدد مجلدًا لحفظ الملفات المنفصلة.

4. ثم انقر فوق زر موافق، وسيتم تقسيم الأوراق المحددة وحفظها في المجلد المطلوب بالتنسيق الذي تحتاجه.