Comment convertir par lots plusieurs fichiers Excel en fichiers CSV dans Excel?
Dans Excel, nous pouvons convertir le classeur en fichier CSV avec la fonction Enregistrer sous, mais pourriez-vous savoir comment convertir par lots plusieurs fichiers Excel en fichiers CSV séparés? Dans cet article, j'introduis un code VBA pour convertir par lots tous les fichiers Excel d'un dossier en fichiers CSV dans Excel.
Convertir par lots les fichiers Excel d'un dossier en fichiers CSV avec VBA
Convertissez des feuilles de classeur en fichiers CSV séparés avec Kutools for Excel
Convertir par lots les fichiers Excel d'un dossier en fichiers CSV avec VBA
Dans Excel, aucune fonction intégrée ne permet de résoudre ce travail rapidement sauf VBA.
1. Activez Excel et appuyez sur Alt + F11 clés ouvertes Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module pour créer un nouveau module.
3. Copiez le code ci-dessous et collez-les dans la nouvelle fenêtre Module.
VBA: convertir par lots des fichiers Excel en CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4. presse F5 , sélectionnez le dossier contenant les fichiers Excel que vous souhaitez convertir en fichiers CSV dans la première boîte de dialogue contextuelle.
5. Cliquez OK, puis dans la deuxième boîte de dialogue contextuelle, sélectionnez le dossier dans lequel placer les fichiers CSV.
6. Cliquez OK, maintenant les fichiers Excel du dossier ont été convertis en fichiers CSV et enregistrés dans un autre dossier.
Convertissez des feuilles de classeur en fichiers CSV séparés avec Kutools for Excel
Comme nous le savons, nous ne pouvons convertir l'ensemble du classeur en un seul fichier CSV dans Excel qu'avec sa fonction Enregistrer sous. Mais dans certains cas, vous souhaitez convertir la feuille unique en fichier CSV, dans ce cas, le Classeur fractionné utilité de Kutools for Excel peut vous aider.
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 le classeur pour lequel vous souhaitez convertir ses feuilles en tant que fichiers CSV séparés, cliquez sur Kutools Plus > Classeur > Classeur fractionné.
2. dans le Classeur fractionné boîte de dialogue, vérifiez le nom de la feuille à fractionner (toutes les feuilles sont cochées par défaut), cochez Enregistrer sous tapez, choisissez CSV (Macintosh) (* .CSV) dans la liste déroulante.
3. Cliquez Diviser faire sortir un Parcourir pour le dossier , choisissez ou créez un dossier pour placer les fichiers CSV.
4. Cliquez OK, maintenant le classeur a été divisé en fichiers CSV séparés.
Classeur fractionné
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!