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)

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.