Automatické spuštění makra v pravidelných intervalech Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

dan39
nováček
Příspěvky: 3
Registrován: říjen 18
Pohlaví: Muž

Automatické spuštění makra v pravidelných intervalech  Vyřešeno

Příspěvekod dan39 » 17 říj 2018 09:54

Dobrý den, potřeboval bych poradit jak nastavit makro, aby se automaticky spouštělo v 5min intervalu.
děkuji



Reklama
Uživatelský avatar
atari
Level 4.5
Level 4.5
Příspěvky: 1798
Registrován: říjen 08
Pohlaví: Muž

Re: Automatické spuštění makra v pravidelných intervalech

Příspěvekod atari » 17 říj 2018 10:31

Například pomocí funkce Timer (Google najde stovky stránek na toto téma)

kod zkpírován odsud: http://wall.cz/index.php?m=topic&id=26298

Kód: Vybrat vše

Sub Prodleva(Delka As Single)
Dim Kon As Single
 Kon = Timer + Delka
 Do While Timer < Kon
 DoEvents
 Loop
End Sub


Dodatečně přidáno po 12 minutách 39 vteřinách:
A nebob použít OnTime, srozumitelně vysvětleno zde: http://www.gymzv.sk/~vyuka/informatika/ ... _algo.html

Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 167
Registrován: červen 13
Pohlaví: Muž

Re: Automatické spuštění makra v pravidelných intervalech

Příspěvekod elninoslov » 17 říj 2018 13:11

S časovačmi v Excel VBA by som bol opatrný.

a.) Oneskorenie makrom (uvedený príklad) - makro stále beží, a áno dokáže lagovať. Plus žiadne ďalšie makro počas jeho behu už nespustíte.

b.) Naplánovanie OnTime - nepredvídateľné chovanie, ktoré sme už tiež na wall.cz riešili a nedobrali sa konca. Nepravidelne a nepredvídateľne sa totiž procedúra spustila aj po zatvorení zošitu (!). Pričom nezáležalo na tom, či bola pred zatvorením korektne zrušená pomocou Scheduled:=False. Proste ak sa zošit zavrel pred vykonaním naplánovaného OnTime, tak sa niekedy sám otvoril a procedúra sa vykonala, zošit ostal otvorený. Ale nie vždy - nepredvídateľne.

c.) Použitie Windows Timeru - celkom slušné, až na jednu podstatnú vec. Ak nastane Tick v dobe pauznutia makra (normálny stav napr. pri vývoji zošitu, debugovaní chyby, kontroly či ladenia a pod), tak zkolaboval celý Excel, takže neuložené veci nanovo. Je to väčšia otrava ako sa možno na prvý pohľad zdá.

Ak to všetko nebolo iba pošahanými Excelmi nás, čo sme to skúšali, tak zastávam názor, že na toto nemá Excel VBA spoľahlivé nástroje. Je to 1/2 roka možno rok, možno nejaká aktualizácia to riešila. Ja tomu neverím.

dan39
nováček
Příspěvky: 3
Registrován: říjen 18
Pohlaví: Muž

Re: Automatické spuštění makra v pravidelných intervalech

Příspěvekod dan39 » 17 říj 2018 13:30

nakonec vyřešeno takto a zatím to běží bez problémů:
Sub auto_open()
'
' auto_open Makro
'

'
ActiveWorkbook.UpdateLink Name:= _
"XXX.xlsx" _
, Type:=xlExcelLinks
Application.OnTime Now + TimeValue("00:05:00"), "auto_open"
End Sub

děkuji za rady

xlnc
Level 3.5
Level 3.5
Příspěvky: 841
Registrován: červenec 11
Pohlaví: Muž

Re: Automatické spuštění makra v pravidelných intervalech

Příspěvekod xlnc » 17 říj 2018 17:12

Určitě ne žádný Timer (žádný korektní v Excelu/VBA není a nasazovat API je cesta do pekel).
OnTime je opravdu nevyzpytatelný a nebezpečný pro čas úprav, jak píše elninislov.
Jestli řešíte nějakou burzu apod., pak to chce doplněk (a technologii ve smyslu "real time data"), nebo funkční webovou službu.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

dan39
nováček
Příspěvky: 3
Registrován: říjen 18
Pohlaví: Muž

Re: Automatické spuštění makra v pravidelných intervalech

Příspěvekod dan39 » 18 říj 2018 08:48

xlnc píše:Určitě ne žádný Timer (žádný korektní v Excelu/VBA není a nasazovat API je cesta do pekel).
OnTime je opravdu nevyzpytatelný a nebezpečný pro čas úprav, jak píše elninislov.
Jestli řešíte nějakou burzu apod., pak to chce doplněk (a technologii ve smyslu "real time data"), nebo funkční webovou službu.


Jedná se o vizualizaci - v tom file se nepracuje, pouze je celý den zobrazen a jeho jediná funkce je, že si musí v pravidelných intervalech aktualizovat propojení na jiné soubory. Řešení který jsem psal výše funguje pro tenhle účel bez problémů - zacyklení makra s 5min prodlevou


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - spuštění požadovaného makra při změně hodnoty buněk
    od Dominik556 » 29 led 2018 10:30 » v Kancelářské balíky
    3
    697
    od elninoslov
    29 led 2018 23:47
  • Automatické spuštění videa
    od ruzi.jiri » 18 pro 2017 18:31 » v Internet a internetové prohlížeče
    0
    302
    od ruzi.jiri
    18 pro 2017 18:31
  • Pokus o spuštění neznámé aplikace při spuštění windows
    od jiri18 » 05 zář 2018 18:22 » v Vše ostatní (sw)
    1
    422
    od zeus
    05 zář 2018 21:11
  • VBA makra Excel
    od Dawyck » 29 pro 2017 17:19 » v Kancelářské balíky
    3
    453
    od Dawyck
    29 pro 2017 20:45
  • Tvorba makra v excelu
    od micka » 27 dub 2018 08:56 » v Kancelářské balíky
    4
    494
    od micka
    27 dub 2018 10:41

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti