Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як експортувати і зберігати кожен лист як окрему нову книгу в Excel?

Скажімо, ви хочете експортувати і зберегти одну чи кілька робочих аркушів як нову книгу, як ви будете мати справу з нею? Зазвичай ви можете копіювати кожний робочий аркуш і вставляти в нову книгу. Але тут ми принесемо вам кілька корисних трюків для вирішення цього:

Експортуйте та зберігайте робочі аркуші як нову книгу з командою «Перемістити або скопіювати»

Експортуйте та зберігайте робочі аркуші як нову книгу з кодом VBA

Експортуйте та зберігайте робочі аркуші як нову книгу з Kutools для Excel хороша ідея3


Швидко розділяйте кілька таблиць на окремі книги в Excel

У Microsoft Excel ви можете зберегти або розділити робочий аркуш з однієї книги в якості нового файлу Excel, скопіювавши та вставивши цей аркуш у нову книгу. Видається неприємним, якщо ви хочете розділити кожен аркуш / робочий лист великої книги як окремі файли Excel, txt, csv, pdf. Але з Kutools для ExcelАвтора Сплит книга утиліта, ви можете швидко вирішити це питання. Натисніть для безкоштовної пробної версії 60 днів з повною функціональністю!
doc split bookbook 1
Kutools для Excel: з додатковими надбудовами Excel більше, ніж 300, зручні для без обмежень в днях 60.

Стрілка синього правого міхура Експортуйте та зберігайте робочі аркуші як нову книгу з командою «Перемістити або скопіювати»


Використання Перемістити або скопіювати команда допоможе вам швидко експортувати або скопіювати одну чи кілька робочих аркушів у нову книгу.

Крок 1: виберіть імена робочих таблиць на панелі вкладок. Ви можете вибрати кілька, утримуючи Ctrl ключ або зсув ключ

Крок 2: Клацніть правою кнопкою миші на ім'я робочого листа та натисніть кнопку Перемістити або скопіювати з контекстного меню.
експорт аркушів документів 1

Крок 3: в Перемістити або скопіювати діалоговому вікні, виберіть (нова книга) пункт з випадаючого списку Перемістити вибрані аркуші на книгу.

експорт аркушів документів 2

Крок 4: потім натисніть OK, тепер ви перейшли на нову книгу з експортованими або скопійованими аркушами натисніть кнопку філе > зберегти зберегти нову книгу.

Примітка: В Перемістити або скопіювати діалогове вікно, є a Створіть копію варіант Якщо ви не перевіряєте це, він буде переміщувати вибрані робочі листи з оригінальної книги; якщо перевірити це, він буде копіювати вибрані робочі аркуші.


Стрілка синього правого міхура Експортуйте та зберігайте робочі аркуші як нову книгу з кодом VBA

Цей наступний код буде експортувати кожну видиму робочу таблицю в нову книгу і зберегти книгу з назвою оригінального аркуша в новоствореній теці з тим же шляхом, що і активна робоча книга. Будь ласка, виконайте наступні кроки:

Крок 1: утримуйте клавішу ALT + F11 ключі, і це відкриває Microsoft Visual Basic для додатків вікна.

Крок 2: клацніть вставка > Модулі, і вставте наступний макрос в вікно модуля:

VBA: експортуйте та зберігайте робочі аркуші як нову книгу в новій папці.

Sub SplitWorkbook()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb 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
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    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
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub

Крок 3: натисніть кнопку F5 ключ для запуску цього коду. І з'явиться відповідне поле, щоб повідомити про місце розташування нових експортованих робочих книг, а всі робочі листи оригінальної книги були експортовані в деякі нові окремі книги, які назвали оригінальні листи в новій конкретній папці. Подивіться скріншоти:

експорт аркушів документів 7

Стрілка синього правого міхура Експортуйте та зберігайте робочі аркуші як нову книгу з Kutools для Excel

Якщо у вас є кілька листів, необхідних для збереження як окремої робочої книги, перший метод не може бути хорошим вибором. А код VBA може бути трохи складним для початківців Excel. Тут ви можете використовувати Сплит книга корисність Kutools для Excel швидко і легко експортувати і зберігати кожен робочий лист однієї робочої книги для розділення нової робочої книги.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує роботу вашої роботи.

після безкоштовна установка Kutools для Excel, будь ласка, виконайте такі дії:

Крок 1: клацніть Kutools More > робочий зошит > Розділена робоча книга .... Див. Знімок екрана:
експорт аркушів документів 3

Крок 2: в Сплит книга діалогове вікно, виконайте такі дії:

експорт аркушів документів 4
1: всі імена робочих листів були перевірені за замовчуванням, якщо ви не хочете розділити деякі робочі аркуші, ви можете зняти з них прапорець;


2: Якщо ви хочете уникнути розщеплення прихованих або порожніх таблиць, ви можете перевірити Пропустити приховані робочі аркуші or Пропустити порожні таблиці.);


3: а також ви можете перевірити Вкажіть збереження формат, і для вибору розбити аркуші, а потім зберегти як текстовий файл, файл PDF або CSV-файл, якщо ви не перевіряєте цю опцію, він розщепить аркуші та зберігатиметься як робоча книга.

Крок 3: потім натисніть розщеплений кнопку і виберіть папку, до якої потрібно додати нові робочі книги. Див. Знімок екрана:
експорт аркушів документів 6

Крок 4: і натисніть кнопку OK, потім кожен перевірений аркуш в Сплит книга Діалогове вікно експортується та зберігається як окрема робоча книга. Кожна нова робоча книга називається з оригінальним ім'ям робочого листа. Див. Знімок екрана:
експорт аркушів документів 5

Натисніть, щоб дізнатись більше інформації про цей інструмент для роботи з розділювачами.

Стрілка синього правого міхура Експортуйте і зберігайте кожен аркуш як нову книгу


Швидко розділяйте дані на декількох робочих аркушах на основі стовпців або фіксованих рядків у Excel

Якщо ви маєте робочий аркуш, у якому є дані у стовпцях від А до G, ім'я продавця знаходиться в колонці А, і вам потрібно автоматично розбити ці дані на кілька робочих аркушів на основі стовпчика А в тій же робочій книзі, і кожен продавець буде розділений на нову аркуш Kutools для ExcelАвтора Спліт Дата Утиліта може допомогти вам швидко розділити дані на декілька робочих аркушів на основі вибраного стовпця, як показано внизу скріншоту в Excel. Натисніть, щоб отримати безкоштовну пробну версію 60 днів!
Документ розщеплення даних 2
Kutools для Excel: з додатковими надбудовами Excel більше, ніж 300, зручні для без обмежень в днях 60.

Статті по темі:



Рекомендовані інструменти для роботи з продуктивністю

Вкладка Office

золота зірка1 Принесіть зручні вкладки для Excel та іншого програмного забезпечення Office, як і Chrome, Firefox та нового Internet Explorer.

Kutools для Excel

золота зірка1Дивовижний! Збільште свою продуктивність за 5 хв. Не потрібно спеціальних навичок, заощаджуйте дві години щодня!

золота зірка1Нові можливості 300 для Excel, зробити Excel набагато простішим та потужним:

  • Об'єднати клітинки / рядки / стовпці без втрати даних.
  • Об'єднати та об'єднати декілька аркушів і книг.
  • Порівняйте діапазони, копіюйте декілька діапазонів, перетворюйте текст на дату, одиницю та валюту.
  • Розрахувати за кольорами, Інтерв'ю підказок, Розширений сортування та Супер фільтр
  • Більше Вибрати / Вставити / Видалити / Текст / Формат / Посилання / Коментарі / Робочі книги / Робочі аркуші Інструменти ...

Знімок екрану Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 1 months ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 1 days ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 1 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??