にしのクエスト2

情報処理技術者試験と資格学校講師の日常

20240615101703

まめ電機(TIPS)  3 EXCELマクロ(VBA)自動実行を停止する

北海道札幌市からお届けする。
にしの夫妻によるブログ、にしのクエスト2です。

ちょっと思いついたことや、便利だなって思ったことを
気ままに書いてみたいと思います。まめ電機のコーナー
です。

エクセルマクロを時間になったら・・・


やりましたね。第1回でエクセルを起動して。決められ
た時間になったら何かを起動するマクロを書いてみまし
た。

www.nsnq.tech

こちらがコードになります・・・
---------
Sub Auto()

Rem 土日は実行しない
If Weekday(Date) <> 1 Or Weekday(Date) <> 7 Then

Call Application.OnTime(TimeValue("9:15:00"), "time1")

End If
End Sub
---------
Sub time1()
Rem 変数  
Dim sPath

Rem 実行するプログラムのパス

sPath = "d:\aaa.bat"

End Sub
-------------

ところが、これはエクセルが開きっぱなしの状態だと。
実行待機の状態になってしまいます。なので、次のコード
を書きました。

--------------
Sub StopMove()
Rem 実行を停止する

Call Application.OnTime(TimeValue("8:17:43"), "time1", , False)

End Sub
--------------

命令したのと全く同じ命令をストップさせてあげることが
重要なポイントです。

それでは、また!