< návrat zpět

MS Excel


Téma: Automatický refresh a uložení rss

Zaslal/a 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

Zaslat odpověď >

#007879
avatar
tak mám tu jeden poznatek, zdá se, že to "po nějakém čase" není samovolnou činností, ale že ten sešit otevře ještě někdo jiný jen pro čtení.citovat
#007990
avatar
je možné, aby otevření stejného sešitu jen pro čtení v jiném PC vynulovalo vartimer???

opravdu se nenajde nikdo, kdo by poradil??citovat

Uživatelské menu

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

Menu

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.

On-line nástroje