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: zip

55357_u.zip (15kB, staženo 2x)

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

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje