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/text/pdf vers 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 Sub
3. presse F5 clé ou Courir 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 pour Excel, vous pouvez combiner la fusion de dizaines de feuilles/classeurs en une seule feuille ou un seul classeur, vous pouvez également consolider les feuilles en une seule en plusieurs clics seulement. Cliquez pour un essai gratuit complet de 30 jours ! |
Kutools for Excel : avec plus de 300 compléments Excel pratiques, à essayer gratuitement et sans limitation dans 30 jours. |
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 Sub
3. presse F5 touche ou cliquez Courir 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:
Conseil: 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 Sub
3. Cliquez Courir 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 for 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 for 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 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 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:
6. Cliquez Épargnez. Toutes les feuilles d'ajout ont été combinées en une nouvelle feuille unique.
Conseil: 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/text/pdf vers un dossier avec Kutools for Excel
Si vous souhaitez exporter chaque feuille sous forme de fichier csv / texte / pdf vers un dossier, Kutools for 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 Diviser 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?
Meilleurs outils de productivité bureautique
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...
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!