Comment importer rapidement par lots plusieurs fichiers csv / texte / 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 / texte / xml d'un dossier dans un classeur ou une feuille de calcul? Dans cet article, je présente quelques méthodes pour les importer rapidement par lots.
Importer plusieurs fichiers texte d'un dossier dans chaque feuille de calcul d'un classeur avec VBA
Importez plusieurs fichiers csv d'un dossier dans une seule feuille avec VBA
Importez plusieurs fichiers xml 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 
Exportez chaque feuille au format csv / texte / pdf dans un dossier avec Kutools for Excel
Importer plusieurs fichiers texte d'un dossier dans chaque feuille de calcul d'un classeur avec VBA
Pour importer des fichiers texte d'un dossier vers un classeur, vous pouvez utiliser ci-dessous VBA pour le gérer rapidement.
1. Activez un classeur vierge et appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez le VBA dans le 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 Sub3. presse F5 clé ou cours pour exécuter le VBA et sélectionnez un dossier à partir duquel vous souhaitez importer les fichiers texte dans la boîte de dialogue contextuelle. Voir la capture d'écran:
4. Et cliquez sur OKet chaque fichier texte du dossier sélectionné a été importé dans une feuille de calcul du classeur actif. Voir la capture d'écran:
Combinez facilement plusieurs feuilles / classeurs en une seule feuille ou classeur
|
| Combiner plusieurs feuilles ou classeurs dans une feuille ou un classeur peut être édifiant dans Excel, mais avec le Combiner fonction dans Kutools for Excel, vous pouvez combiner fusionner des dizaines de feuilles / classeurs dans une feuille ou un classeur, vous pouvez également consolider les feuilles en une seule en plusieurs clics. Cliquez pour les fonctionnalités complètes 30 jours d'essai gratuit ! |
 |
| Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jour. |
Importez plusieurs fichiers csv d'un dossier dans une seule feuille avec VBA
Pour importer tous les fichiers csv d'un dossier dans une seule feuille, vous pouvez utiliser le code VBA ci-dessous.
1. Activez 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 collez sous VBA dans le nouveau Module fenêtre.
VBA: importer des fichiers csv 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 Sub3. presse F5 touche ou cliquez cours pour exécuter le VBA, et une boîte de dialogue apparaît pour sélectionner un dossier à partir duquel vous souhaitez importer tous les fichiers csv. Voir la capture d'écran:
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:
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 vers la droite. Voir la capture d'écran:
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 
Importez plusieurs fichiers xml d'un dossier dans une seule feuille avec VBA
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 placer les données importées et appuyez sur Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, collez le code VBA dans le Module fenêtre.
VBA: importez des fichiers XML 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 Sub3. Cliquez cours bouton ou F5 clé pour exécuter le VBA et sélectionnez un dossier dans la boîte de dialogue contextuelle, voir capture d'écran:
4. Cliquez OKet tous les fichiers XML du dossier sélectionné sont importés dans la feuille active.
Importez ou combinez plusieurs fichiers xml / csv dans une feuille ou un classeur avec Kutools for Excel
Si vous n'êtes pas familier avec VBA, ne vous inquiétez pas, je vous présente ici un outil pratique - Kutools pour Excel pour vous. Avec son puissant Combiner utilitaire, vous pouvez rapidement combiner plusieurs fichiers xml ou csv dans un classeur ou une feuille Excel.
| Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. | ||
Après l'installation de Kutools for Excel, procédez comme suit:（Téléchargez gratuitement Kutools pour Excel maintenant!)
1. Activez Excel et cliquez sur Kutools Plus > Combiner. Voir la capture d'écran ：
2. Et dans le étape 1 de la combinaison boîte de dialogue, choisissez une option de séparation selon vos besoins. Voir la capture d'écran:
3. Cliquez Suivant aller à étape 2 de la moissonneuse-batteusecliquez Ajouter une détection de fuite de données pour 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 à partir de Feuille liste de la section de droite. Voir la capture d'écran:
4. Cliquez Suivant à la dernière étape de Combiner, et vous pouvez spécifier les options de combinaison.
5. Cliquez Récapitulatif, 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:
6. Cliquez Enregistrer. Toutes les feuilles d'ajout ont été combinées en une nouvelle feuille unique.
Pointe: Avec Combiner, vous pouvez également combiner plusieurs des fichiers CSV former plusieurs dossiers ou un dossier dans une feuille ou un classeur.
Combinez plusieurs fichiers XML / CVS en une seule feuille / classeur
Exportez chaque feuille au format csv / texte / pdf dans un dossier avec Kutools for Excel
Si vous souhaitez exporter chaque feuille sous forme de fichier csv / texte / pdf vers un dossier, Kutools pour Excel's Classeur fractionné l'utilité peut vous rendre service.
Après installation gratuite Kutools for Excel, procédez comme suit:
1. Activez le classeur pour lequel vous souhaitez exporter ses feuilles de calcul, puis cliquez sur Kutools Plus > Classeur > Classeur fractionné. Voir la capture d'écran:
2. dans le Classeur fractionné , vous pouvez vérifier les noms de feuilles que vous devez exporter, par défaut toutes les feuilles sont cochées et cocher 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:
3. Cliquez Divisé et sélectionnez un dossier pour enregistrer les fichiers fractionnés dans le Rechercher un dossier dialogue, voir capture d'écran:
4. Cliquez OK, maintenant toutes les feuilles cochées sont exportées en tant que nouveau format de fichier dans le dossier sélectionné.
Exporter chaque feuille en tant que fichier XML / CSV / TXT / PDF
Articles relatifs:
- Comment convertir un lien hypertexte en texte brut dans Excel?
- Comment convertir un nombre décimal en nombre binaire / octal / hexadécimal ou vice versa dans Excel?
- Comment insérer le taux de change en direct dans Excel?
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éeplus
- 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 gammesplus
- 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 cellulesplus
- 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 PDFplus
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
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!
