北海道札幌市からお届けする。
にしの夫妻によるブログ、にしのクエスト２です。
ちょっと思いついたことや、便利だなって思ったことを
気ままに書いてみたいと思います。まめ電機のコーナー
です。
エクセルマクロを時間になったら・・・
やりましたね。第１回でエクセルを起動して。決められ
た時間になったら何かを起動するマクロを書いてみまし
た。
こちらがコードになります・・・
---------
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
--------------
命令したのと全く同じ命令をストップさせてあげることが
重要なポイントです。
それでは、また！
