Как сохранить, экспортировать несколько/все листы в отдельные CSV-файлы или текстовые файлы в Excel?

При использовании Excel вы можете вручную сохранить лист в виде CSV-файла или текстового файла с помощью функции «Сохранить как». Однако как преобразовать несколько или все листы в рабочей книге в отдельные CSV-файлы или текстовые файлы? В этой статье мы покажем вам методы сохранения или преобразования нескольких или всех листов в отдельные CSV-файлы или текстовые файлы.

Сохраните, экспортируйте или преобразуйте все листы в CSV или текстовые файлы с кодом VBA.
Сохраняйте, экспортируйте или конвертируйте несколько/все листы в CSV или текстовые файлы с помощью Kutools для Excel

Сохраните, экспортируйте или преобразуйте все листы в CSV или текстовые файлы с кодом VBA.

С помощью приведенных ниже кодов VBA вы можете сохранить все рабочие листы в рабочей книге в отдельные файлы CSV или текстовые файлы. Пожалуйста, сделайте следующее.

Экспортируйте или конвертируйте все листы в отдельные файлы CSV

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Приложение Microsoft Visual Basic окно.

2. в Приложение Microsoft Visual Basic окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код в Модули окно.

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. нажмите F5 ключ для запуска кода. Вы увидите, что все экспортированные CSV-файлы находятся на Документы папка. Смотрите скриншот:

Экспортируйте или преобразуйте все листы в отдельные текстовые файлы

Следующий код может помочь вам экспортировать или преобразовать все листы в книге в отдельные текстовые файлы.

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

Экспортированные текстовые файлы также находятся на Документы папка. Смотрите скриншот:

Сохраняйте, экспортируйте или конвертируйте несколько/все листы в CSV или текстовые файлы с помощью Kutools для Excel

Вы можете быстро экспортировать или преобразовать несколько или все листы в отдельные файлы CSV, текстовые файлы или файлы формата XLS в Excel с помощью Разделить книгу полезности Kutools for Excel.

1. Нажмите Кутулс Плюс > Workbook > Разделить книгу. Смотрите скриншот:

2. в Разделить книгу диалоговое окно:

• 1). Если вы хотите преобразовать все листы в CSV или текстовые файлы, просто отметьте все имена листов в Имя рабочего листа коробка; Если вы просто хотите преобразовать несколько листов, продолжайте проверять их и снимайте флажки с других листов, которые вы не хотите преобразовывать.
• 2). в Возможности раздел, проверьте Сохранить как поле, а затем нажмите Текст в Юникоде (*. Txt) or CSV (Macintosh) (*. Csv) из раскрывающегося списка.
• 3). Щелкните значок Split .

3. в Просмотр папки диалоговом окне укажите папку для сохранения экспортированных файлов, а затем щелкните значок OK .

Теперь все листы или указанные листы преобразуются в отдельные CSV-файлы или текстовые файлы и размещаются в папке, указанной вами выше.

Демонстрация: сохранение, экспорт или преобразование нескольких/всех листов в CSV или текстовые файлы с помощью Kutools для Excel