วิธีการนำเข้าไฟล์ข้อความหลายไฟล์ไปยังแผ่นงานหลายแผ่น

สมมติว่ามีไฟล์ข้อความหลายไฟล์ในโฟลเดอร์ของคอมพิวเตอร์ของคุณ ตอนนี้คุณต้องการนำเข้าไฟล์ข้อความเหล่านี้ไปยังเวิร์กบุ๊ก Excel และวางไฟล์ข้อความแต่ละไฟล์ลงในเวิร์กชีตแยกกัน การคัดลอกและวางไฟล์ข้อความแต่ละไฟล์ลงในเวิร์กชีตทีละไฟล์เป็นการเสียเวลาเป็นอย่างมาก ในที่นี้ ฉันจะพูดถึงเคล็ดลับบางประการในการแก้ไขปัญหานี้

นำเข้าไฟล์ข้อความหลายไฟล์เพื่อแยกแผ่นงานด้วยรหัส VBA

แยกสมุดงานเป็นไฟล์ข้อความ / pdf / csv / xlsx แยกกันหลายไฟล์ด้วย Kutools for Excel

นำเข้าไฟล์ข้อความหลายไฟล์เพื่อแยกแผ่นงานด้วยรหัส VBA

รหัส VBA ต่อไปนี้อาจช่วยให้คุณนำเข้าไฟล์ข้อความแต่ละไฟล์ลงในแผ่นงานแยกกันภายในสมุดงานใหม่ได้ในคราวเดียวโปรดทำดังนี้

1. กด ALT + F11 ใน Excel เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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 for Excel

บางครั้งคุณอาจต้องดำเนินการที่ตรงกันข้ามกับงานข้างต้นกล่าวคือคุณต้องแยกสมุดงานเพื่อแยกไฟล์ข้อความ Kutools สำหรับ Excel's แยกสมุดงาน ยูทิลิตี้สามารถช่วยคุณแก้งานนี้ได้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เปิดใช้งานสมุดงานที่คุณต้องการแบ่งเป็นไฟล์ข้อความหลายไฟล์

2. คลิก Enterprise > สมุดงาน > แยกสมุดงานดูภาพหน้าจอ:

3. ใน แยกสมุดงาน กล่องโต้ตอบ:

(1. ) ตรวจสอบแผ่นงานที่คุณต้องการแยก

(2. ) ตรวจสอบ ระบุรูปแบบการบันทึกจากนั้นเลือกรูปแบบไฟล์ที่คุณต้องการบันทึกตัวอย่างเช่นคุณสามารถเลือกได้ TXT, CSV, รูปแบบไฟล์ PDF, xlsx or XLS รูปแบบไฟล์ตามที่คุณต้องการ

(3. ) จากนั้นคลิก แยก ในกล่องพร้อมต์ต่อไปนี้ระบุโฟลเดอร์ที่จะส่งออกไฟล์แยกต่างหาก

4. จากนั้นคลิก OK และแผ่นงานที่คุณเลือกจะถูกแบ่งและบันทึกลงในโฟลเดอร์ที่คุณต้องการด้วยรูปแบบตามที่คุณต้องการ