Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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

Пакетное преобразование нескольких файлов Excel в PDF в Excel

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

Как вы знаете, 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-файла.

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. Нажмите прогон или нажмите F5 для запуска этого VBA.

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

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


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

1. Нажмите Предприятие > Workbook > Сплит-книга.

doc каждый лист в csv 2

2. В диалоговом окне «Разделить рабочую книгу»,

doc каждый лист в csv 8

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

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

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

(4) Нажмите Трещина Кнопка.

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

Kutools for Excel - Включает в себя более удобных инструментов 300 для Excel. Полнофункциональная бесплатная пробная версия 60-day, кредитная карта не требуется! Get It Now

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

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


В этом видео, Kutools Kutools Plus вкладки добавляются Kutools for Excel, Если это необходимо, пожалуйста, нажмите для 60-дневная бесплатная пробная версия без ограничений!

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    Copied and pasted the VBA script. On pressing F5, the system highlighted the word "sheet" in the first line, and gave the error "Compile error: Expected: end of statement"


    Mmmph.
  • To post as a guest, your comment is unpublished.
    Pav · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      Sriraj · 3 months ago
      ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False