|
▼カド さん:
こんばんは。
>
>教えていただいたコードをそのまま実施してみましたが、
>無限ループとなり処理が終わりません。
>
>原因は分かりません。
>お分かりでしたら、教えてください。
Excel2000では作動していますが・・・。
まず、Reload1とmySubというプロシジャーは、
同じ標準モジュールに記述しています。
私のPCで作動して、カドさんの方で作動しない、で思いついたのは
こんなところですが・・・。
'====================================
Private end_flg As Boolean
'====================================
Sub Reload1()
end_flg = False
Application.OnTime Now(), "mySub"
Do While end_flg = False
DoEvents
Loop
ThisWorkbook.Close SaveChanges:=True
End Sub
'=======================================
Sub mySub()
MsgBox "mySubを実行しています"
end_flg = True
End Sub
再度確認して下さい。
|
|