วิธีการนำเข้าไฟล์ข้อความไปยัง Excel เป็นแผ่นงานแยกต่างหากพร้อมชื่อดั้งเดิมใน Excel

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

นำเข้าไฟล์ข้อความไปยัง Excel พร้อมชื่อ

นำเข้าไฟล์ข้อความไปยัง Excel พร้อมชื่อ

1. เปิดใช้งาน Excel กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล.

2. คัดลอกและวางโค้ดด้านล่างลงในไฟล์ โมดูล ต้นฉบับ

VBA: นำเข้าไฟล์ข้อความพร้อมชื่อ

Sub LoadPipeDelimitedFiles()
'UpdatebyExtendoffice20181010
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    Dim xWS As Worksheet
    
    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
        Set xWS = Sheets(xCount)
        xWS.Select
        xWS.Name = "TEXT " & Left(xFile, Len(xFile) - 4)
        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 เพื่อเรียกใช้รหัสจากนั้นเลือกโฟลเดอร์ที่มีไฟล์ข้อความที่คุณต้องการนำเข้าสู่ Excel ในไฟล์ เลือกโฟลเดอร์ โต้ตอบ

4 คลิก OKไฟล์ข้อความในโฟลเดอร์จะถูกนำเข้าใน Excel เป็นแผ่นเดียวพร้อมชื่อของตัวเอง

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!