Wie importiere ich Textdateien als separate Blätter mit Originalnamen in Excel nach Excel?

Haben Sie jemals versucht, Textdateien als separate Blätter mit den ursprünglichen Namen der Dateien in Excel nach Excel zu importieren? In diesem Artikel stelle ich einen VBA-Code vor, mit dem Textdateien mit den Namen schnell aus einem Ordner in Excel importiert werden können.

Importieren Sie Textdateien mit Namen nach Excel

---

Importieren Sie Textdateien mit Namen nach Excel

1. Aktivieren Sie Excel und drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster, dann klicken Sie auf Insert > Modul.

2. Kopieren Sie den folgenden Code und fügen Sie ihn in den Code ein Modul Skripte.

VBA: Importieren Sie Textdateien mit Namen

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. Drücken Sie F5 Um den Code auszuführen, wählen Sie einen Ordner aus, der Textdateien enthält, die Sie in Excel importieren möchten Wählen Sie einen Ordner Dialog.

4 Klicken OKwurden die Textdateien im Ordner in Excel als Einzelblatt mit eigenen Namen importiert.