Как экспортировать и сохранить каждый лист как отдельную новую книгу в Excel?
Экспорт и сохранение отдельных рабочих листов в виде отдельных книг в Excel — это обычная задача, особенно при совместном использовании или организации данных. Хотя ручное копирование и вставка рабочих листов в новые рабочие книги — это вариант, это может быть утомительно и отнимать много времени, особенно для рабочих книг с несколькими листами. В этом руководстве мы рассмотрим несколько методов для достижения этого шаг за шагом, помогая вам выбрать лучшее решение на основе ваших потребностей и опыта.
Сохраняйте листы как новую книгу один за другим с помощью команды «Переместить» или «Копировать».
Посмотрите на график Переместить или скопировать Команда поможет вам быстро экспортировать или скопировать один или несколько листов в новую книгу.
Шаг 1: Выберите имена рабочих листов на панели вкладок. Вы можете выбрать несколько, удерживая Ctrl ключа или сдвиг .
Шаг 2. Щелкните правой кнопкой мыши имя рабочего листа и щелкните значок Переместить или скопировать из контекстного меню.

Шаг 3: В Переместить или скопировать в диалоговом окне выберите (новая книга) элемент из раскрывающегося списка Переместить выбранные листы в книгу.

Шаг 4: Затем нажмите OK, теперь вы перешли на новая рабочая тетрадь с экспортированными или скопированными листами щелкните Файл > Сохранено чтобы сохранить новую книгу.
Примечание: В Переместить или скопировать диалоговое окно, есть Создать копию вариант. Если вы не установите этот флажок, выбранные листы будут перемещены из исходной книги; если отметьте его, он скопирует выбранные листы.
Легко пакетно сохранять листы как новую книгу с помощью Kutools for Excel
Если у вас есть несколько рабочих листов, которые нужно сохранить как отдельную рабочую книгу, первый метод не является хорошим выбором. И код VBA ниже может быть немного сложным для новичков в Excel. Здесь вы можете использовать Разделить книгу полезности Kutools for Excel легко пакетно сохранить каждый лист одной книги для отдельной новой книги.
После установки Kutools для Excel, нажмите Кутулс Плюс > Workbook > Разделить книгу для открытия Разделить книгу диалоговое окно. А затем настройте следующим образом.
- Проверьте листы, которые вы хотите сохранить как новые книги. По умолчанию проверяются все листы.
- Необязательно пропускать скрытые и пустые листы, установив соответствующие флажки в Возможности .
- Нажмите OK.
- A Выбор папки появится диалоговое окно, затем вам нужно будет выбрать папку назначения для сохранения новых книг и нажать кнопку Выбор папки .
Затем указанные листы или все листы будут немедленно сохранены как отдельные новые книги.
- Эта функция позволяет сохранять каждый рабочий лист в виде отдельного файла TXT, CSV или PSF. Вам просто нужно установить флажок «Сохранить как тип» и выбрать соответствующий вариант из раскрывающегося списка.
- Чтобы использовать эту функцию, вы должны иметь Kutools for Excel установленных на вашем компьютере. Загрузите Kutools для Excel прямо сейчас.
Экспорт и сохранение листов в виде новой книги с кодом VBA
Этот следующий код экспортирует каждый видимый лист в новую книгу и сохранит книгу с именем исходного листа во вновь созданной папке по тому же пути, что и активная книга. Пожалуйста, сделайте следующие шаги:
Шаг 1: Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.
Шаг 2: нажмите Вставить > Модули, и вставьте следующий макрос в окно модуля:
VBA: экспорт и сохранение листов в виде новой книги в новой папке.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56:
FileExtStr = ".xls": FileFormatNum = 56
Case Else:
FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub
Шаг 3: нажмите F5 ключ для запуска этого кода. Появится окно с подсказкой, в котором будет указано расположение новых экспортированных книг, и все рабочие листы исходной книги были экспортированы в некоторые новые отдельные книги, которые называли исходные листы в новой конкретной папке. Смотрите скриншоты:

Демонстрация: экспорт и сохранение каждого листа как новой рабочей книги
Статьи по теме:
- Объедините несколько книг в одну книгу
- Сохранить выбор как отдельный файл
- Разделить книгу на отдельные файлы Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!