Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արտահանել և պահպանել յուրաքանչյուր աշխատանքային թերթ Excel- ում որպես առանձին նոր աշխատանքային գրքույկ:

Ասենք, որ ցանկանում եք մեկ կամ մի քանի աշխատանքային թերթեր արտահանել և պահպանել որպես նոր աշխատանքային գրքույկ, ինչպե՞ս կզբաղվեք դրանով: Սովորաբար դուք կարող եք պատճենել յուրաքանչյուր աշխատանքային թերթը և տեղադրել այն նոր աշխատանքային գրքում: Բայց ահա մենք ձեզ բերում ենք մի քանի օգտակար հնարքներ դրանով զբաղվելու համար.

Արտահանեք և պահեք աշխատաթերթերը որպես նոր աշխատանքային գրքույկ ՝ Տեղափոխել կամ Պատճենել հրամանով

Արտահանեք և պահեք աշխատաթերթերը որպես նոր աշխատանքային գիրք VBA կոդով

Excel- ի համար Kutools- ի հետ արտահանեք և պահեք աշխատաթերթերը որպես նոր աշխատանքային գրքույկ լավ գաղափար 3


նետ կապույտ աջ պղպջակ Արտահանեք և պահեք աշխատաթերթերը որպես նոր աշխատանքային գրքույկ ՝ Տեղափոխել կամ Պատճենել հրամանով

Օգտագործելով Տեղափոխեք կամ պատճենեք հրամանը կօգնի ձեզ արագ արտահանել կամ պատճենել մեկ կամ մի քանի աշխատանքային թերթեր նոր աշխատանքային գրքում:

Քայլ 1. Ընտրեք աշխատանքային թերթի անունները ներդիրի տողում: Կարող եք սեղմել պահելով Ctrl բանալի կամ հերթափոխություն բանալի.

Քայլ 2. Աջ կտտացրեք աշխատանքային թերթի անունը և կտտացրեք այն Տեղափոխեք կամ պատճենեք համատեքստային ընտրացանկից:
փաստաթղթերի արտահանման թերթիկներ 1

Քայլ 3. Ներս Տեղափոխեք կամ պատճենեք երկխոսության տուփ, ընտրեք (նոր գիրք) կետը բացվող ցուցակից Ընտրված թերթերը տեղափոխեք ամրագրելու համար.

փաստաթղթերի արտահանման թերթիկներ 2

Քայլ 4. Ապա կտտացրեք OK, հիմա դուք անցել եք նոր աշխատանքային գրքույկ արտահանված կամ պատճենված աշխատաթերթերով, կտտացրեք Ֆայլ > Փրկել նոր աշխատանքային գրքույկը պահպանելու համար:

Նշում: Է Տեղափոխեք կամ պատճենեք երկխոսության տուփ, կա ա Ստեղծեք կրկնօրինակ տարբերակ: Եթե ​​դուք չեք ստուգում այն, այն կտեղափոխի ընտրված աշխատանքային թերթերը բնօրինակ աշխատանքային գրքից: եթե ստուգեք այն, այն կպատճառի ընտրված աշխատանքային թերթերը:


Excel- ում արագորեն բաժանեք բազմաթիվ աշխատանքային թերթեր առանձին աշխատանքային գրքի

Microsoft Excel- ում դուք կարող եք պահպանել կամ բաժանել աշխատանքային թերթը մեկ աշխատանքային գրքից որպես նոր Excel ֆայլ ՝ պատճենելով և տեղադրելով այս աշխատանքային թերթը նոր աշխատանքային գրքում: Անհանգստացնող է թվում, եթե ցանկանում եք բաժանել մեծ աշխատանքային գրքի յուրաքանչյուր թերթ / աշխատանքային թերթ `որպես առանձին Excel, txt, csv, pdf ֆայլեր: Բայց դրանով Excel- ի համար նախատեսված գործիքներ'S Պառակտում աշխատանքային գրքույկ օգտակար, դուք կարող եք արագ զբաղվել դրանով:  Կտտացրեք 30 օր անվճար փորձաշրջանի համար՝ ամբողջական հնարավորություններով:
Doc split աշխատանքային գրքույկ 1
 
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 այս ծածկագիրը գործարկելու բանալին: Եվ կհայտնվի հուշման տուփ, որը կպատմի ձեզ նոր արտահանվող աշխատանքային գրքերի գտնվելու վայրը, և բնօրինակ աշխատանքային գրքի բոլոր թերթերն արտահանվել են որոշ նոր առանձին աշխատանքային գրքեր, որոնք անվանել են բնօրինակ թերթերը նոր հատուկ պանակում: Տեսեք սքրինշոթեր.

փաստաթղթերի արտահանման թերթիկներ 7

նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ի հետ արտահանեք և պահեք աշխատաթերթերը որպես նոր աշխատանքային գրքույկ

Եթե ​​ունեք մի քանի աշխատանքային թերթ, որոնք անհրաժեշտ է պահպանել որպես առանձին աշխատանքային գրքույկ, առաջին մեթոդը չի կարող լավ ընտրություն լինել: Եվ VBA կոդը միգուցե մի փոքր բարդ է Excel սկսնակների համար: Այստեղ դուք կարող եք օգտագործել այն Պառակտում աշխատանքային գրքույկ օգտակարությունը Excel- ի համար նախատեսված գործիքներ արագ և հեշտորեն արտահանել և պահպանել մեկ աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթ `նոր աշխատանքային գրքույկ առանձնացնելու համար:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

Քայլ 1: Սեղմեք Kutools Plus > Աշխատանքային տետր > Split Workbook, Տեսեք,
փաստաթղթերի արտահանման թերթիկներ 3

Քայլ 2. Դեպի Պառակտում աշխատանքային գրքույկ երկխոսության տուփ, արեք ինչպես ստորև ՝

փաստաթղթերի արտահանման թերթիկներ 4
1: բոլոր աշխատաթերթերի անունները ստուգված են լռելյայն, եթե չեք ցանկանում բաժանել որոշ աշխատանքային թերթեր, կարող եք հանել դրանք:


2: Եթե ​​ցանկանում եք խուսափել թաքնված կամ դատարկ աշխատանքային թերթերի բաժանումից, կարող եք ստուգել Բաց թողնել թաքնված աշխատանքային թերթերը or Բաց թողնել դատարկ աշխատաթերթերը));


3: և նաև կարող եք ստուգել Նշեք փրկել ձևաչափը և թերթերը բաժանել ընտրելու համար այն պահեք որպես տեքստային ֆայլ, pdf ֆայլ կամ csv ֆայլ ՝ defualt- ով, եթե չեք ստուգում այս տարբերակը, այն կտարածի թերթերը և կփրկի որպես աշխատանքային գիրք:

Քայլ 3. Ապա կտտացրեք պառակտում կոճակը և ընտրեք այն թղթապանակը, որի վրա ցանկանում եք տեղադրել նոր աշխատանքային գրքերը: Տեսեք,
փաստաթղթերի արտահանման թերթիկներ 6

Քայլ 4. Եվ հետո կտտացրեք OK, ապա յուրաքանչյուր ստուգված աշխատանքային թերթը Պառակտում աշխատանքային գրքույկ երկխոսության տուփը արտահանվում և պահվում է որպես անհատական ​​աշխատանքային գրքույկ: Յուրաքանչյուր նոր աշխատանքային գիրք անվանում են բնօրինակ աշխատանքային թերթի անուն: Տեսեք,
փաստաթղթերի արտահանման թերթիկներ 5

Կտտացրեք ՝ Split Workbook- ի այս գործիքի մասին լրացուցիչ տեղեկություններ իմանալու համար.

նետ կապույտ աջ պղպջակ Արտահանեք և պահեք յուրաքանչյուր թերթը որպես նոր աշխատանքային գրքույկ


Excel- ում սյունակի կամ ֆիքսված տողերի հիման վրա արագ բաժանեք տվյալները բազմաթիվ աշխատանքային թերթերի

Ենթադրելով, որ ունեք աշխատանքային թերթ, որը տվյալներ ունի A- ից G սյուններում, վաճառողի անունը գտնվում է A սյունակում, և դուք պետք է ավտոմատ կերպով բաժանեք այս տվյալները միևնույն աշխատանքային գրքի A սյունակի հիման վրա գործող բազմաթիվ թերթերի, և յուրաքանչյուր վաճառող բաժանվի նորի: աշխատանքային թերթիկ Excel- ի համար նախատեսված գործիքներ'S Պառակտման ամսաթիվը օգտակար ծրագիրը կարող է օգնել ձեզ արագորեն բաժանել տվյալները մի քանի աշխատանքային թերթերի վրա ՝ ընտրված սյունակի հիման վրա, ինչպես ցույց է տրված Excel- ում ցույց տրված էկրանի նկարը:  Կտտացրեք լիարժեք 30 օր անվճար փորձաշրջանի համար:
փաստաթղթի պառակտման տվյալներ 2
 
Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք:

Առնչվող հոդվածներ քանակը:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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