Перейти до основного матеріалу

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

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

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

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

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


стрілка синя права міхур Експортуйте та зберігайте аркуші як нову книгу за допомогою команди "Перемістити" або "Копіювати"

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

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

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

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

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

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

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


Швидко розділіть кілька аркушів на окрему книгу в Excel

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

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

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

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

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

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 ключ для запуску цього коду. І з’явиться відповідне вікно із повідомленням про місце розташування нових експортованих книг, а всі аркуші оригінальної книги експортовані до деяких нових окремих книг, які назвали оригінальні аркуші в новій конкретній папці. Дивіться скріншоти:

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

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

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

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

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

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

Крок 2: у Роздільна робоча книга діалогове вікно, зробіть, як показано нижче:

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


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


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

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

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

Клацніть, щоб дізнатися більше про цей інструмент розділеної книги.

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


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

Припустимо, у вас є аркуш, який містить дані у стовпцях А-Г, ім'я продавця вказано в стовпці А, і вам потрібно автоматично розділити ці дані на кілька аркушів на основі стовпця А в тій самій книзі, і кожен продавець буде розділений на новий робочий аркуш. Kutools для ExcelАвтора Розділена дата Утиліта може допомогти вам швидко розділити дані на кілька аркушів на основі вибраного стовпця, як показано на знімку екрана, показаному в Excel.  Натисніть, щоб отримати повнофункціональну 30-денну безкоштовну пробну версію!
doc розділені дані 2
 
Kutools для Excel: із понад 300 зручними надбудовами Excel, які можна безкоштовно спробувати без обмежень протягом 30 днів.

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

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations