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

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

Zaslat odpověď >

---

Anonym(4.8.2023 9:32)#055276

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

Anonym(4.8.2023 9:34)#055277

nebo

https://www.zive.cz/poradna/ukladani-a-zaloha-excel/sc-20-cq-661132/default.aspx?consultanswers=1citovat

Fantasyk(4.8.2023 12:37)#055278

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

veny(4.8.2023 13:55)#055279

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

Fantasyk(4.8.2023 14:14)#055280

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse