Прескочи на основното съдържание

Как да разделя работна книга, за да отделя Excel файлове в Excel?

Автор: Кели Последна промяна: 2020-04-21

Може да се наложи да разделите голяма работна книга, за да отделите файлове на Excel, като запазите всеки работен лист от работната книга като отделен файл на Excel. Например, можете да разделите работна книга на множество отделни Excel файлове и след това да доставите всеки файл на различно лице, което да го обработва. По този начин можете да накарате определени лица да обработват конкретни данни и да запазите данните си в безопасност. Тази статия ще представи начини за разделяне на голяма работна книга, за да отделите Excel файлове на базата на всеки работен лист.

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

Разделете работна книга, за да разделите Excel файлове с копиране и поставяне

Обикновено, използвайки Копирайте командване и Паста може да запише ръчно работна книга като отделен файл на Excel. Първо изберете целия работен лист, който искате да запазите като отделен файл, създайте нова работна книга и след това я поставете в новата работна книга, като в края я запазва.

Това е лесен за използване начин, ако трябва да разделите само няколко работни листа като отделни файлове. Въпреки това трябва да е времеемко и досадно да се разделят много работни листове с копиране и поставяне ръчно.


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

Този метод ще въведе функцията Преместване или копиране за преместване или копиране на избраните листове в нова работна книга и запазване като отделна работна книга. Моля, направете следното:

1. Изберете листовете в лентата с раздели „Лист“, щракнете с десния бутон и изберете Преместване или копиране от контекстното меню. Вижте екранна снимка:

Забележка: Задържане Ctrl клавиш, можете да изберете няколко несъседни листа, като щракнете върху тях един по един в лентата с раздели Лист; холдинг Превключване можете да изберете няколко съседни листа, като щракнете върху първия и последния в лентата с раздели на листа.

2. В диалоговия прозорец Преместване или копиране изберете (нова книга) от Резервирам падащ списък, проверете Създайте копие и щракнете върху OK бутон. Вижте екранна снимка:

3. Сега всички избрани листове се копират в нова работна книга. Кликнете досие > Save за да запазите новата работна книга.

Бързо разделете работна книга, за да отделите Excel / PDF / TXT / CSV файлове в Excel

Обикновено можем да разделим работна книга на отделни файлове на Excel с Преместване или копиране функция в Excel. Но Kutools за Excel Разделена работна книга помощната програма може да ви помогне лесно да разделите работна книга и да запазите всеки работен лист като отделен PDF/TEXT/CSV файл или работна книга в Excel.


рекламно разделяне на работна книга в excel

Kutools за Excel - Заредете Excel с над 300 основни инструмента. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега

Разделете работна книга, за да разделите Excel файлове с VBA код

Следният VBA код може да ви помогне бързо да разделите няколко работни листа от текущата работна книга, за да отделите Excel файлове, моля, направете следното:

1. Създайте нова папка за работната книга, която искате да разделите, тъй като разделените Excel файлове ще останат в същата папка като тази основна работна книга.

2. Задръжте натиснат ALT + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.

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-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега

1. След инсталиране Kutools за Excel, Щракнете върху Kutools плюс > Разделена работна книга , вижте екранна снимка:

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

Усъвършенствайте уменията си за 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