• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Uložení listů sešitu do sam souborů s datem

Zaslal/a bach1 20.7.2022 7:18

Potřeboval bych uložit listy sešitu jako samostatné soubory, ale k nim doplnit do názvu aktuální datum a čas při uložení
Elegantně tu je vyřešeno z fora uložení listů do samostatných souborů nicméně bych potřeboval tvar např List1 aby se uložil List1-05072022-125513 první je název listu-datum (5.7.2022) - čas (12h 55m 13s).
Pokud by to někdo uměl doplnit do kodu níže byl bych moc vděčný-děkuji.

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 Sub

Zaslat odpověď >

---

elninoslov(20.7.2022 8:13)#053031

To
... sh.Name ...
nahraďte za toto
... sh.Name & Format(Now(), "-ddmmyyyy-hhnnss") ...citovat

bach1(20.7.2022 10:08)#053032

Super děkuji, je to ono.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse