| |
▼カド さん：
こんばんは。
>
>教えていただいたコードをそのまま実施してみましたが、
>無限ループとなり処理が終わりません。
>
>原因は分かりません。
>お分かりでしたら、教えてください。
Excel2000では作動していますが・・・。
まず、Reload1とmySubというプロシジャーは、
同じ標準モジュールに記述しています。
私のＰＣで作動して、カドさんの方で作動しない、で思いついたのは
こんなところですが・・・。
'====================================
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
再度確認して下さい。
|
|
ichinose
- 04/3/11(木) 18:04 -
