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

Як розділити книгу на окремі файли Excel у програмі Excel?

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

  1. Розділіть книгу, щоб розділити файли Excel за допомогою копіювання та вставки
  2. Розділіть книгу, щоб відокремити файли Excel за допомогою функції переміщення або копіювання
  3. Розділіть книгу, щоб відокремити файли Excel за допомогою коду VBA
  4. Розділіть робочу книгу, щоб розділити файли Excel / PDF / CSV / TXT за допомогою Kutools для Excel легко

Розділіть книгу, щоб розділити файли Excel за допомогою копіювання та вставки

Зазвичай, використовуючи Скопіювати Команда і Паста команда може зберегти книгу як окремий файл Excel вручну. По-перше, виберіть весь аркуш, який потрібно зберегти як окремий файл, створіть нову книгу, а потім вставте її в нову книгу, а в кінці збережіть.

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


Розділіть книгу, щоб відокремити файли Excel за допомогою функції переміщення або копіювання

Цей метод запровадить функцію «Перемістити або скопіювати», щоб перемістити або скопіювати вибрані аркуші до нової книги та зберегти як окрему книгу. Будь ласка, виконайте наступне:

1. Виділіть аркуші на панелі вкладок «Аркуш», клацніть правою кнопкою миші та виберіть Перемістити або скопіювати з контекстного меню. Дивіться знімок екрана:

примітки: Холдинг Ctrl клавішу, ви можете вибрати кілька сусідніх аркушів, клацнувши по одному на панелі вкладки Аркуш; проведення Shift клавішу, ви можете вибрати кілька сусідніх аркушів, натиснувши перший і останній на панелі вкладки Аркуш.

2. У діалоговому вікні Перемістити або Копіювати виберіть (нова книга) від Резервувати випадаючий список, перевірте Створіть копію та натисніть кнопку OK кнопку. Дивіться знімок екрана:

3. Тепер усі вибрані аркуші копіюються до нової книги. Клацніть філе > зберегти щоб зберегти нову книгу.

Швидко розділіть книгу, щоб розділити файли Excel / PDF / TXT / CSV у програмі Excel

Зазвичай ми можемо розділити книгу на окремі файли Excel за допомогою Перемістити або скопіювати функцію в Excel. Але Kutools для Excel Роздільна робоча книга Утиліта допоможе вам легко розділити книгу та зберегти кожен аркуш як окремий файл PDF / TEXT / CSV або книгу в Excel.


ad split workbook excel - -

Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

Розділіть книгу, щоб відокремити файли Excel за допомогою коду VBA

Наступний код VBA може допомогти вам швидко розділити кілька аркушів поточної книги на окремі файли Excel, будь ласка, виконайте наступне:

1. Створіть нову папку для книги, яку потрібно розділити, оскільки розділені файли Excel залишатимуться в тій же папці, що і ця головна книга.

2. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

VBA: розділіть книгу на кілька книг і збережіть в одній папці

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4, натисніть F5 ключ для запуску цього коду. І книга розділена на окремі файли Excel в одній папці з оригінальною книгою. Дивіться знімок екрана:

примітки: Якщо один із аркушів має однакову назву з книгою, цей VBA не може працювати.

Розділіть робочу книгу, щоб розділити файли Excel / PDF / CSV / TXT за допомогою Kutools для Excel легко

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

Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

1. Після встановлення Kutools для Excel, Натисніть Kutools Plus > Роздільна робоча книга , див. скріншот:

2, в Роздільна робоча книга у діалоговому вікні виконайте такі операції:
(1) Усі імена робочих аркушів перевіряються за замовчуванням. Якщо ви не хочете розділяти деякі робочі аркуші, ви можете зняти їх;
(2) Перевірте Зберегти тип варіант;
(3) З Зберегти як у спадному меню виберіть один тип файлу, який потрібно розділити та зберегти.
(4) Потім натисніть розщеплений кнопки.

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

3. У діалоговому вікні "Огляд папки" вкажіть цільову папку, щоб зберегти розділені окремі файли, та натисніть на OK кнопки.

Тепер перевірені аркуші зберігаються як нові відокремлені книги. Кожна нова книга називається оригінальною назвою робочого аркуша. Дивіться знімок екрана:

Kutools для Excel's Роздільна робоча книга інструмент дозволяє легко розділити активну книгу на окремі файли Excel (один файл містить один аркуш), CSV-файли, файли TXT або PDF-файли, як вам потрібно. Можна пропустити всі порожні та приховані аркуші. Отримайте безкоштовну пробну версію!


Демонстрація: розділіть або збережіть кожен аркуш однієї книги як окремі файли excel / txt / csv / pdf


Kutools для Excel: понад 300 зручних інструментів у вас під рукою! Почніть 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 (113)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hello.
Both options work fine. But ..not satisfying my needs.
In each sheet i have 2 extra columns at and which contain vlookup formulas. And they all get exported to new files..
I cant have that.I also cant go and delete all formulas from all sheets then export , too much work.
Any solution to export but to ignore those columns with formulas?
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
I tried this in Office 365 and it copies 8 sheets to separate files then gives me "run-time error '1004': Copy Method of Worksheet Class failed"
This comment was minimized by the moderator on the site
Hi there, did you use the vba code or Kutools?
This comment was minimized by the moderator on the site
I was able to use this macro once and it was great but now it will not work and I only get one file labeled as "Sheet 1" and it is blank, can anyone help?
This comment was minimized by the moderator on the site
Hello, how can we split the sheets tow by tow ==< what i mean is that i have an amount of sheets in one folder and I want tow split each tow successive sheets in one folder, i have tried to put changes on the basic code but i didn't succeed, I'm a beginner in this field if you can be held that is going to be a huge help
This comment was minimized by the moderator on the site
xWs.Copy
showing error in this area
This comment was minimized by the moderator on the site
Hello, I just tried the split data function based on the first column (about 90 partners). Half of the worksheets are named correctly while the other just have number of the sheet eventhough there is name of the partner in the column. Any help, please?
This comment was minimized by the moderator on the site
i have a data of 5 worksheets. Every worksheet has a common column (Branch). Can i convert the data into different excel files based on respective branches
This comment was minimized by the moderator on the site
Hi Sudarshan,
Kutools for Excel has an amazing feature – Split Data, which can quickly split data from a range or a sheet to multiple sheets based on values in the specified column. And these sheets are saved in a new workbook.

You can apply the Split Data feature to split each sheet based on the specified common column.
After splitting, you can apply the Combine Worksheets feature, also provided by Kutools for Excel, and combine all same name worksheets into one workbook.
This comment was minimized by the moderator on the site
excel which i want to split is having 3 spread sheet my requirement is to split the excel as per the sheet 1 and remaning to sheet to be contant when file split
This comment was minimized by the moderator on the site
Hi prateeksha,
In the fourth method on this webpage, the Split Workbook feature of Kutools for Excel is recommended, which will split every specified worksheet to individual PDF/CSV/TEXT/Workbooks.
This comment was minimized by the moderator on the site
Hey there,
I was wondering if we can use this macro to split the workbook into csv files
I've changed the VBA as below, replacing "xlsx" with "csv", but it doesn't work:
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".csv"
Thanks for your help!
This comment was minimized by the moderator on the site
Hi Kevin,
It recommends trying the fourth method to solve your problem. Kutools for Excel can be freely trial for 30 days. And the Split Workbook feature of Kutools for Excel can solve the problem easily.
This comment was minimized by the moderator on the site
Very helpful code. Just had one question. How can I make these excel files read-only. I tried the below but it did not work.

Application.ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
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