「一定の時間間隔で5秒毎にマクロを実行する」

質問

http://okwave.jp/qa/q8690800.html
の続きです。ご指摘のとおりコードを改変しました。

startはばっちり動いたのですが、stopが命令を受け付けてくれなくて
「Ontimeメソッドは失敗しました。Applicationオブジェクト」とでます。
何か原因があるのでしょうか。ご指摘よろしくお願いします。

Sub t_start()
Call last20txt
End Sub

Sub t_stop()
Application.OnTime earliesttime:=tt, procedure:="last20txt", Schedule:=False
End Sub

-------------------------------------------
下記Call先です。

Sub last20txt()
Dim Srg As Range
Dim kensu As Long

Set Srg = Cells(1, 1)
Workbooks.Open ("C:***.csv")
kensu = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(kensu - 19, 1), Cells(kensu, 4)).Copy Srg
ActiveWorkbook.Close

Dim wt As Date
Dim tt As Date

tn = Now()
tt = tn + TimeValue("00:00:05") '5秒後
wt = TimeValue("00:00:02") 'インターバル2秒
Application.OnTime tt, "last20txt", wt

End Sub

回答No.1

kybo · ベストアンサー

「Dim tt As Date」はモジュールの先頭。プロシージャの外に記述してください。

Dim tt As Date

Sub t_start()
Call last20txt
End Sub

Sub t_stop()
Application.OnTime earliesttime:=tt, procedure:="last20txt", Schedule:=False
End Sub

Sub last20txt()
Dim Srg As Range
Dim kensu As Long

Set Srg = Cells(1, 1)
Workbooks.Open ("C:***.csv")
kensu = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(kensu - 19, 1), Cells(kensu, 4)).Copy Srg
ActiveWorkbook.Close

Dim wt As Date

tn = Now()
tt = tn + TimeValue("00:00:05") '5秒後
wt = TimeValue("00:00:02") 'インターバル2秒
Application.OnTime tt, "last20txt", wt

End Sub

参考URL：

http://officetanaka.net/excel/vba/variable/05.htm

お礼

ばっちりできました。
ありがとうございました。
またよろしくお願いします。