< návrat zpět

MS Excel


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

Zaslal/a 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: zip55357_u.zip (15kB, staženo 1x)
Zaslat odpověď >

#055358
elninoslov
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 Sub
citovat
#055359
avatar
Ano, moc děkuji. To je přesně ono. Supercitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46