Comment importer plusieurs fichiers texte sur plusieurs feuilles?
En supposant qu'il existe plusieurs fichiers texte dans un dossier de votre ordinateur, vous souhaitez maintenant 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 calcul un par un vous fera perdre beaucoup de temps, ici, je peux vous parler de quelques astuces pour résoudre ce problème.
Importez plusieurs fichiers texte dans des feuilles de calcul séparées avec le code VBA
Divisez un classeur en plusieurs fichiers texte/pdf/csv/xlsx séparés avec Kutools for Excel
Importez plusieurs fichiers texte dans des feuilles de calcul séparées avec le code VBA
Le code VBA suivant peut vous aider à importer chaque fichier texte dans des feuilles séparées 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.
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 CombineTextFiles()
'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 (*.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 qui apparaît, spécifiez 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:
4. Puis clique Ouvert 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.
Divisez un classeur en plusieurs fichiers texte/pdf/csv/xlsx séparés avec Kutools for Excel
Parfois, vous devrez peut-être effectuer des opérations opposées à la tâche ci-dessus, c'est-à-dire que vous devez diviser un classeur pour séparer les fichiers texte. Kutools for Excel's Classeur fractionné L'utilitaire peut vous aider à résoudre ce problème rapidement et facilement.
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, veuillez procéder comme suit :( Téléchargez gratuitement Kutools pour Excel maintenant ! )
1. Activez le classeur que vous souhaitez fractionner en plusieurs fichiers texte.
2Cliquez sur Entreprise > Classeur > Classeur fractionné, voir capture d'écran:
3. Dans le Classeur fractionné 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 dont vous avez besoin.
(3.) Cliquez ensuite sur Diviser bouton, dans la boîte d'invite suivante, spécifiez un dossier pour sortir les fichiers séparés.
4. Puis clique OK et vos feuilles de calcul sélectionnées seront divisées et enregistrées dans le dossier souhaité au format dont vous avez besoin.
Téléchargez gratuitement Kutools pour Excel maintenant !
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!