VBでのContinueが間違っているとき
http://oshiete1.goo.ne.jp/qa4564345.htmlではありがとうございました。
教わったことを参考にやってみたのですがうまくいきません。
Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・
Option Explicit
Dim objIE
Dim objShell
Dim objWindow
Dim WinExist
Dim strURL
Dim strURL2
Dim Flug
strURL = "http://www.yahoo.co.jp/"
strURL2 = "http://www.google.co.jp/"
WinExist = False
Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows
If TypeName(objWindow.Document) <> "HTMLDocument" Then
Continue
End If
WinExist = True
Set objIE = objWindow
If objIE.LocationURL = strURL Then
Flug = True
Exit For
End If
Next
If Flug = True Then
msgbox "ヤフー存在"
Else
msgbox "別の処理を行なう"
If WinExist = False Then 'IEが無い場合 起動する
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate strURL2
objIE.Visible = True
Set objIE = Nothing
End If
End If
お礼
回答ありがとうございます。 作曲者の死語50年(?)で著作権がきれるみたいな話を聞いたことがあります。 そういうことなんですね、ありがとうございます