Přejít k hlavnímu obsahu

Jak rozdělit sešit na samostatné soubory aplikace Excel v aplikaci Excel?

Možná budete muset rozdělit velký sešit a oddělit soubory aplikace Excel uložením každého listu sešitu jako samostatného souboru aplikace Excel. Například můžete sešit rozdělit na několik samostatných souborů aplikace Excel a poté každý soubor doručit jiné osobě, aby jej zvládla. Tímto způsobem můžete zajistit, aby určité osoby zpracovávaly konkrétní údaje, a vaše data budou v bezpečí. Tento článek představí způsoby, jak rozdělit velký sešit na samostatné soubory aplikace Excel na základě každého listu.

  1. Rozdělte sešit a oddělte soubory aplikace Excel kopírováním a vkládáním
  2. Rozdělte sešit a oddělte soubory aplikace Excel pomocí funkce Přesunout nebo Kopírovat
  3. Rozdělte sešit a oddělte soubory aplikace Excel kódem VBA
  4. Rozdělte sešit a snadno oddělte soubory Excel / PDF / CSV / TXT pomocí Kutools pro Excel

Rozdělte sešit a oddělte soubory aplikace Excel kopírováním a vkládáním

Obvykle pomocí Zkopírujte příkaz a Pasta Příkaz může ručně uložit sešit jako samostatný soubor aplikace Excel. Nejprve vyberte celý list, který chcete uložit jako samostatný soubor, vytvořte nový sešit a poté jej vložte do nového sešitu, na konci jej uložíte.

Jedná se o snadno použitelný způsob, pokud potřebujete rozdělit pouze několik listů jako samostatné soubory. Musí však být časově náročné a zdlouhavé rozdělit mnoho listů ručním kopírováním a vkládáním.


Rozdělte sešit a oddělte soubory aplikace Excel pomocí funkce Přesunout nebo Kopírovat

Tato metoda zavede funkci Přesunout nebo Kopírovat k přesunutí nebo zkopírování vybraných listů do nového sešitu a uložení jako samostatného sešitu. Postupujte prosím následovně:

1. Vyberte listy na panelu karet List, klikněte pravým tlačítkem a vyberte Přesunout nebo Kopírovat z kontextové nabídky. Viz snímek obrazovky:

Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících listů kliknutím na jeden po druhém na panelu karet List; podíl směna můžete vybrat více sousedních listů kliknutím na první a poslední na panelu karet List.

2. V dialogovém okně Přesunout nebo Kopírovat vyberte (nová kniha) z Zarezervovat rozevírací seznam, zkontrolujte Vytvořte kopii a klepněte na tlačítko OK knoflík. Viz screenshot:

3. Nyní jsou všechny vybrané listy zkopírovány do nového sešitu. Klepněte na Soubor > Uložit uložit nový sešit.

Rychle rozdělte sešit a oddělte soubory Excel / PDF / TXT / CSV v aplikaci Excel

Normálně můžeme rozdělit sešit na jednotlivé soubory aplikace Excel pomocí Přesunout nebo Kopírovat funkce v aplikaci Excel. Ale Kutools pro Excel Rozdělit sešit Nástroj vám pomůže snadno rozdělit sešit a uložit každý list jako samostatný soubor PDF / TEXT / CSV nebo sešit v aplikaci Excel.


sešit ad split vyniká

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

Rozdělte sešit a oddělte soubory aplikace Excel kódem VBA

Následující kód VBA vám pomůže rychle rozdělit více listů aktuálního sešitu do samostatných souborů aplikace Excel, postupujte takto:

1. Vytvořte novou složku pro sešit, který chcete rozdělit, protože rozdělené soubory aplikace Excel zůstanou ve stejné složce jako tento hlavní sešit.

2. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do okna modulu.

VBA: Rozdělte sešit do více sešitů a uložte do stejné složky

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. zmáčkni F5 klíč ke spuštění tohoto kódu. A sešit je rozdělen na samostatné soubory aplikace Excel ve stejné složce s původním sešitem. Viz screenshot:

Poznámka: Pokud má jeden ze listů se sešitem stejný název, tento VBA nemůže fungovat.

Rozdělte sešit a snadno oddělte soubory Excel / PDF / CSV / TXT pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován, jeho Rozdělit sešit Tento nástroj může pohodlně a rychle rozdělit více pracovních listů jako samostatné soubory aplikace Excel pouze několika kliknutími.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

1. Po instalaci Kutools pro Excel, Klepněte na tlačítko Kutools Plus > Rozdělit sešit , viz screenshot:

2. V Rozdělit sešit dialogové okno, proveďte následující operace:
(1) Ve výchozím nastavení jsou zaškrtnuty všechny názvy listů. Pokud nechcete rozdělit některé listy, můžete je zrušit;
(2) Zkontrolujte Uložit typ volba;
(3) Z Uložit jako typ rozevírací seznam, vyberte jeden typ souboru, který chcete rozdělit a uložit.
(4) Poté klikněte Rozdělit .

Poznámka: 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 box.

3. V dialogovém okně Procházet složku zadejte cílovou složku pro uložení oddělených samostatných souborů a klikněte na ikonu OK .

Nyní jsou zaškrtnuté listy uloženy jako nové oddělené sešity. Každý nový sešit má název s původním názvem listu. Viz screenshot:

Kutools pro Excel's Rozdělit sešit Tento nástroj usnadňuje rozdělení aktivního sešitu na jednotlivé soubory aplikace Excel (jeden soubor obsahuje jeden list), soubory CSV, soubory TXT nebo PDF, jak potřebujete. Můžete nastavit přeskočení všech prázdných a skrytých listů. Vyzkoušejte zdarma!


Demo: Rozdělte nebo uložte každý list jednoho sešitu jako samostatné soubory aplikace Excel / txt / csv / pdf


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!

Související články:

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

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
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...

Popis


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 (113)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hello.
Both options work fine. But ..not satisfying my needs.
In each sheet i have 2 extra columns at and which contain vlookup formulas. And they all get exported to new files..
I cant have that.I also cant go and delete all formulas from all sheets then export , too much work.
Any solution to export but to ignore those columns with formulas?
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
I tried this in Office 365 and it copies 8 sheets to separate files then gives me "run-time error '1004': Copy Method of Worksheet Class failed"
This comment was minimized by the moderator on the site
Hi there, did you use the vba code or Kutools?
This comment was minimized by the moderator on the site
I was able to use this macro once and it was great but now it will not work and I only get one file labeled as "Sheet 1" and it is blank, can anyone help?
This comment was minimized by the moderator on the site
Hello, how can we split the sheets tow by tow ==< what i mean is that i have an amount of sheets in one folder and I want tow split each tow successive sheets in one folder, i have tried to put changes on the basic code but i didn't succeed, I'm a beginner in this field if you can be held that is going to be a huge help
This comment was minimized by the moderator on the site
xWs.Copy
showing error in this area
This comment was minimized by the moderator on the site
Hello, I just tried the split data function based on the first column (about 90 partners). Half of the worksheets are named correctly while the other just have number of the sheet eventhough there is name of the partner in the column. Any help, please?
This comment was minimized by the moderator on the site
i have a data of 5 worksheets. Every worksheet has a common column (Branch). Can i convert the data into different excel files based on respective branches
This comment was minimized by the moderator on the site
Hi Sudarshan,
Kutools for Excel has an amazing feature – Split Data, which can quickly split data from a range or a sheet to multiple sheets based on values in the specified column. And these sheets are saved in a new workbook.

You can apply the Split Data feature to split each sheet based on the specified common column.
After splitting, you can apply the Combine Worksheets feature, also provided by Kutools for Excel, and combine all same name worksheets into one workbook.
This comment was minimized by the moderator on the site
excel which i want to split is having 3 spread sheet my requirement is to split the excel as per the sheet 1 and remaning to sheet to be contant when file split
This comment was minimized by the moderator on the site
Hi prateeksha,
In the fourth method on this webpage, the Split Workbook feature of Kutools for Excel is recommended, which will split every specified worksheet to individual PDF/CSV/TEXT/Workbooks.
This comment was minimized by the moderator on the site
Hey there,
I was wondering if we can use this macro to split the workbook into csv files
I've changed the VBA as below, replacing "xlsx" with "csv", but it doesn't work:
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".csv"
Thanks for your help!
This comment was minimized by the moderator on the site
Hi Kevin,
It recommends trying the fourth method to solve your problem. Kutools for Excel can be freely trial for 30 days. And the Split Workbook feature of Kutools for Excel can solve the problem easily.
This comment was minimized by the moderator on the site
Very helpful code. Just had one question. How can I make these excel files read-only. I tried the below but it did not work.

Application.ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
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