Перейти к основному содержанию

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

Например, у вас есть большая книга с несколькими листами, и вы хотите сохранить или экспортировать каждый лист как отдельный файл .csv или PDF. Как это сделать легко и быстро? В этой статье я расскажу о нескольких методах ее решения.


Сохраняйте или экспортируйте каждый лист как файл CSV / PDF с функцией «Сохранить как»

Как вы знаете, Microsoft Excel может сохранить текущий рабочий лист как отдельный файл .csv или PDF. Таким образом, вы можете вручную сохранять или экспортировать каждый лист как файл .csv или PDF.

1. Переключитесь на лист, который вы сохраните или экспортируете как отдельный файл .csv, и нажмите Файл (или Кнопка офиса)> Сохранить как.

2. В открывшемся диалоговом окне укажите папку назначения, в которую вы сохраните файл .csv, щелкните значок Сохранить как поле и выберите CSV (с разделителями-запятыми) (* .csv) or PDF (* .pdf) из раскрывающегося списка и щелкните Сохранить .

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

Примечание: Если вы сохраните активный рабочий лист как файл PDF, эти диалоговые окна не будут появляться. Просто переходите к следующему шагу.

4. Повторите шаги 1–3, описанные выше, для сохранения других листов в виде отдельных файлов .csv один за другим.


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

Если есть несколько листов, которые вы хотите сохранить или экспортировать как файлы .csv, первый способ будет довольно трудоемким и утомительным. Этот VBA может упростить работу и упростить сохранение или экспорт каждого листа в виде файла .csv.

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

2. Нажмите Вставить > Модули, а затем вставьте следующий код VBA в новое окно модуля.

VBA: сохранять каждый лист как отдельный файл CSV

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Нажмите Run или нажмите F5 ключ для запуска этого VBA.

4. В открывшемся диалоговом окне «Обзор» укажите папку назначения, в которую вы сохраните все файлы .csv, и щелкните значок OK .

Затем вы увидите, что каждый лист сохраняется / экспортируется как отдельный файл .csv в указанной папке назначения.


Пакетное сохранение или экспорт каждого листа в виде файла CSV / PDF с помощью Kutools for Excel

Некоторые пользователи Excel могут по каким-то причинам отказаться от кода VBA. Не волнуйтесь! Третий метод также позволяет легко сохранять или экспортировать каждый лист как файл .csv или PDF с помощью Разделить книгу утилита Kutools для Excel.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now

1. Нажмите Предприятие > Workbook > Разделить книгу.

документируйте каждый лист в CSV 2

2. В открывшемся диалоговом окне «Разделить книгу»

документируйте каждый лист в CSV 8

(1) Продолжайте выбирать все листы. Если нет, вы можете установить флажок перед Имя рабочего листа выделить все листы;

(2) Проверьте Укажите формат сохранения вариант;

(3) Щелкните поле ниже Укажите формат сохранения и выберите CSV (Macintosh) (*. Csv) or PDF (* .pdf) из выпадающего списка.

(4) Щелкните значок Split .

 

Внимание: Если в вашей книге есть скрытые и пустые листы, проверьте Пропустить скрытые листы и Пропустить пустой лист box будет игнорировать все пустые или скрытые листы при экспорте.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now

3. В открывшемся диалоговом окне «Обзор папки» укажите целевую папку, в которую вы сохраните все файлы .csv или PDF, и щелкните значок OK .

Теперь вы увидите, что каждый лист экспортирован и сохранен как отдельный файл .csv в указанной папке.


Демонстрация: сохранение или экспорт каждого листа в виде файла CSV / PDF в Excel


Kutools for Excel: Более 300 удобных инструментов у вас под рукой! Начните 30-дневную бесплатную пробную версию без ограничений сегодня. Скачать

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations