Kako uvoziti besedilne datoteke v Excel kot ločene liste z izvirnimi imeni v Excelu?

Ste že poskusili uvoziti besedilne datoteke v Excel kot ločene liste z izvirnimi imeni datotek v Excelu? V tem članku predstavljam kodo VBA za hiter uvoz besedilnih datotek iz ene mape v Excel z imeni.

Uvozite besedilne datoteke v Excel z imeni

---

Uvozite besedilne datoteke v Excel z imeni

1. Omogočite Excel, pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno, nato kliknite Vstavi > Moduli.

2. Kopirajte in prilepite spodnjo kodo v Moduli skripta.

VBA: Uvozite besedilne datoteke z imeni

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. Pritisnite F5 Če želite zagnati kodo, izberite mapo, ki vsebuje besedilne datoteke, ki jih želite uvoziti v Excel v Izberite mapo dialog.

4. klik OK, besedilne datoteke v mapi so bile uvožene v Excelu kot en list z lastnimi imeni.