Comment importer plusieurs fichiers texte dans plusieurs feuilles ?

Supposons qu'il y ait plusieurs fichiers texte dans un dossier de votre ordinateur, et que vous souhaitiez importer ces fichiers texte dans un classeur Excel en plaçant chaque fichier texte dans des feuilles de calcul distinctes. Copier et coller chaque fichier texte dans une feuille de calcul une par une prend beaucoup de temps ; ici, je vais discuter de quelques astuces pour résoudre ce problème.

Importer plusieurs fichiers texte dans des feuilles de calcul distinctes avec du code VBA

Diviser un classeur en plusieurs fichiers texte / pdf / csv / xlsx séparés avec Kutools pour Excel

Importer plusieurs fichiers texte dans des feuilles de calcul distinctes avec du code VBA

Le code VBA suivant peut vous aider à importer chaque fichier texte dans des feuilles distinctes au sein d'un nouveau classeur en une seule fois, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées dans Excel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Importer plusieurs fichiers texte dans des feuilles de calcul distinctes :

Sub CombineTextFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Après avoir collé le code ci-dessus, appuyez sur la touche F5 pour exécuter ce code, et dans la fenêtre qui s'affiche, veuillez spécifier le dossier contenant les fichiers texte, allez dans le dossier pour sélectionner les fichiers texte que vous souhaitez importer dans les feuilles de calcul, voir capture d'écran :

4. Ensuite, cliquez sur le bouton Ouvrir, tous les fichiers texte sélectionnés ont été importés dans un nouveau classeur et chaque fichier est placé individuellement dans une feuille de calcul.

5. Enfin, vous pouvez enregistrer le nouveau classeur selon vos besoins.

Diviser un classeur en plusieurs fichiers texte / pdf / csv / xlsx séparés avec Kutools pour Excel

Parfois, vous devrez peut-être effectuer des opérations inverses de la tâche ci-dessus, c'est-à-dire diviser un classeur en fichiers texte distincts. L'utilitaire Diviser le Classeur de Kutools pour Excel peut vous aider à accomplir cette tâche rapidement et facilement.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Activez le classeur que vous souhaitez diviser en plusieurs fichiers texte.

2. Cliquez sur Entreprise > Classeur > Diviser le Classeur, voir capture d'écran :

3. Dans la boîte de dialogue Diviser le Classeur :

(1.) Cochez les feuilles de calcul que vous souhaitez diviser.

(2.) Cochez Définir le format de sauvegarde, puis choisissez le format de fichier dans lequel vous souhaitez enregistrer, par exemple, vous pouvez choisir le format de fichier txt, csv, pdf, xlsx ou xls selon vos besoins.

(3.) Ensuite, cliquez sur le bouton Diviser, dans la boîte de dialogue qui apparaît ensuite, spécifiez un dossier pour exporter les fichiers séparés.

4. Ensuite, cliquez sur le bouton OK, et vos feuilles de calcul sélectionnées seront divisées et enregistrées dans le dossier souhaité avec le format dont vous avez besoin.