Jak importovat textové soubory do aplikace Excel jako samostatné listy s původními názvy v aplikaci Excel?

Zkusili jste někdy importovat textové soubory do aplikace Excel jako samostatné listy s původními názvy souborů v aplikaci Excel? V tomto článku představuji kód VBA pro rychlý import textových souborů z jedné složky do aplikace Excel se jmény.

Importujte textové soubory do aplikace Excel se jmény

---

Importujte textové soubory do aplikace Excel se jmény

1. Povolte Excel, stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace v okně a poté klikněte na Vložit > Modul.

2. Zkopírujte a vložte níže uvedený kód do Modul skripty.

VBA: Importujte textové soubory se jmény

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. lis F5 spusťte kód a poté vyberte složku obsahující textové soubory, které chcete importovat do aplikace Excel v Vyberte složku dialog.

4. cvaknutí OK, textové soubory ve složce byly importovány do aplikace Excel jako jeden list se svými vlastními názvy.