Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment importer plusieurs fichiers texte sur plusieurs feuilles?

Supposons qu'il existe plusieurs fichiers texte dans un dossier de votre ordinateur. Désormais, vous souhaitez 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 travail un par un vous fera perdre beaucoup de temps, ici, je peux vous parler de quelques astuces pour résoudre ce problème.

Importer plusieurs fichiers texte pour séparer les feuilles de calcul avec le code VBA

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


Combiner / importer plusieurs feuilles de calcul dans une feuille de calcul ou un classeur:
Dans votre travail quotidien, combiner plusieurs feuilles de travail ou classeurs en une seule feuille de travail ou classeur peut être un travail énorme et laborieux. Mais, si vous avez Kutools for Excel, avec son utilité puissante - Combiner, vous pouvez rapidement combiner plusieurs feuilles de calcul, classeurs dans une feuille de calcul ou un classeur.
doc combine plusieurs feuilles de calcul

flèche bleue droite bulle Importer plusieurs fichiers texte pour séparer les feuilles de calcul avec le code VBA


Le code VBA suivant peut vous aider à importer chaque fichier texte dans des feuilles distinctes 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 séparées:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    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 sauté, s'il vous plaît spécifier 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 Ouvrir 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 droite bulle Fractionner un classeur en plusieurs fichiers texte / pdf / csv / xlsx séparés avec Kutools for Excel

Parfois, vous devrez peut-être faire des opérations opposées de la tâche ci-dessus, c'est-à-dire que vous devez diviser un classeur pour séparer les fichiers texte. Kutools for Excel's Manuel de travail divisé utilitaire peut vous aider à résoudre ce travail rapidement et facilement.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Excel, s'il vous plaît faire comme suit :( Téléchargement gratuit Kutools for Excel maintenant! )

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

2. Cliquez Entreprise > Classeur > Manuel de travail divisé, voir capture d'écran:

Fonctionnalité de classeur split add-ins

3. Dans le Manuel de travail divisé 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 que vous avez besoin.

(3.) Puis cliquez Divisé Dans la boîte de dialogue suivante, spécifiez un dossier pour générer les fichiers séparés.

boîte de dialogue Diviser les classeurs de compléments Excel  2 compléments Excel sélectionnez l&#39;emplacement

4. Puis clique OK bouton, et vos feuilles de calcul sélectionnées seront divisées et enregistrer dans le dossier de votre choix avec le format que vous avez besoin.

excel add-ins fichiers séparés

Téléchargement gratuit Kutools for Excel maintenant!



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Thuva · 1 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 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 · 2 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 · 2 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 · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?