https://answers.microsoft.com/cs-cz/msoffice/forum/all/vba-excel-%C4%8Dasov%C3%A1-smy%C4%8Dka-pro/1cc96d1d-78e8-4ffa-826a-1dff7ed9dad8citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA záloha každé dvě hodiny
MS Excel
Téma: VBA záloha každé dvě hodiny 
Zaslal/a Fantasyk 3.8.2023 22:12
Zdraví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
(4.8.2023 9:32)#055276
(4.8.2023 9:34)#055277
nebo
https://www.zive.cz/poradna/ukladani-a-zaloha-excel/sc-20-cq-661132/default.aspx?consultanswers=1citovat
https://www.zive.cz/poradna/ukladani-a-zaloha-excel/sc-20-cq-661132/default.aspx?consultanswers=1citovat
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
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
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
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
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
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)
\n
\nMenu
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.
RSS nejnovější články