VBSでとある条件の時に処理をやらずに終了させる方法

質問

VBSでとある条件の時に処理をやらずに終了させる方法で悩んでいます。

Dim ObjIE
Dim ObjShell
Dim ObjWindow
Dim WinExist

WinExist = False
Set ObjShell = CreateObject("Shell.Application")
For Each ObjWindow In ObjShell.Windows
If TypeName(ObjWindow.Document) = "HTMLDocument" Then
WinExist = True
Set ObjIE = ObjWindow
End If
Next
Set ObjShell = Nothing

If Not WinExist = True Then
Set ObjIE = CreateObject("InternetExplorer.Application")
End If
・
・
・
・

例えばこのように起動しているIEを探します
そこでもしYahoo！JAPANが起動していたら以降の処理をやらずに終わらせたいのですが・・・
どのような記述にすればよいでしょうか？

回答No.1

redfox63 · ベストアンサー

お使いのコードを呼び出す部分と呼び出される部分に分けて作りましょう

現在のコードを
Sub Macro1
現状のコード
End Sub
といった具合にします

Call Macro1
などで呼び出す部分を作ります

特定の条件下で処理を中断したいならその条件が成立した場合に
実行されるIF文の中で適切な処理をした後
Exit Sub
を実行しましょう

Sub Macro1
　　dim n
　　for n = 0 to 20
　　　　if n = 15 then
　　　　　　exit sub
　　　　end if
　　　　WScript.Echo n
　　next
End Sub

Call Macro1
といった具合ですとnが 0から14までは表示されますが 15になった時点で処理を中断します