Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да експортирате и запазите всеки работен лист като отделна нова работна книга в Excel?

Да приемем, че искате да експортирате и запазите един или няколко работни листа като нова работна книга, как ще се справите с нея? Обикновено можете да копирате всеки работен лист и да го поставите в нова работна книга. Но тук ви представяме някои удобни трикове, с които да се справите:

Експортиране и записване на работни листове като нова работна книга с команда Преместване или Копиране

Експортирайте и запазете работните листове като нова работна книга с код VBA

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


Бързо разделете няколко работни листа в отделна работна книга в Excel

В Microsoft Excel можете да запазите или разделите работен лист от една работна книга като нов файл в Excel, като копирате и поставите този работен лист в нова работна книга. Изглежда проблем, ако искате да разделите всеки лист / работен лист на голяма работна книга като отделни Excel, txt, csv, pdf файлове. Но със Kutools за ExcelЕ Работна книга за разделяне полезност, можете бързо да се справите с него. Кликнете за 60 дни безплатен пробен период с пълни функции!
док разделена работна книга 1
Kutools за Excel: с повече от 300 удобен Excel добавки, свободни да опитате без ограничение в 60 дни.

arrow синя десен балон Експортиране и записване на работни листове като нова работна книга с команда Преместване или Копиране


Използване на Преместване или копиране команда ще ви помогне да експортирате или копирате един или няколко работни листа в нова работна книга бързо.

Стъпка 1: Изберете имената на работния лист в лентата на разделите. Можете да изберете няколко, като задържите Ctrl или превключване ключ.

Стъпка 2: Кликнете с десния бутон върху името на работния лист и кликнете върху Преместване или копиране от контекстното меню.
doc експортни листове 1

Стъпка 3: Вътре Преместване или копиране изберете диалоговия прозорец (нова книга) елемент от падащия списък на Преместете избраните листа, за да ги запишете.

doc експортни листове 2

Стъпка 4: След това кликнете OK, сега преминахте към нова работна книга с експортирани или копирани работни листове, щракнете върху досие > Save за да запазите новата работна книга.

Забележка: в Преместване или копиране диалоговия прозорец, има Създайте копие опция. Ако не го проверите, той ще премести избраните работни листове от оригиналната работна книга; ако го проверите, той ще копира избраните работни листове.


arrow синя десен балон Експортирайте и запазете работните листове като нова работна книга с код 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 ключ за стартиране на този код. Ще се появи прозорец, който ще ви покаже местоположението на новите експортирани работни книги и всички работни листове в оригиналната работна книга ще бъдат експортирани в някои отделни работни книги, които са озаглавени оригинални листове в нова конкретна папка. Вижте скрийншота:

doc експортни листове 7

arrow синя десен балон Експортирайте и запазете работни листове като нова работна книга с Kutools за Excel

Ако имате няколко работни листа, необходими за запазване като отделна работна книга, първият метод не може да бъде добър избор. А VBA кодът може би е малко сложен за начинаещите Excel. Тук можете да използвате Работна книга за разделяне полезност на Kutools за Excel бързо и лесно да експортирате и запазвате всеки работен лист на една работна книга, за да отделите нова работна книга.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна.

След безплатно инсталиране Kutools за Excel, моля, направете следното:

Стъпка 1: Кликнете върху Kutools Още > Workbook > Схема за разделяне ..., Вижте екранна снимка:
doc експортни листове 3

Стъпка 2: В Работна книга за разделяне диалоговия прозорец, направете следното:

doc експортни листове 4
1: всички имена на работните листове са били проверени по подразбиране, ако не искате да разделите някои от работните листи, можете да ги премахнете;


2: Ако искате да избегнете разделянето на скритите или празни работни листове, можете да проверите Пропуснете скритите работни листове or Пропуснете празни работни листове) .;


3: и също можете да проверите Задайте запазване формат и да изберете разделяне на листовете, а след това да запазите като текстов файл, PDF файл или CSV файл, ако не сте проверили тази опция, тя ще раздели листа и ще се запише като работна книга.

Стъпка 3: След това кликнете разцепен и изберете папката, на която искате да поставите новите работни книги. Вижте екранна снимка:
doc експортни листове 6

Стъпка 4: И след това кликнете OK, след това всеки проверен работен лист в Работна книга за разделяне диалоговия прозорец се експортира и запазва като отделна работна книга. Всяка нова работна книга се наименува с името на оригиналния работен лист. Вижте екранна снимка:
doc експортни листове 5

Кликнете, за да научите повече информация за този инструмент за разделителна секция.

arrow синя десен балон Експортирайте и запишете всеки лист като нова работна книга


Бързо разделете данните на няколко работни листа въз основа на колони или фиксирани редове в Excel

Ако имате работен лист с данни в колони А до G, името на продавача е в колона А и трябва автоматично да разделите тези данни на няколко работни листа въз основа на колона А в същата работна книга и всеки продавач ще бъде разделен на нов лист. Kutools за ExcelЕ Дата на разделяне помощната програма може да ви помогне бързо да разделите данните на няколко работни листа въз основа на избраната колона, както е показано в Excel. Кликнете за пълноценна безплатна пробна версия на 60 дни!
док разделят данни 2
Kutools за Excel: с повече от 300 удобен Excel добавки, свободни да опитате без ограничение в 60 дни.

Още по темата:



Препоръчителни инструменти за производителност

Таб на Office

златна звезда1 Носете удобни раздели в Excel и друг софтуер на Office, също като Chrome, Firefox и новия Internet Explorer.

Kutools за Excel

златна звезда1Невероятно! Увеличете производителността си в 5 минути. Не се нуждаете от специални умения, освен два часа всеки ден!

златна звезда1300 Нови функции за 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.
    Keith · 5 years ago
    Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line.

    Thanks!
    Keith
  • To post as a guest, your comment is unpublished.
    Rajesh Jayagopi · 5 years ago
    Thanks a lot. Good Job!.
  • To post as a guest, your comment is unpublished.
    Sean · 5 years ago
    Hello I like the code
    Is it possible to just save the new workbook without the date information That is so when I resave the sheets in the previous workbook I will have the option to overwrite the changes rather than create another dated folder? Also but not so important how could I use another name and destination for the destination folder
    Regards
    Sean
  • To post as a guest, your comment is unpublished.
    Nasser · 5 years ago
    thanks alot, works very well and easy.