現在開いている全てのIEのURLのタイトルを取得し

質問

現在開いている全てのIEのURLのタイトルを取得したいのですが

Sub test()
Dim shl As Object
Dim wnd As Object
Dim doc As Object
Dim frg As Boolean

Set shl = CreateObject("Shell.Application")

For Each wnd In shl.Windows()
If TypeName(wnd.Document) = "HTMLDocument" Then

Set doc = wnd.Document
Debug.Print doc.Title

Set doc = Nothing
End If
Next

Set shl = Nothing

End Sub

このコードが
If TypeName(wnd.Document) = "HTMLDocument" Then
でエラーになる時とならない時があります。

エラーになる時は、
実行時エラー　-2147467259
’Document’メソッドは失敗しました：'IWebBrowser２'オブジェクト
となります。

エラーが発生する時としない時の違いが分かりません。
そもそもどういう意味のエラーでしょうか？

IE11、オフィス２０１０です。

回答No.1

kumatti1 · ベストアンサー

＞If TypeName(wnd.Document) = "HTMLDocument" Then

FullNameプロパティの方で判定されるとか。
If Dir$(wnd.FullName) = "iexplore.exe" Then

お礼

回答ありがとうございました。