Comment enregistrer, exporter plusieurs / toutes les feuilles pour séparer des fichiers csv ou texte dans Excel?

Lorsque vous utilisez Excel, vous pouvez enregistrer manuellement une feuille de calcul sous forme de fichier csv ou texte à l'aide de la fonction Enregistrer sous. Cependant, pour convertir plusieurs ou toutes les feuilles de calcul d'un classeur en fichiers csv ou texte séparés, comment pouvez-vous faire ? Dans cet article, nous vous montrerons des méthodes pour enregistrer ou convertir plusieurs ou toutes les feuilles en fichiers csv ou texte séparés.

Enregistrez, exportez ou convertissez toutes les feuilles en fichier csv ou texte avec le code VBA
Enregistrez, exportez ou convertissez plusieurs/toutes les feuilles en fichier CSV ou texte avec Kutools for Excel

Enregistrez, exportez ou convertissez toutes les feuilles en fichier csv ou texte avec le code VBA

Avec les codes VBA ci-dessous, vous pouvez enregistrer toutes les feuilles de calcul d'un classeur dans des fichiers CSV ou texte séparés. Veuillez faire comme suit.

Exporter ou convertir toutes les feuilles en fichiers csv

1. presse autre + F11 touches simultanément pour ouvrir le Application Microsoft Visual Basic fenêtre.

2. dans le Application Microsoft Visual Basic fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code suivant dans le Module fenêtre.

Code VBA: exportez toutes les feuilles vers des fichiers csv séparés

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. appuie sur le F5 clé pour exécuter le code. Vous verrez que tous les fichiers csv exportés se trouvent sur le DOCUMENTS dossier. Voir la capture d'écran:

Exporter ou convertir toutes les feuilles en fichiers texte

Le code suivant peut vous aider à exporter ou à convertir toutes les feuilles du classeur en fichiers texte séparés.

Code VBA: exportez toutes les feuilles vers des fichiers texte séparés

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Les fichiers texte exportés se trouvent également sur le DOCUMENTS dossier. Voir la capture d'écran:

Enregistrez, exportez ou convertissez plusieurs/toutes les feuilles en fichier CSV ou texte avec Kutools for Excel

YVous pouvez rapidement exporter ou convertir plusieurs feuilles ou toutes les feuilles en fichiers CSV individuels, fichiers texte ou fichiers au format xls dans Excel avec le Classeur fractionné utilité de Kutools for Excel.

1. Cliquez Kutools Plus > Classeur > Classeur fractionné. Voir la capture d'écran:

2. dans le Classeur fractionné boite de dialogue:

• 1). Si vous souhaitez convertir toutes les feuilles en fichiers csv ou texte, gardez simplement tous les noms de feuille cochés dans le Nom de la feuille de travail boîte; Si vous souhaitez simplement convertir plusieurs feuilles, continuez à les vérifier et décochez les autres feuilles que vous ne souhaitez pas convertir.
• 2). dans le Options section, vérifiez la Enregistrer en tant que type de puis sélectionnez Texte Unicode (*. Txt) or CSV (Macintosh) (*. Csv) dans la liste déroulante.
• 3). Clique le Diviser .

3. dans le Parcourir pour le dossier boîte de dialogue, spécifiez un dossier pour enregistrer les fichiers exportés, puis cliquez sur le OK .

Désormais, toutes les feuilles ou feuilles spécifiées sont converties en fichiers CSV ou texte séparés et se trouvent dans le dossier comme vous l'avez spécifié ci-dessus.

Enregistrez, exportez ou convertissez plusieurs/toutes les feuilles en fichier CSV ou texte avec Kutools for Excel