KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как экспортировать и сохранить каждый лист как отдельную новую рабочую книгу в Excel?

АвторКеллиДата изменения

Экспорт и сохранение отдельных листов в виде независимых книг в Excel — распространённая задача, особенно при совместной работе или структурировании данных. Хотя листы можно вручную копировать в новую рабочую книгу, этот подход быстро становится утомительным и трудоёмким, если в файле много листов. В этом руководстве мы пошагово разберём несколько способов решения этой задачи, чтобы вы могли выбрать оптимальный вариант с учётом своих потребностей и уровня владения Excel.

Сохранение листов как файлов Новая рабочая книга по одному с помощью команды «Переместить или копировать»

Команда «Переместить или скопировать» позволяет быстро переместить или скопировать один или несколько листов в новую рабочую книгу.

Шаг 1: Выберите имя листа на панели вкладок. Чтобы выбрать несколько листов, удерживайте клавишу «Ctrl» и последовательно щёлкайте по вкладкам листов.

Шаг 2: Щёлкните правой кнопкой мыши по имени листа и в контекстном меню выберите «Переместить или скопировать».

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

Снимок экрана диалогового окна «Переместить или скопировать», показывающий опцию перемещения листов в новую книгу

Шаг 4: Нажмите «ОК». Теперь вы окажетесь в книге «Новая рабочая книга» с экспортированными или скопированными листами. Чтобы сохранить её, выберите «Файл» > «Сохранить».

Примечание. В диалоговом окне «Переместить или копировать» есть опция «Создать копию». Если флажок не установлен, выбранные листы будут перемещены из исходной книги; если флажок установлен, выбранные листы будут скопированы.

Простое пакетное сохранение листов как файлов Новая рабочая книга с помощью Kutools для Excel

Если вам нужно сохранить несколько листов в виде отдельных книг, первый метод не подойдёт. А приведённый ниже код VBA может показаться сложным для начинающих пользователей Excel. В этом случае воспользуйтесь утилитой  «Разделить книгу» из набора «Kutools для Excel» — она позволяет легко и пакетно сохранить каждый лист текущей книги в отдельные файлы в формате Новая рабочая книга.

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

После установки Kutools для Excel выберите «KUTOOLS PLUS» > «Книга» > «Разделить книгу», чтобы открыть диалоговое окно «Разделить книгу». Затем выполните следующие настройки.

  1. Отметьте листы, которые вы хотите сохранить как новую рабочую книгу. По умолчанию отмечены все листы.
  2. При необходимости вы можете пропустить скрытые и пустые листы, установив соответствующие флажки в разделе «Параметры».
  3. Нажмите «ОК».
  4. Появится диалоговое окно «Выбор папки». Выберите папку назначения для сохранения файлов новой рабочей книги и нажмите кнопку «Выбрать папку».

Затем указанные листы или все листы будут немедленно сохранены как отдельные файлы новой рабочей книги.

Примечания:
  • Эта функция позволяет сохранять каждый лист как отдельный файл в формате TXT, CSV или PSF. Просто установите флажок «Указать формат сохранения» и выберите нужный вариант из раскрывающегося списка.
    Снимок экрана параметра «Тип файла» в утилите Kutools «Разделить книгу»
  • Чтобы использовать эту функцию, на вашем компьютере должно быть установлено приложение «Kutools для 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», чтобы запустить код. Появится окно с сообщением, указывающим путь к новой папке, куда экспортированы книги. Все листы исходной книги сохранятся в отдельные файлы с именами соответствующих листов именно в этой папке.

Снимок экрана вывода кода VBA, показывающий сохраненные листы как новые книги

Демонстрация: экспорт и сохранение каждого листа как файла Новая рабочая книга

 
Kutools для Excel: Более 300 удобных инструментов всегда под рукой! Воспользуйтесь функциями на базе ИИ для более умной и быстрой работы!Скачать сейчас!

См. также:

Лучшие инструменты повышения продуктивности в Office

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

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

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек