Passer au contenu principal

Comment combiner / importer plusieurs fichiers csv dans plusieurs feuilles de calcul?

Si vous souhaitez importer plusieurs fichiers csv à partir d'un dossier en tant que feuilles de calcul distinctes dans un classeur, comment pouvez-vous gérer ce travail dans Excel?

Importez plusieurs fichiers csv dans des feuilles de calcul distinctes avec le code VBA

Importez plusieurs fichiers CSV dans des feuilles de calcul distinctes avec Kutools for Excel

Diviser un classeur en plusieurs fichiers csv / pdf / txt / excel séparés


Pour importer rapidement plusieurs fichiers csv dans un classeur, le code VBA suivant peut vous rendre service, procédez comme suit:

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

2Cliquez sur 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 CombineCsvFiles()
'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 (*.csv), *.csv", , "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
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    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. Puis appuyez F5 clé pour exécuter ce code, et une fenêtre apparaîtra, allez dans le dossier spécifique et sélectionnez les fichiers csv que vous souhaitez importer dans Excel, voir capture d'écran:

doc importer csv dans la feuille de calcul 1

4. Et puis cliquez Ouvert , les fichiers csv sélectionnés ont été importés en tant que feuilles de calcul distinctes dans un nouveau classeur.

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


Si vous avez Kutools for Excel, avec son outil puissantCombiner, vous pouvez rapidement combiner ou importer plusieurs fichiers csv dans une seule feuille de calcul ou plusieurs feuilles de calcul séparées selon vos besoins.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1. Cliquez s'il vous plait Kutools Plus > Combiner, voir capture d'écran:

2. Dans le Combiner des feuilles de travail boîte de dialogue, veuillez sélectionner Combinez plusieurs feuilles de calcul de classeurs dans un seul classeur, voir capture d'écran:

doc importer csv dans la feuille de calcul 6

3. Dans le Étape 2 de l'assistant, cliquez sur Ajouter > Déposez votre dernière attestation pour choisir les fichiers csv que vous souhaitez combiner, voir capture d'écran:

doc importer csv dans la feuille de calcul 7

4. Dans le sauté Ouvert dialogue, sélectionnez (* .csv) dans la liste déroulante, puis spécifiez les fichiers csv que vous souhaitez fusionner.

doc importer csv dans la feuille de calcul 8

5. Puis clique Ouvert bouton, et vos fichiers csv sélectionnés ont été importés dans la boîte de dialogue, voir capture d'écran:

doc importer csv dans la feuille de calcul 9

6. Dans le Étape 3, veuillez effectuer les opérations suivantes:

(1.) Vérification Première ligne de chaque feuille de calcul (commentaires) du Insérer les informations de la feuille de calcul section, toutes les informations sur les fichiers csv seront insérées dans les feuilles combinées sous forme de commentaires;

(2.) Vous pouvez renommer les fichiers csv selon vos besoins;

(3.) vous pouvez ignorer les fichiers csv vierges lorsque vous rencontrez un fichier csv vierge.

doc importer csv dans la feuille de calcul 10

7. Puis clique Finition et après avoir terminé la combinaison, vous pouvez spécifier un nom de fichier et un emplacement pour votre nouveau classeur combiné. Voir la capture d'écran:

doc importer csv dans la feuille de calcul 11

8. Puis clique Épargnez bouton, dans la boîte de dialogue contextuelle, vous pouvez ouvrir le nouveau fichier cliquez sur Oui, et fermez-le en cliquant Non, voir capture d'écran:

doc importer csv dans la feuille de calcul 12

9. Et puis vous pouvez enregistrer ce scénario ou non comme vous le souhaitez. Voir la capture d'écran:

doc importer csv dans la feuille de calcul 13

10. Enfin, vos fichiers csv sélectionnés ont été importés dans un nouveau classeur avec une feuille de calcul séparée, voir capture d'écran:

doc importer csv dans la feuille de calcul 14

Téléchargez et essayez gratuitement Kutools for Excel Now!


Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Dans certains cas, vous souhaiterez peut-être diviser un classeur en fichiers CSV distincts, l'utilitaire Split Workbook de Kutools for Excel peut terminer ce travail rapidement et facilement.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1Cliquez sur Kutools Plus > Classeur > Classeur fractionné, voir capture d'écran:

2. Dans le Classeur fractionné boite de dialogue:

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

(2.) Et vérifiez Spécifiez enregistrerle format, puis choisissez le format de fichier que vous souhaitez enregistrer;

(3.) Cliquez ensuite sur Diviser et spécifiez un dossier dans lequel placer les fichiers séparés.

doc importer csv dans la feuille de calcul 3

3. Et puis cliquez OK pour commencer à se diviser, le classeur sera divisé en fichiers csv séparés dont vous avez besoin.

doc importer csv dans la feuille de calcul 4

Téléchargez et essayez gratuitement Kutools for Excel Now!


Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement 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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations