Comment importer des fichiers texte dans Excel en tant que feuilles séparées avec des noms originaux dans Excel?

Avez-vous déjà essayé d'importer des fichiers texte dans Excel sous forme de feuilles séparées avec les noms d'origine des fichiers dans Excel? Dans cet article, j'introduis un code VBA pour importer rapidement des fichiers texte d'un dossier vers Excel avec les noms.

Importer des fichiers texte dans Excel avec des noms

---

Importer des fichiers texte dans Excel avec des noms

1. Activez Excel, appuyez sur Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre, puis cliquez sur insérer > Module.

2. Copiez et collez le code ci-dessous dans le Module scripts.

VBA: importer des fichiers texte avec des noms

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. presse F5 pour exécuter le code, puis sélectionnez un dossier contenant les fichiers texte que vous souhaitez importer dans Excel dans le Sélectionnez un dossier dialogue.

4. Cliquez OK, les fichiers texte du dossier ont été importés dans Excel sous forme de feuille unique avec leurs propres noms.