Как да експортирате и запишете всеки работен лист като отделна нова работна книга в Excel?
Да кажем, че искате да експортирате и запазите един или няколко работни листа като нова работна книга, как ще се справите с това? Обикновено можете да копирате всеки работен лист и да го поставите в нова работна книга. Но тук ви предлагаме няколко удобни трика за справяне с него:
Експортирайте и запишете работни листове като нова работна книга с VBA код
Експортирайте и запишете работни листове като нова работна книга с Kutools за Excel 
Експортирайте и запишете работни листове като нова работна книга с командата Преместване или Копиране
Използване на Преместване или копиране ще ви помогне бързо да експортирате или копирате един или няколко работни листа в нова работна книга.
Стъпка 1: Изберете имената на работния лист в лентата с раздели. Можете да изберете няколко, като задържите Ctrl или превключване ключ.
Стъпка 2: Щракнете с десния бутон върху името на работния лист и щракнете върху Преместване или копиране от контекстното меню.
Стъпка 3: В Преместване или копиране диалогов прозорец, изберете (нова книга) елемент от падащия списък на Преместете избраните листове в книгата.
Стъпка 4: След това щракнете OK, сега сте преминали към нова работна книга с експортирани или копирани работни листове щракнете досие > Save за да запазите новата работна книга.
Забележка: в Преместване или копиране диалогов прозорец, има a Създайте копие опция. Ако не го отметнете, той ще премести избраните работни листове извън оригиналната работна книга; ако го отметнете, ще копира избраните работни листове.
Бързо разделете няколко работни листа в отделна работна книга в Excel
|
| В Microsoft Excel можете да запишете или разделите работен лист от една работна книга като нов файл на Excel, като копирате и поставите този работен лист в нова работна книга. Изглежда обезпокоително, ако искате да разделите всеки лист/работен лист от голяма работна книга като отделни Excel, txt, csv, pdf файлове. Но със Kutools за ExcelЕ Разделена работна книга полезност, можете бързо да се справите с него. Кликнете за 30-дневен безплатен пробен период с пълни функции! |
 |
| Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
Експортирайте и запишете работни листове като нова работна книга с 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 ключ за изпълнение на този код. И ще се появи поле за подкана, за да ви каже местоположението на новите експортирани работни книги и всички работни листове от оригиналната работна книга са експортирани в някои нови отделни работни книги, които са именували оригинални листове в нова конкретна папка. Вижте екранни снимки:
Експортирайте и запишете работни листове като нова работна книга с Kutools за Excel
Ако имате няколко работни листа, които трябва да бъдат запазени като отделна работна книга, първият метод не може да бъде добър избор. И кодът на VBA може би е малко сложен за начинаещи в Excel. Тук можете да използвате Разделена работна книга полезност на Kutools за Excel за бързо и лесно експортиране и запазване на всеки работен лист от една работна книга, за да отделите нова работна книга.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. | ||
След безплатно инсталиране Kutools за Excel, моля, направете следното:
Стъпка 1: Кликнете върху Kutools плюс > Workbook > Разделена работна книга…. Вижте екранна снимка:
Стъпка 2: В Разделена работна книга диалогов прозорец, направете следното:
2: Ако искате да избегнете разделянето на скритите или празни работни листове, можете да проверите Пропуснете скритите работни листове or Пропуснете празните работни листове) .;
3: и също така можете да проверите Посочете запазване формат и за да изберете разделяне на листовете, след това запазете като текстов файл, pdf файл или csv файл, по подразбиране, ако не отметнете тази опция, листовете ще бъдат разделени и запазени като работна книга.
Стъпка 3: След това щракнете разцепен и изберете папката, в която искате да поставите новите работни книги. Вижте екранна снимка:
Стъпка 4: И след това щракнете OK, след това всеки отметнат работен лист в Разделена работна книга диалоговият прозорец се експортира и записва като отделна работна книга. Всяка нова работна книга се наименува с оригиналното име на работен лист. Вижте екранна снимка:
Щракнете, за да научите повече информация за този инструмент за разделяне на работна книга.
Експортирайте и запазете всеки лист като нова работна книга
Бързо разделяйте данни в множество работни листове въз основа на колони или фиксирани редове в Excel
|
| Да предположим, че имате работен лист, който има данни в колони от A до G, името на продавача е в колона A и трябва автоматично да разделите тези данни на множество работни листа въз основа на колона A в същата работна книга и всеки продавач ще бъде разделен на нов работен лист. Kutools за ExcelЕ Разделяна дата помощната програма може да ви помогне бързо да разделите данни в множество работни листове въз основа на избрана колона, както е показано на екранната снимка по-долу в Excel. Щракнете за пълнофункционален 30-дневен безплатен пробен период! |
 |
| Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
Още по темата:
- Комбинирайте няколко работни книги в една работна книга
- Запазете селекция като отделен файл
- Разделете работна книга, за да отделите Excel файлове
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
