Làm cách nào để nhập tệp văn bản sang Excel dưới dạng trang tính riêng biệt với tên gốc trong Excel?

Bạn đã bao giờ cố gắng nhập tệp văn bản vào Excel dưới dạng các trang tính riêng biệt với tên gốc của tệp trong Excel chưa? Trong bài viết này, tôi giới thiệu một mã VBA để nhập nhanh các tệp văn bản từ một thư mục vào Excel với các tên.

Nhập các tệp văn bản vào Excel với tên

---

Nhập các tệp văn bản vào Excel với tên

1. Bật Excel, nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ, sau đó nhấp vào Chèn > Mô-đun.

2. Sao chép và dán mã bên dưới vào Mô-đun kịch bản.

VBA: Nhập các tệp văn bản có tên

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. nhấn F5 để chạy mã, sau đó chọn một thư mục chứa các tệp văn bản bạn muốn nhập vào Excel trong Chọn một thư mục thoại.

4. nhấp chuột OK, các tệp văn bản trong thư mục đã được nhập vào Excel dưới dạng trang tính duy nhất với tên riêng của chúng.