Перейти к основному содержанию

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

Автор: Келли Последнее изменение: 2024 июля 12 г.

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


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

Посмотрите на график Переместить или скопировать Команда поможет вам быстро экспортировать или скопировать один или несколько листов в новую книгу.

Шаг 1: Выберите имена рабочих листов на панели вкладок. Вы можете выбрать несколько, удерживая Ctrl ключа или сдвиг .

Шаг 2. Щелкните правой кнопкой мыши имя рабочего листа и щелкните значок Переместить или скопировать из контекстного меню.

Скриншот команды «Переместить или скопировать» в Excel

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

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

Шаг 4: Затем нажмите OK, теперь вы перешли на новая рабочая тетрадь с экспортированными или скопированными листами щелкните Файл > Сохранено чтобы сохранить новую книгу.

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


Легко пакетно сохранять листы как новую книгу с помощью Kutools for Excel

Если у вас есть несколько рабочих листов, которые нужно сохранить как отдельную рабочую книгу, первый метод не является хорошим выбором. И код VBA ниже может быть немного сложным для новичков в Excel. Здесь вы можете использовать Разделить книгу полезности Kutools for Excel легко пакетно сохранить каждый лист одной книги для отдельной новой книги.

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

После установки Kutools для Excel, нажмите Кутулс Плюс > Workbook > Разделить книгу для открытия Разделить книгу диалоговое окно. А затем настройте следующим образом.

  1. Проверьте листы, которые вы хотите сохранить как новые книги. По умолчанию проверяются все листы.
  2. Необязательно пропускать скрытые и пустые листы, установив соответствующие флажки в Возможности .
  3. Нажмите OK.
    Скриншот утилиты Kutools Split Workbook для сохранения рабочих листов как отдельных рабочих книг
  4. A Выбор папки появится диалоговое окно, затем вам нужно будет выбрать папку назначения для сохранения новых книг и нажать кнопку Выбор папки .

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

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

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

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

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

Статьи по теме:

Лучшие инструменты для офисной работы

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

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


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

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