Přejít k hlavnímu obsahu

Jak exportovat a uložit každý list jako samostatný nový sešit v aplikaci Excel?

Řekněme, že chcete exportovat a uložit jeden nebo několik listů jako nový sešit, jak s tím naložíte? Normálně můžete zkopírovat každý list a vložit jej do nového sešitu. Ale tady vám přinášíme několik užitečných triků, jak s tím zacházet:

Exportujte a uložte listy jako nový sešit pomocí příkazu Přesunout nebo Kopírovat

Exportujte a uložte listy jako nový sešit s kódem VBA

Exportujte a ukládejte listy jako nový sešit s programem Kutools pro Excel dobrý nápad3


šipka modrá pravá bublina Exportujte a uložte listy jako nový sešit pomocí příkazu Přesunout nebo Kopírovat

Za použití Přesunout nebo Kopírovat Příkaz vám pomůže rychle exportovat nebo kopírovat jeden nebo několik listů do nového sešitu.

Krok 1: Vyberte názvy listů na panelu karet. Podržením můžete vybrat více Ctrl nebo posun klíč.

Krok 2: Klikněte pravým tlačítkem na název listu a klikněte na Přesunout nebo Kopírovat z kontextového menu.
listy pro export dokumentů 1

Krok 3: V Přesunout nebo Kopírovat dialogové okno vyberte (nová kniha) položka z rozevíracího seznamu Přesunout vybrané listy do knihy.

listy pro export dokumentů 2

Krok 4: Poté klikněte OK, nyní jste přešli na nový sešit u exportovaných nebo zkopírovaných listů klikněte na Soubor > Uložit uložit nový sešit.

Poznámka: v Přesunout nebo Kopírovat V dialogovém okně existuje Vytvořte kopii volba. Pokud to nezaškrtnete, přesune vybrané listy z původního sešitu; pokud to zaškrtnete, zkopíruje vybrané listy.


Rychle rozdělte více listů do samostatného sešitu v aplikaci Excel

V aplikaci Microsoft Excel můžete uložit nebo rozdělit list z jednoho sešitu jako nový soubor aplikace Excel zkopírováním a vložením tohoto listu do nového sešitu. Zdá se být problematické, pokud chcete rozdělit každý list / list velkého sešitu jako samostatné soubory Excel, txt, csv, pdf. Ale s Kutools pro ExcelJe Rozdělit sešit nástroj, můžete si s tím rychle poradit.  Klikněte pro 30denní bezplatnou zkušební verzi s plnými funkcemi!
sešit doc split 1
 
Kutools pro Excel: s více než 300 praktickými doplňky Excel, můžete vyzkoušet bez omezení za 30 dní.

šipka modrá pravá bublina Exportujte a uložte listy jako nový sešit s kódem VBA

Tento následující kód vyexportuje každý viditelný list v novém sešitu a uloží sešit s názvem původního listu do nově vytvořené složky ve stejné cestě jako aktivní sešit. Postupujte podle následujících kroků:

Krok 1: Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

Krok 2: Klepněte na tlačítko Vložit > Modula vložte následující makro do okna modulu:

VBA: Exportujte a ukládejte listy jako nový sešit do nové složky.

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

Krok 3: Stiskněte tlačítko F5 klíč ke spuštění tohoto kódu. Zobrazí se okno s výzvou, které vám sdělí umístění nových exportovaných sešitů, a všechny listy původního sešitu byly exportovány do některých nových samostatných sešitů, které pojmenovaly původní listy v nové konkrétní složce. Zobrazit snímky obrazovky:

listy pro export dokumentů 7

šipka modrá pravá bublina Exportujte a ukládejte listy jako nový sešit s programem Kutools pro Excel

Pokud máte více pracovních listů potřebných k uložení jako samostatný sešit, první metoda nemůže být dobrou volbou. A kód VBA může být pro začátečníky aplikace Excel trochu komplikovaný. Zde můžete použít Rozdělit sešit užitečnost Kutools pro Excel rychle a snadno exportovat a uložit každý list jednoho sešitu do samostatného nového sešitu.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

Krok 1: Klepněte na tlačítko Kutools Plus > Cvičebnice > Rozdělit sešit…. Viz snímek obrazovky:
listy pro export dokumentů 3

Krok 2: V Rozdělit sešit dialogové okno, postupujte takto:

listy pro export dokumentů 4
1: ve výchozím nastavení jsou zkontrolovány všechny názvy listů, pokud nechcete rozdělit některé listy, můžete je zrušit;


2: Pokud se chcete vyhnout rozdělení skrytých nebo prázdných listů, můžete zkontrolovat Přeskočit skryté listy or Přeskočit prázdné listy.);


3: a také můžete zkontrolovat Určete uložení formátu a vyberte rozdělení listů a poté uložení jako textový soubor, soubor PDF nebo soubor CSV, pokud nezaškrtnete tuto možnost, rozdělí se listy a uloží se jako sešit.

Krok 3: Poté klikněte Rozdělit Tlačítko a vyberte složku, do které chcete nové sešity vložit. Viz screenshot:
listy pro export dokumentů 6

Krok 4: A poté klikněte OK, pak každý zaškrtnutý list v Rozdělit sešit Dialogové okno se exportuje a uloží jako samostatný sešit. Každý nový sešit má název s původním názvem listu. Viz screenshot:
listy pro export dokumentů 5

Klepnutím získáte další informace o tomto nástroji Split Workbook.

šipka modrá pravá bublina Exportujte a uložte každý list jako nový sešit


Rychle rozdělte data do několika pracovních listů na základě sloupců nebo pevných řádků v aplikaci Excel

Předpokládejme, že máte list, který obsahuje data ve sloupcích A až G, jméno prodejce je ve sloupci A a musíte tato data automaticky rozdělit do více listů na základě sloupce A ve stejném sešitu a každý prodejce bude rozdělen do nového list. Kutools pro ExcelJe Rozdělit datum nástroj vám pomůže rychle rozdělit data do několika pracovních listů na základě vybraného sloupce, jak je uvedeno níže, snímek obrazovky zobrazený v aplikaci Excel.  Kliknutím získáte 30denní bezplatnou zkušební verzi s plnou výbavou!
data rozdělení dokumentu 2
 
Kutools pro Excel: s více než 300 praktickými doplňky Excel, můžete vyzkoušet bez omezení za 30 dní.

Související články:

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

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