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: 1931
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: 189
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: 888
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
  • Padání internetu v pravidelných intervalech 2h
    od gisanter » 02 kvě 2019 11:11 » v Administrace sítě
    10
    538
    od gisanter
    02 kvě 2019 15:18
  • Automatické spuštění TV s dashboardem
    od Youaresand » 16 kvě 2019 10:44 » v Vše ostatní (hw)
    0
    247
    od Youaresand
    16 kvě 2019 10:44
  • 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
    521
    od zeus
    05 zář 2018 21:11
  • Kopie souborů pomocí makra
    od luko02420 » 22 úno 2019 07:10 » v Kancelářské balíky
    0
    356
    od luko02420
    22 úno 2019 07:10
  • Jak odstranit makra na mys z pc
    od xdulgon » 30 pro 2018 09:27 » v Rady s výběrem hardwaru a sestavením PC
    4
    284
    od JegenaJk
    30 pro 2018 13:18

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

Kdo je online

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