Excel: Сохранение или экспорт всех листов в отдельные CSV или текстовые файлы (2 простых способа)

Работа с книгами Excel, содержащими несколько листов, является обычным явлением при анализе данных и составлении бизнес-отчетов. Часто вам нужно экспортировать каждый лист как отдельный CSV (значения, разделенные запятыми) или текстовый файл для обмена данными, интеграции с другими системами или архивирования. Хотя Excel не предоставляет встроенную функцию «экспорт всех листов», существует несколько эффективных методов для выполнения этой задачи.

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

Сохранение или экспорт всех листов в CSV или текстовые файлы с помощью кода VBA

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

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

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

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

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 файлы находятся в папке Documents. Каждый рабочий лист сохранен как отдельный .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

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

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

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

1. Нажмите Kutools Plus > Workbook > Split Workbook. См. скриншот:

2. В диалоговом окне Split Workbook:

• 1). Если вы хотите конвертировать все листы в CSV или текстовые файлы, просто оставьте все имена листов отмеченными в поле Worksheet name; если вы хотите конвертировать только несколько листов, отметьте их и снимите отметку с других листов, которые вы не хотите конвертировать.
• 2). В разделе Options отметьте поле Save as type, затем выберите Unicode Text(*.txt) или CSV (Macintosh)(*.csv) из раскрывающегося списка.
• 3). Нажмите кнопку Split.

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

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

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