Internet Explorerの起動状態をチェックするコードを作成しましたが、Set myIE = myShellwindows の箇所でエラーが発生します。このエラーを防ぐ方法を教えてください。
Internet Explorerの起動状態をチェックするVBAコードで、Set myIE = myShellwindows の行でエラーが発生します。このエラーを回避する方法を教えてください。
Internet Explorerの起動状態を確認するために作成したコードで、Set myIE = myShellwindows の部分でエラーが発生します。このエラーを回避するにはどのようにすればよいですか？
Internet Explorerの起動状態をチェック
IEが起動中の時はそれを使い、未起動の場合は新規に作成する、、、というのがしたくて次のようなコードをつくってみました。
ところが、 Set myIE = myShellwindows のところでエラーになります。
これを防ぐにはどのようにするといいのでしょうか?
Sub Set_IE()
Dim myIE As Object
Dim myShellwindows As Object
Dim myObject As Object
Dim Flag As Boolean
Set myShellwindows = CreatmyObject("Shell.Application").Windows()
Flag = False
For Each myObject In myShellwindows
If TypeName(myObject) = "IWebBrowser2" Then
Flag = True
Exit For
End If
Next
If Flag = True Then
Set myIE = myShellwindows
Else
Set myIE = CreatmyObject("InternetExplorer.application")
myIE.Visible = True
End If
Set myShellwindows = Nothing
Set myIE = Nothing
End Sub
お礼
早速どうもありがとうございました。 解決しました。m(__)m