< návrat zpět

MS Excel


Téma: VBA záloha každé dvě hodiny rss

Zaslal/a 3.8.2023 22:12

FantasykZdravím,
Chtěl bych ve VBA vytvořit makro, aby mi ukládalo kopii aktuálního sešitu na určité místo. ( C:\Users\NOOB\desktop\zaloha.xlsm )
Sešit je otevřený non-stop a v intervalu 2 hodin, bych potřeboval přepisovat soubor "zaloha.xlsm", abych měl zálohu v případě pádu.

Díky za jakýkoliv typ

Zaslat odpověď >

#055276
avatar
https://answers.microsoft.com/cs-cz/msoffice/forum/all/vba-excel-%C4%8Dasov%C3%A1-smy%C4%8Dka-pro/1cc96d1d-78e8-4ffa-826a-1dff7ed9dad8citovat
#055277
avatar
nebo

https://www.zive.cz/poradna/ukladani-a-zaloha-excel/sc-20-cq-661132/default.aspx?consultanswers=1citovat
#055278
Fantasyk
To jsem před tím taky našel, ale nějak mi to nefunguje tak jak bych si to představoval.
Při otevření sešitu bude běžet interval např. 30 minut a každých 30 minut se mi soubor uloží jako kopie na disk C:\Users\NOOB\desktop\zaloha.xlsm
,Ale zůstane aktivní stále ten původní soubor.

Abych mohl v případě pádu ihned zareagovat a otevřít tu kopiicitovat
#055279
avatar
zkuste tohle
https://answers.microsoft.com/en-us/msoffice/forum/all/excel-need-to-auto-save-a-static-copy-of-a-shared/2c3e873d-a3cf-42a2-9214-2980cbd0c689
v kombinaci s tímto nebo něčím podobným
https://www.teachexcel.com/excel-tutorial/1937/run-a-macro-at-set-intervals-in-excelcitovat
#055280
Fantasyk
Tak jsem to udělal následovně:

ThisWorkbook:
Private Sub Workbook_Open()
Const MINUTES As String = "01"
Application.OnTime Now() + TimeValue("00:" & MINUTES & ":00"), "SaveMyFile"
End Sub


Modul1:
Sub SaveMyFile()
ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Zaloha\autosave.xlsm"
Call Timer
End Sub

Sub Timer()
Const MINUTES As String = "01"
Application.OnTime Now() + TimeValue("00:" & MINUTES & ":00"), "SaveMyFile"
End Sub


čas 01 byl jen pro test..citovat

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