MS Excel

Téma: Uložení listů sešitu do jednotlivých souborů

Zaslal/a Rozmy 14.4.2014 10:49

Ahoj.
Opět bych rád poprosil o pomoc s dávkovým zpracováním excelu.
V jednom souboru ("zdroj.xlsx") mám mnoho listů a každý tento list bych chtěl uložit jako samostatný excel soubor, který obsahuje pouze jeden list.
Dokázal bych to udělat tak, že makro bude obsahovat pár řádků pro každý název listu zvlášť, ale listů je moc a bylo by to dost dlouhé. Určitě to jde udělat elegantněji.
Velmi děkuji za podporu

Příloha: zip

18860_zdroj.zip (138kB, staženo 91x)

Uzamčeno - nelze přidávat nové příspěvky.

eLCHa(14.4.2014 11:09)#018862

Sub subSaveSheets()
Dim sh As Worksheet

For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sh.Name, xlWorkbookDefault
ActiveWorkbook.Close
Next sh

Set sh = Nothing
End Subcitovat

Rozmy(14.4.2014 12:29)#018869

Tak je to jednoduché, až čumím....přesto bych to dohromady takhle nedal :(

Každopádně funguje úplně dokonale.

Děkuji převelice.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.