Přeskočit navigaci | Přeskočit na novinky

Nový videokurz na Seduo: Excel pro začátečníky

     

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

Ulož listy jako samostatné soubory - Excel VBA


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

Úvodem

Microsoft Excel logo

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.

Rozdělt souvbor po listech - Excel VBA

Ř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: 04.05.2016 19:19

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články

25.03.2017:
ROUNDUP, ROUNDDOWN - zaokrouhlování

07.04.2017:
Řazení Excel - bug - problém

09.04.2017:
Podmínkové funkce Excel - bug - problém


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 2570

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.