Preskoči na glavno vsebino

Kako izvoziti in shraniti vsak delovni list kot ločen nov delovni zvezek v Excelu?

Recimo, da želite izvoziti in shraniti enega ali več delovnih listov kot nov delovni zvezek, kako se boste z njim spopadli? Običajno lahko kopirate vsak delovni list in prilepite v nov delovni zvezek. Tu pa vam ponujamo nekaj priročnih trikov, s katerimi se lahko spopadete:

Izvozite in shranite delovne liste kot nov delovni zvezek z ukazom Premakni ali Kopiraj

Izvozite in shranite delovne liste kot nov delovni zvezek s kodo VBA

Izvozite in shranite delovne liste kot nov delovni zvezek s programom Kutools za Excel dobra ideja3


puščica modri desni mehurček Izvozite in shranite delovne liste kot nov delovni zvezek z ukazom Premakni ali Kopiraj

Uporaba Premakni ali Kopiraj Ukaz vam bo pomagal hitro izvoziti ali kopirati enega ali več delovnih listov v nov delovni zvezek.

1. korak: V vrstici z zavihki izberite imena delovnih listov. Izberete lahko več z držanjem Ctrl ključ ali premik ključ.

2. korak: Z desno miškino tipko kliknite ime delovnega lista in kliknite Premakni ali Kopiraj iz kontekstnega menija.
doc izvozne liste 1

3. korak: noter Premakni ali Kopiraj v pogovornem oknu izberite (nova knjiga) s spustnega seznama Premaknite izbrane liste v knjigo.

doc izvozne liste 2

4. korak: Nato kliknite OK, zdaj ste prešli na nov delovni zvezek z izvoženimi ali kopiranimi delovnimi listi kliknite file > Shrani shranite nov delovni zvezek.

Opomba: v Premakni ali Kopiraj pogovorno okno, obstaja Ustvari kopijo možnost. Če tega ne preverite, bo izbrane delovne liste premaknil iz prvotnega delovnega zvezka; če ga označite, bo kopiral izbrane delovne liste.


Hitro razdelite več delovnih listov v ločen delovni zvezek v Excelu

V programu Microsoft Excel lahko delovni list iz enega delovnega zvezka shranite ali razdelite kot novo Excelovo datoteko tako, da ta delovni list kopirate in prilepite v nov delovni zvezek. Zdi se težavno, če želite vsak list / delovni list velikega delovnega zvezka razdeliti kot ločene datoteke Excel, txt, csv, pdf. Ampak s Kutools za ExcelJe Razdeljeni delovni zvezek pripomoček, se lahko hitro spopadete z njim.  Kliknite za 30-dnevno brezplačno preskusno obdobje s polnimi funkcijami!
doc split delovni zvezek 1
 
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh.

puščica modri desni mehurček Izvozite in shranite delovne liste kot nov delovni zvezek s kodo VBA

Ta naslednja koda bo izvozila vsak vidni delovni list v nov delovni zvezek in shranila delovni zvezek z imenom izvirnega lista v novo ustvarjeno mapo na isti poti kot aktivni delovni zvezek. Naredite naslednje:

Korak 1: Držite pritisnjeno ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

Korak 2: kliknite Vstavi > Moduliin v okno modula prilepite naslednji makro:

VBA: Izvozite in shranite delovne liste kot nov delovni zvezek v novo mapo.

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

Korak 3: Pritisnite tipko F5 tipko za zagon te kode. Pojavilo se bo tudi okno za poziv, v katerem boste našli lokacijo novih izvoženih delovnih zvezkov, vsi delovni listi izvirnega delovnega zvezka pa so bili izvoženi v nekatere nove ločene delovne zvezke, ki so izvirne liste poimenovali v novi posebni mapi. Oglejte si posnetke zaslona:

doc izvozne liste 7

puščica modri desni mehurček Izvozite in shranite delovne liste kot nov delovni zvezek s programom Kutools za Excel

Če imate več delovnih listov, ki jih je treba shraniti kot ločen delovni zvezek, prvi način ne more biti dobra izbira. In koda VBA je morda malce zapletena za začetnike programa Excel. Tu lahko uporabite Razdeljeni delovni zvezek uporabnost Kutools za Excel za hiter in enostaven izvoz in shranjevanje vsakega delovnega lista enega delovnega zvezka v ločen nov delovni zvezek.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

Korak 1: kliknite Kutools Plus > Delovni zvezek > Delite delovni zvezek .... Oglejte si posnetek zaslona:
doc izvozne liste 3

2. korak: v Razdeljeni delovni zvezek pogovorno okno, naredite spodaj:

doc izvozne liste 4
1: vsa imena delovnih listov so privzeto preverjena, če ne želite razdeliti nekaterih delovnih listov, jih lahko počistite;


2: Če se želite izogniti razdelitvi skritih ali praznih delovnih listov, lahko preverite Preskočite skrite delovne liste or Preskočite prazne delovne liste.);


3: in lahko tudi preverite Določite shrani format in za izbiro razdeli liste, nato shranite kot besedilno datoteko, pdf ali csv datoteko v defualt, če ne potrdite te možnosti, bo liste razdelil in shranil kot delovni zvezek.

3. korak: Nato kliknite Split in izberite mapo, v katero želite shraniti nove delovne zvezke. Oglejte si posnetek zaslona:
doc izvozne liste 6

4. korak: in nato kliknite OK, nato vsak preverjeni delovni list v Razdeljeni delovni zvezek pogovorno okno se izvozi in shrani kot posamezen delovni zvezek. Vsak nov delovni zvezek je poimenovan z izvirnim imenom delovnega lista. Oglejte si posnetek zaslona:
doc izvozne liste 5

Kliknite, če želite izvedeti več o tem orodju za razdeljeni delovni zvezek.

puščica modri desni mehurček Izvozite in shranite vsak list kot nov delovni zvezek


Hitro razdelite podatke na več delovnih listov na podlagi stolpcev ali fiksnih vrstic v Excelu

Recimo, da imate delovni list, ki vsebuje podatke v stolpcih od A do G, je ime prodajalca v stolpcu A in morate te podatke samodejno razdeliti na več delovnih listov, ki temeljijo na stolpcu A v isti delovni knjigi in vsak prodajalec bo razdeljen na novega delovni list. Kutools za ExcelJe Datum razdelitve pripomoček vam lahko pomaga hitro razdeliti podatke na več delovnih listov na podlagi izbranega stolpca, kot je prikazano na spodnji sliki zaslona, ​​prikazani v Excelu.  Kliknite za 30-dnevno brezplačno preskusno različico vseh funkcij!
doc split podatkov 2
 
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh.

Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

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