Zaslal/a sabaot 31.3.2012 17:25
zdravím,
potřeboval bych zkontrolovat a poradit s tímto makrem.
Makro je funkční a vypadá že je vše OK, nastavím čas na 30min, ale po nějakém čase (mám vypozorováno cca za 3-4hodiny) se to začne z nějakého důvodu refreshovat a ukládat pořád dokolečka :(
Workbook:
Private Sub Workbook_Open()
Call cas
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ukladani
End Sub
Modul:
Public vartimer As Variant
Const TimeOut = 15 'zde si nastavte po kolika minutách se má dokument uložit
Sub refresh()
ActiveWorkbook.RefreshAll
Call cas
End Sub
Sub ulozime()
ActiveWorkbook.Save
Call cas
End Sub
Sub cas()
vartimer = Format(Now + TimeSerial(0, TimeOut, 0), "hh:mm:ss")
If vartimer = "" Then Exit Sub
Application.OnTime TimeValue(vartimer), "refresh"
Application.OnTime TimeValue(vartimer), "ulozime"
End Sub
Sub ukladani()
On Error Resume Next
Application.OnTime earliesttime:=vartimer, _
procedure:="ulozime", schedule:=False
On Error GoTo 0
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.