Comment importer plusieurs fichiers texte d'un dossier dans une seule feuille de calcul?

Pour les cas, ici vous avez un dossier avec plusieurs fichiers texte, ce que vous voulez faire est d'importer ces fichiers texte dans une seule feuille de calcul comme ci-dessous la capture d'écran. Au lieu de copier les fichiers texte un par un, existe-t-il des astuces pour importer rapidement les fichiers texte d'un dossier dans une feuille?

Importez plusieurs fichiers texte d'un dossier dans une seule feuille avec VBA

Importer un fichier texte dans la cellule active avec Kutools for Excel

Importez plusieurs fichiers texte d'un dossier dans une seule feuille avec VBA

Voici un code VBA qui peut vous aider à importer tous les fichiers texte d'un dossier spécifique dans une nouvelle feuille.

1. Activez un classeur dans lequel vous souhaitez importer des fichiers texte et appuyez sur Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, copiez et collez ci-dessous le code VBA dans le Module fenêtre.

VBA: importer plusieurs fichiers texte d'un dossier vers une feuille

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. presse F5 pour afficher une boîte de dialogue et sélectionnez un dossier contenant les fichiers texte à importer. Voir la capture d'écran:

4. Cliquez OK. Ensuite, les fichiers texte ont été importés dans le classeur actif en tant que nouvelle feuille séparément.

Importer un fichier texte dans la cellule active avec Kutools for Excel

Si vous souhaitez importer un fichier texte dans une cellule ou une plage spécifique, vous pouvez appliquer Kutools for Excel's Insérer un fichier au curseur utilitaire.

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez une cellule dans laquelle vous souhaitez importer le fichier texte, puis cliquez sur Kutools Plus > Import / Export > Insérer un fichier au curseur. Voir la capture d'écran:

2. Ensuite, une boîte de dialogue apparaît, cliquez sur Explorer pour afficher le Sélectionner un fichier à insérer dans la boîte de dialogue de position du curseur de cellule, sélectionnez ensuite Fichiers texte dans la liste déroulante, puis choisissez le fichier texte que vous souhaitez importer. Voir la capture d'écran:

3. Cliquez Ouvert > Ok, et le fichier texte spécifié a été inséré à la position du curseur, voir capture d'écran: