Как сохранить, экспортировать несколько / все листы в отдельные CSV или текстовые файлы в Excel?
При использовании Excel вы можете вручную сохранить рабочий лист как файл csv или текстовый файл с помощью функции «Сохранить как». Однако, как вы можете преобразовать несколько или все рабочие листы в книге в отдельные CSV или текстовые файлы? В этой статье мы покажем вам методы сохранения или преобразования нескольких или всех листов в отдельные CSV или текстовые файлы.
Сохраняйте, экспортируйте или конвертируйте все листы в CSV или текстовый файл с кодом VBA
Сохранение, экспорт или преобразование нескольких / всех листов в CSV или текстовый файл с помощью Kutools for Excel
Сохраняйте, экспортируйте или конвертируйте все листы в CSV или текстовый файл с кодом VBA
С помощью приведенных ниже кодов VBA вы можете сохранить все рабочие листы в книге в отдельные файлы CSV или текстовые файлы. Пожалуйста, сделайте следующее.
Экспорт или преобразование всех листов в файлы csv
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Приложение Microsoft Visual Basic окно.
2. в Приложение Microsoft Visual Basic окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код в Модули окно.
Код VBA: экспорт всех листов в отдельные файлы csv
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 расположены на Документы папка. Смотрите скриншот:
Экспорт или преобразование всех листов в текстовые файлы
Следующий код может помочь вам экспортировать или преобразовать все листы в книге в отдельные текстовые файлы.
Код VBA: экспорт всех листов в отдельные текстовые файлы
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 for Excel
Yвы можете быстро экспортировать или преобразовать несколько или все листы в отдельные файлы csv, текстовые файлы или файлы формата xls в Excel с помощью Разделить книгу полезности Kutools for Excel.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Нажмите Кутулс Плюс > Workbook > Разделить книгу. Смотрите скриншот:
2. в Разделить книгу диалоговое окно:
- 1). Если вы хотите преобразовать все листы в CSV или текстовые файлы, просто оставьте все имена листов отмеченными в Имя рабочего листа коробка; Если вы просто хотите преобразовать несколько листов, продолжайте проверять их и снимайте флажки с других листов, которые вы не хотите преобразовывать.
- 2). в Опции раздел, проверьте Сохранить как поле, а затем нажмите Текст в Юникоде (*. Txt) or CSV (Macintosh) (*. Csv) из раскрывающегося списка.
- 3). Щелкните значок Split .
3. в Просмотр папки диалоговом окне укажите папку для сохранения экспортированных файлов, а затем щелкните значок OK .
Теперь все листы или указанные листы преобразуются в отдельные CSV или текстовые файлы и размещаются в папке, как вы указали выше.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Сохранение, экспорт или преобразование нескольких / всех листов в CSV или текстовый файл с помощью Kutools for Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!