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

MS Excel

Téma: změna zápisu uložení

Zaslal/a junis 31.8.2023 17:59

Zdravím.
Přátelé, mám zápis co mi vytvoří a uloží záložní soubor do stejného adresáře a pojmenuje ho: den-měsíc-rok-hodina atd.
Potřeboval bych, zda by šlo upravit tak, aby mi vyzval k tomu abych si sám zvolil cestu, kam soubor uložím.

Sub Zaloha()
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & _
"\" & Format(Now, "yyyy-mm-dd hh-mm-ss") & " " & _
ActiveWorkbook.name
End Sub

Příloha: 55357_u.zip (15kB, staženo 1x)

Zaslat odpověď >

---

elninoslov(31.8.2023 19:30)#055358

Sub zaloha()
Dim ADR As String

If MsgBox("Chcete provést zálohu před načtením dalších dat do souboru?" & vbNewLine & "Vytvoří se záložní soubor" & vbNewLine & "a uloží do vámi zvoleného umístění, " & vbNewLine & "Doporučuji!" & vbNewLine & "Soubor bude pojmenovaný dd-mm-rrrr-hh-mm-ss." & vbNewLine, vbExclamation + vbYesNo) = vbYes Then
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ADR = .SelectedItems(1)
End With

If ADR = "" Then MsgBox "Nevybrali jste umístění pro zálohu." & vbNewLine & "Záloha neproběhla !", vbExclamation: Exit Sub

ThisWorkbook.SaveCopyAs ADR & "\" & Format(Now, "dd-mm-yyyy-hh-mm") & "_" & Environ("UserName") & ".xlsm"
End If
End Subcitovat

junis(31.8.2023 19:36)#055359

Ano, moc děkuji. To je přesně ono. Supercitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse