Как экспортировать и сохранить каждый лист как отдельную новую книгу в Excel?
Допустим, вы хотите экспортировать и сохранить один или несколько рабочих листов в качестве новой книги, как вы с этим справитесь? Обычно вы можете скопировать каждый лист и вставить в новую книгу. Но здесь мы предлагаем вам несколько полезных приемов, чтобы с этим справиться:
Экспортируйте и сохраняйте листы как новую книгу с помощью команды «Переместить» или «Копировать»
Экспорт и сохранение листов в виде новой книги с кодом VBA
Экспортируйте и сохраняйте рабочие листы как новую книгу с помощью Kutools for Excel 
Экспортируйте и сохраняйте листы как новую книгу с помощью команды «Переместить» или «Копировать»
Посмотрите на график Переместить или скопировать Команда поможет вам быстро экспортировать или скопировать один или несколько листов в новую книгу.
Шаг 1: Выберите имена листов на панели вкладок. Вы можете выбрать несколько, удерживая Ctrl ключа или сдвиг .
Шаг 2. Щелкните правой кнопкой мыши имя рабочего листа и щелкните значок Переместить или скопировать из контекстного меню.
Шаг 3: В Переместить или скопировать в диалоговом окне выберите (новая книга) элемент из раскрывающегося списка Переместить выбранные листы в книгу.
Шаг 4: Затем нажмите OK, теперь вы перешли на новая рабочая тетрадь с экспортированными или скопированными листами щелкните Файл > Сохранить чтобы сохранить новую книгу.
Примечание: В Переместить или скопировать диалоговое окно, есть Создать копию вариант. Если вы не установите этот флажок, выбранные листы будут перемещены из исходной книги; если отметьте его, он скопирует выбранные листы.
Быстрое разделение нескольких листов на отдельные книги в Excel
|
| В Microsoft Excel вы можете сохранить или разделить лист из одной книги в виде нового файла Excel, скопировав и вставив этот лист в новую книгу. Это кажется проблематичным, если вы хотите разделить каждый лист / рабочий лист большой книги как отдельные файлы Excel, txt, csv, pdf. Но с Kutools for ExcelАвтора Разделить книгу утилита, с ней можно быстро разобраться. Нажмите, чтобы получить 30-дневную бесплатную пробную версию со всеми функциями! |
 |
| Kutools for Excel: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 30 дней. |
Экспорт и сохранение листов в виде новой книги с кодом 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 ключ для запуска этого кода. Появится окно с подсказкой, в котором будет указано расположение новых экспортированных книг, и все рабочие листы исходной книги были экспортированы в некоторые новые отдельные книги, которые называли исходные листы в новой конкретной папке. Смотрите скриншоты:
Экспортируйте и сохраняйте рабочие листы как новую книгу с помощью Kutools for Excel
Если у вас есть несколько листов, которые необходимо сохранить как отдельную книгу, первый метод не может быть хорошим выбором. И код VBA может быть немного сложным для начинающих Excel. Здесь вы можете использовать Разделить книгу полезности Kutools for Excel чтобы быстро и легко экспортировать и сохранять каждый лист одной книги в отдельную новую книгу.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. | ||
После бесплатная установка Kutools for Excel, сделайте следующее:
Шаг 1: нажмите Кутулс Плюс > Workbook > Разделить книгу…. Смотрите скриншот:
Шаг 2: в Разделить книгу диалоговое окно, выполните следующие действия:
2: Если вы хотите избежать разделения скрытых или пустых листов, вы можете проверить Пропустить скрытые листы or Пропускать пустые листы.);
3: а также вы можете проверить Укажите сохранить формат, и чтобы выбрать разделение листов, а затем сохранить как текстовый файл, файл PDF или файл CSV, по умолчанию, если вы не отметите этот параметр, листы будут разделены и сохранены как рабочая книга.
Шаг 3: Затем нажмите Split и выберите папку, в которую вы хотите поместить новые книги. Смотрите скриншот:
Шаг 4: Затем нажмите OK, затем каждый проверенный лист в Разделить книгу диалоговое окно экспортируется и сохраняется как отдельная книга. Каждая новая книга названа в соответствии с именем исходного листа. Смотрите скриншот:
Нажмите, чтобы узнать больше об этом инструменте Split Workbook.
Экспортируйте и сохраняйте каждый лист как новую книгу
Быстрое разделение данных на несколько листов на основе столбцов или фиксированных строк в Excel
|
| Предположим, у вас есть рабочий лист с данными в столбцах от A до G, имя продавца находится в столбце A, и вам необходимо автоматически разделить эти данные на несколько рабочих листов на основе столбца A в той же книге, и каждый продавец будет разделен на новый рабочий лист. Kutools for ExcelАвтора Дата разделения Утилита может помочь вам быстро разделить данные на несколько листов на основе выбранного столбца, как показано на скриншоте ниже в Excel. Нажмите, чтобы получить 30-дневную полнофункциональную пробную версию! |
 |
| Kutools for Excel: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 30 дней. |
Статьи по теме:
- Объедините несколько книг в одну книгу
- Сохранить выбор как отдельный файл
- Разделить книгу на отдельные файлы Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
