Jste zde: Úvodní stránka » excel » vba-soubory » ulozit-listy-jako-samostatne-soubory-Excel-VBA

Ulož listy jako samostatné soubory - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Potřebujete-li rozdělit listy v sešitu na samostatné soubory.

Ú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

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.