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

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

Шаг4. Затем нажмите «ОК». Теперь вы переключились в «новую книгу» с экспортированными или скопированными листами. Нажмите «Файл» > «Сохранить», чтобы сохранить новую книгу.
Примечание: В диалоговом окне «Переместить или скопировать» есть опция «Создать копию». Если не установить этот флажок, выбранные листы будут перемещены из исходной книги; если установить — выбранные листы будут скопированы.
Легко сохранить несколько листов как новые книги пакетно с помощью Kutools для Excel
Если вам нужно сохранить несколько листов как отдельные книги, первый способ будет не самым удобным. Кроме того, приведённый ниже VBA-код может показаться сложным для начинающих пользователей Excel. В этом случае вы можете воспользоваться инструментом «Разделить книгу» в Kutools для Excel, чтобы быстро и удобно пакетно сохранить каждый лист книги как отдельную новую книгу.
После установки Kutools для Excel перейдите в «Kutools Plus» > «Книга» > «Разделить книгу», чтобы открыть диалоговое окно «Разделить книгу». Затем выполните следующие настройки.
- Отметьте листы, которые нужно сохранить как новые книги. По умолчанию выбраны все листы.
- При необходимости можно пропустить скрытые и пустые листы, установив соответствующие флажки в разделе «Опции».
- Нажмите «ОК».
- Появится диалоговое окно «Выберите папку», в котором нужно выбрать папку для сохранения новых книг и нажать кнопку «Выберите папку».
После этого выбранные или все листы будут немедленно сохранены как отдельные новые книги.
- Эта функция позволяет сохранять каждый лист как отдельный файл TXT, CSV или PSF. Просто установите флажок «Указать формат сохранения» и выберите нужный вариант из выпадающего списка.
- Для использования этой функции необходимо, чтобы на вашем компьютере был установлен Kutools для Excel. Перейдите к загрузке Kutools для Excel сейчас.
Экспорт и сохранение листов как новой книги с помощью VBA-кода
Следующий код экспортирует каждый видимый лист в новую книгу и сохранит её с именем исходного листа в новой папке, созданной в том же каталоге, что и активная книга. Выполните следующие шаги:
Шаг1. Удерживайте клавиши ALT + F11, чтобы открыть окно «Microsoft Visual Basic for Applications».
Шаг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
Лучшие инструменты для повышения продуктивности работы с Office
Ускорьте работу в Excel с Kutools для Excel и ощутите новую степень эффективности. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Нажмите здесь, чтобы выбрать нужную вам функцию...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
- Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!