Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment importer plusieurs fichiers texte sur plusieurs feuilles?

En supposant qu'il existe plusieurs fichiers texte dans un dossier de votre ordinateur, vous souhaitez maintenant importer ces fichiers texte dans un classeur Excel et placer chaque fichier texte dans des feuilles de calcul distinctes. Copier et coller chaque fichier texte sur la feuille de calcul un par un vous fera perdre beaucoup de temps, ici, je peux vous parler de quelques astuces pour résoudre ce problème.

Importez plusieurs fichiers texte dans des feuilles de calcul séparées avec le code VBA

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


flèche bleue bulle droite Importez plusieurs fichiers texte dans des feuilles de calcul séparées avec le code VBA

Le code VBA suivant peut vous aider à importer chaque fichier texte dans des feuilles séparées dans un nouveau classeur à la fois, procédez comme suit:

1. Maintenez le ALT + F11 clés dans Excel pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: importez 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 F5 clé pour exécuter ce code, et dans la fenêtre qui apparaît, spécifiez le dossier qui contient 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:

doc importer plusieurs fichiers texte 1

4. Puis clique Open bouton, tous les fichiers texte sélectionnés ont été importés dans un nouveau classeur et chaque fichier situé dans une feuille de calcul individuellement.

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


flèche bleue bulle droite Divisez un classeur en plusieurs fichiers texte / pdf / csv / xlsx séparés avec Kutools for Excel

Parfois, vous devrez peut-être effectuer des opérations opposées à la tâche ci-dessus, c'est-à-dire que vous devez diviser un classeur pour séparer les fichiers texte. Kutools pour Excel's Classeur fractionné L'utilitaire peut vous aider à résoudre ce problème rapidement et facilement.

Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Après l'installation de Kutools pour Excel, veuillez procéder comme suit :( Téléchargez gratuitement Kutools pour Excel maintenant! )

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

2. Cliquez Entreprise > Classeur > Classeur fractionné, voir capture d'écran:

3. Dans le Classeur fractionné boite de dialogue:

(1.) Vérifiez les feuilles de calcul que vous souhaitez fractionner.

(2.) Vérifier Spécifiez le format d'enregistrement, puis choisissez le format de fichier que vous souhaitez enregistrer, par exemple, vous pouvez choisir txt, csv, pdf, XLSX or xls format de fichier dont vous avez besoin.

(3.) Cliquez ensuite sur Divisé bouton, dans la boîte d'invite suivante, spécifiez un dossier pour sortir les fichiers séparés.

boîte de dialogue du classeur fractionné des compléments Excel 2 excel compléments sélectionnez l'emplacement

4. Puis clique OK et vos feuilles de calcul sélectionnées seront divisées et enregistrées dans le dossier souhaité au format dont vous avez besoin.

excel compléments fichiers séparés

Téléchargez gratuitement Kutools pour Excel maintenant!


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JP · 2 months ago
    What would I need to change in the code to make it not open them in a new workbook?
  • To post as a guest, your comment is unpublished.
    Aniket Shah · 1 years ago
    This code helped me exactly to solve my issue, thanks for the code.
  • To post as a guest, your comment is unpublished.
    Thuva · 4 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 4 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 4 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 4 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 4 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 5 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 5 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?