Hogyan importálhat szöveges fájlokat az Excelbe külön lapként, eredeti nevekkel az Excelben?

Megpróbálta már importálni a szöveges fájlokat az Excelbe külön lapként, a fájlok eredeti nevével az Excelben? Ebben a cikkben bemutatok egy VBA kódot, amellyel gyorsan importálhatunk szöveges fájlokat egy mappából az Excelbe a nevekkel.

Szöveges fájlok importálása az Excelbe nevekkel

---

Szöveges fájlok importálása az Excelbe nevekkel

1. Engedélyezze az Excel alkalmazást, nyomja meg a gombot Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablakot, majd kattintson a gombra betétlap > Modulok.

2. Másolja és illessze be a kódot a Modulok szkripteket.

VBA: Szöveges fájlok importálása nevekkel

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. nyomja meg F5 a kód futtatásához, majd válasszon egy mappát, amely az Excelbe importálni kívánt szöveges fájlokat tartalmazza a Válasszon ki egy mappát párbeszéd.

4. kettyenés OK, a mappában lévő szövegfájlokat egyetlen néven importálták az Excel programba.