Ulož listy jako samostatné soubory - Excel VBA

Úvodem

Potřeboval jsem rozdělit listy do samostatných souborů. Proč to dělat ručně, když listu je mnoho a sešitu také. Řešením byl VBA skript. Holt jsem byl moc líný to provádět ručně ;) Přecii jen 70 listů a v 8 souborech.

Podobně lze i jeden rozsáhlý list rozělit na jednotlivé soubory. Brzo doplním ;)

Ukázka

Z jednoho souboru o dvou listech vytvořeny dva samostatné soubory.

Řešení

Proč se nerozdělit o výsledek. Kód projde listy a každý uloží v novém souboru pod názvem onoho listu ve stejném adresáři ve kterém se nachází zdrojový soubor (předpokládám, že zdrojový soubor nemá stejné jméno jako některý z listů).

Sub RozdelUloz() ' -------------------------------- ' -- rozděli na jenotlivé list -- ' -- office.lasakovi.com -- ' -- JakNaExcel.cz -- ' -------------------------------- Dim CestaSeSouborem As String CestaSeSouborem = Application.ActiveWorkbook.Path 'nezobrazovat hlášky > zrychllitz Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ListSesitu In ThisWorkbook.Sheets 'zkopírují ListSesitu.Copy ' název nového Application.ActiveWorkbook.SaveAs Filename:=CestaSeSouborem & "\" & ListSesitu.Name & ".xlsx" ' zavřu Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Poznámka: Kód uložit do Modules

Závěrem

Máte nějaký efektnější způsob?

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.