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 rapidement importer par lots plusieurs fichiers csv / text / xml dans Excel?

Dans Excel, vous avez peut-être lié pour enregistrer un classeur en tant que fichier csv, fichier texte ou fichier xml, mais avez-vous déjà essayé d'importer plusieurs fichiers csv / text / xml d'un dossier dans un classeur ou une feuille de calcul? Dans cet article, j'introduis quelques méthodes pour rapidement les importer par lots.

Importer plusieurs fichiers texte à partir d'un dossier dans chaque feuille de calcul d'un classeur avec VBA

Importer plusieurs fichiers CSV à partir d'un dossier dans une seule feuille avec VBA

Importer plusieurs fichiers XML à partir d'un dossier dans une seule feuille avec VBA

Importez ou combinez plusieurs fichiers xml / csv dans une feuille ou un classeur avec Kutools for Excel bonne idée3

Exporter chaque feuille en tant que csv / text / pdf dans un dossier avec Kutools for Excelbonne idée3


Combinez facilement plusieurs feuilles / classeurs en une seule feuille ou un classeur

Pour combiner plusieurs feuilles ou classeurs dans une feuille ou un classeur peut être difficile dans Excel, mais avec le Combine Fonction dans Kutools pour Excel, vous pouvez combiner fusionner des dizaines de feuilles / classeurs dans une feuille ou un classeur, aussi, vous pouvez consolider les feuilles en un par plusieurs clics seulement. Cliquez pour un essai gratuit complet de 60 days!
combiner des feuilles
Kutools for Excel: avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.


Pour importer des fichiers texte d'un dossier dans un classeur, vous pouvez utiliser VBA ci-dessous pour le gérer rapidement.

1. Activer un classeur vide et appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, et collez le VBA au Module fenêtre.

VBA: importer tous les fichiers texte d'un dossier dans un classeur

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    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
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3. presse F5 clé ou course Cliquez sur le bouton pour exécuter le VBA et sélectionnez un dossier dans lequel vous souhaitez importer les fichiers texte dans la boîte de dialogue contextuelle. Voir la capture d'écran:

doc import multiple csv texte xml 1

4. Et cliquez OKet chaque fichier texte dans le dossier sélectionné a été importé dans une feuille de calcul du classeur actif. Voir la capture d'écran:

doc import multiple csv texte xml 2doc import multiple csv texte xml 3

Pour importer tous les fichiers csv d'un dossier dans une seule feuille, vous pouvez utiliser le code VBA ci-dessous.

1. Activer une feuille de calcul vierge et appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, et coller sous VBA dans le nouveau Module fenêtre.

VBA: Importer des fichiers CSV à partir d'un dossier dans une feuille de calcul

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    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
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3. presse F5 touche ou clic course bouton pour exécuter le VBA, et une boîte de dialogue apparaît pour sélectionner un dossier que vous souhaitez importer tous les fichiers CSV. Voir la capture d'écran:

doc import multiple csv texte xml 4

4. Cliquez OK, et une boîte de dialogue apparaît pour vous rappeler si effacer le contenu de la feuille de calcul active avant l'importation, ici je clique Oui. Voir la capture d'écran:

doc import multiple csv texte xml 5

Après avoir cliqué Oui, tous les fichiers csv du dossier sélectionné sont importés dans la feuille actuelle et placent les données de la colonne A à droite. Voir la capture d'écran:

doc import multiple csv texte xml 6doc import multiple csv texte xml 7

Pointe: Si vous souhaitez placer des fichiers CSV horizontalement dans une feuille de calcul, vous pouvez utiliser ci-dessous VBA.

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    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
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub 

doc import multiple csv texte xml 8


Si vous souhaitez importer tous les fichiers XML d'un dossier dans une seule feuille, vous pouvez utiliser le code VBA ci-dessous.

1. Sélectionnez une feuille vierge dans laquelle vous souhaitez placer les données importées, puis appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, collez le code VBA dans le Module fenêtre.

VBA: Importer des fichiers XML à partir d'un dossier dans une feuille de calcul.

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    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
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3. Cliquez course bouton ou F5 clé pour exécuter le VBA, et sélectionnez un dossier dans la boîte de dialogue popping, voir capture d'écran:

doc import multiple csv texte xml 9

4. Cliquez OKet tous les fichiers XML du dossier sélectionné sont importés dans la feuille active.


Si vous n'êtes pas familier avec VBA, ne vous inquiétez pas, ici, je vous présente un outil pratique - Kutools for Excel pour toi. Avec son puissant Combiner utilitaire, vous pouvez rapidement combiner plusieurs fichiers xml ou fichiers CSV dans un classeur ou une feuille Excel.

Kutools for Excel, avec plus de 300 fonctions pratiques, rend votre travail plus facile.

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

1. Active Excel, et cliquez Entreprise > Combiner. Voir la capture d'écran:
doc combine 1

2. Et dans le étape 1 de Combine dialogue, choisissez une option de séparation selon vos besoins. Voir la capture d'écran:
doc combine 2

3. Cliquez Suivant aller à étape 2 de la moissonneuse-batteusecliquez Ajoutez ajouter des fichiers de divers dossiers ou fichiers d'un dossier à Classeur liste, et vous pouvez également spécifier les feuilles que vous souhaitez combiner Feuille liste de la section droite. Voir la capture d'écran:
doc combine 3

4. Cliquez Suivant à la dernière étape de Combineret vous pouvez spécifier les options.

1) Spécifiez le numéro de la ligne de titre

2) Décider si insérer des informations de feuille de calcul

3) Ignorer la plage vide ou non

4) Spécifiez l'option de collage
doc combine 4

5. Cliquez finition, une boîte de dialogue apparaît pour vous rappeler de sélectionner un emplacement pour enregistrer le nouveau résultat combiné. Voir la capture d'écran:
doc combine 5

6. Cliquez Épargnez. Toutes les feuilles d'ajout ont été combinées en une nouvelle feuille unique.
doc combine 6

Pointe: Avec Combiner, vous pouvez également combiner plusieurs des fichiers CSV former plusieurs dossiers ou un dossier dans une feuille ou un classeur.


Si vous souhaitez exporter chaque feuille en tant que fichier csv / text / pdf dans un dossier, Kutools for Excel's Manuel de travail divisé l'utilité peut faire une faveur pour vous.

après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

1. Activez le classeur que vous souhaitez exporter ses feuilles de calcul et cliquez sur Entreprise > Classeur > Manuel de travail divisé. Voir la capture d'écran:

doc import multiple csv texte xml 10

2. dans le Manuel de travail divisé Dans la boîte de dialogue, vous pouvez vérifier les noms des feuilles à exporter, par défaut toutes les feuilles sont cochées et vérifier Spécifiez le format d'enregistrement et sélectionnez le format de fichier que vous souhaitez enregistrer dans la liste déroulante ci-dessous. Voir la capture d'écran:

doc import multiple csv texte xml 11

3. Cliquez Divisé et sélectionnez un dossier pour enregistrer les fichiers fractionnés dans le Parcourir pour le dossier dialogue, voir capture d'écran:

doc import multiple csv texte xml 12

4. Cliquez OK, maintenant toutes les feuilles cochées sont exportées en tant que nouveau format de fichier dans le dossier sélectionné.


convertir rapidement plusieurs XLSX. fichiers vers XLS ou PDF. fichiers en une fois

Dans la plupart des cas, vous pouvez convertir XLSX et XLS ou convertir un classeur en fichier PDF, mais dans Excel, vous ne pouvez convertir qu'un seul classeur à la fois, avez-vous déjà imaginé de convertir plusieurs classeurs à la fois? Avec Kutools for Excel's File Format Converter, vous pouvez rapidement convertir plusieurs classeurs en classeur pdf / 97-2003 / 2007 ou classeur supérieur en une fois et les enregistrer dans un dossier, en même temps, un rapport converti est généré! Cliquez pour l'essai gratuit de 60 days!
convertisseur de fichier doc
Kutools for Excel: avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.

Articles relatifs:



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.
    Jake Howard · 1 months ago
    Thank you. This site has been a big help. I have one issue I cannot figure out. I am trying to import multiple csv files into an excel separate sheets in excel and have each sheet renamed after the file name of the csv file. I know this was covered below for a txt file but I am working with csv files. Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Shea · 7 months ago
    Hi! I used the code to merge multiple XML files into one, but unfortunately the columns got messed up. The 5 files being merged all had the same format. Is there anyway to fix this? I also was wondering if there was a way to get rid of the headers that are duplicated when the files are merged. Thank you!
  • To post as a guest, your comment is unpublished.
    Ramy Zahran · 7 months ago
    i have code to import txts to sheets each txt to each sheet, but i want every txt be imported with its name to sheet , i mean rename every imported sheet with the name of the txt the code file attatched .. thanks
    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      Hello, Ramy, zahran, you can try below code which can import the text files and rename the sheet name to the text file name.
      Sub LoadPipeDelimitedFiles()
      'UpdatebyExtendoffice20180925
      Dim xStrPath As String
      Dim xFileDialog As FileDialog
      Dim xFile As String
      Dim xCount As Long
      Dim xWS As Worksheet

      On Error GoTo ErrHandler
      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
      Application.ScreenUpdating = False
      xFile = Dir(xStrPath & "\*.txt")
      Do While xFile <> ""
      xCount = xCount + 1
      Set xWS = Sheets(xCount)
      xWS.Select
      xWS.Name = "TEXT " & Left(xFile, Len(xFile) - 4)
      With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
      & xStrPath & "\" & xFile, Destination:=Range("A1"))
      .Name = "a" & xCount
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .TextFilePromptOnRefresh = False
      .TextFilePlatform = 437
      .TextFileStartRow = 1
      .TextFileParseType = xlDelimited
      .TextFileTextQualifier = xlTextQualifierDoubleQuote
      .TextFileConsecutiveDelimiter = False
      .TextFileTabDelimiter = False
      .TextFileSemicolonDelimiter = False
      .TextFileCommaDelimiter = False
      .TextFileSpaceDelimiter = False
      .TextFileOtherDelimiter = "|"
      .TextFileColumnDataTypes = Array(1, 1, 1)
      .TextFileTrailingMinusNumbers = True
      .Refresh BackgroundQuery:=False
      xFile = Dir
      End With
      Loop
      Application.ScreenUpdating = True
      Exit Sub
      ErrHandler:
      MsgBox "no files txt", , "Kutools for Excel"
      End Sub
  • To post as a guest, your comment is unpublished.
    rendy · 8 months ago
    hello, saya mau tanya kalo impor txt file ke satu sheet gimana ya?
    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      Hello, rendy, would you want to import all txts to one sheet or each txt to each sheet?
      • To post as a guest, your comment is unpublished.
        Ramy Zahran · 7 months ago
        i have code to import txts to sheets each txt to each sheet, but i want every txt be imported with its name to sheet , i mean rename every imported sheet with the name of the txt the code file attatched .. i want to edit this file to add code for renaming sheets with txts name ... thanks.
  • To post as a guest, your comment is unpublished.
    Hey · 8 months ago
    It worked! Thanks