複数開いたWebページから特定のサイトを選択

Question

御世話になってます。
今、複数開いたIEのWebページからタイトルを利用して
特定しそれを選択したいのですが、下記のエラーがでて
困っています。
お分かりの方おられましたら、ご教示下さい。

エラー名
オートメーションエラーです。
システムコールに失敗しました。

Sub Select_window_get()
Dim colSh As Object
Dim objIE As InternetExplorer
Dim win As Object
Set colSh = CreateObject("Shell.Application")

Sleep(1500)

For Each win In colSh.Windows
    '開いているすべてのウインドウに対して処理する
    If TypeName(win.document) = "HTMLDocument" Then⇒ここでエラー
        '開いているファイルの種類がHTMLなら処理を実行する
        If InStr(win.document.Title, "メルカリ") > 0 Then
            '開いているファイルの「タイトル」にメルカリが含まれているなら
            Set objIE = win
            'このウインドウをobjIEとして指定する
            Exit For
        '処理を中断してFor~Nextを終了する
        End If
    End If
Next

If objIE Is Nothing Then 'ウインドウが見つからなければ
　　　MsgBox "入力するページが見つかりません"  'メッセージを表示して
　　　Exit Sub '処理を終了する
End If

End Sub

Answer 1

検査するオブジェクトがIEであるかどうか、分岐を入れてみてはいかがでしょうか。

    '開いているすべてのウインドウに対して処理する
    If TypeName(win.document) = "HTMLDocument" Then⇒ここでエラー
        '開いているファイルの種類がHTMLなら処理を実行する
        If InStr(win.document.Title, "メルカリ") > 0 Then
            '開いているファイルの「タイトル」にYahooが含まれているなら
            Set objIE = win
            'このウインドウをobjIEとして指定する
            Exit For
        '処理を中断してFor~Nextを終了する
        End If
    End If

↓

    If win.Name = "Internet Explorer"
        '開いているすべてのウインドウに対して処理する
        If TypeName(win.document) = "HTMLDocument" Then⇒ここでエラー
            '開いているファイルの種類がHTMLなら処理を実行する
            If InStr(win.document.Title, "メルカリ") > 0 Then
                '開いているファイルの「タイトル」にYahooが含まれているなら
                Set objIE = win
                'このウインドウをobjIEとして指定する
                Exit For
            '処理を中断してFor~Nextを終了する
            End If
        End If
    End If

Comments

[Nitta]

どうも、上手く行きません！
やり方が間違ってるんですかね？

[kokemomo.sour]

お力になれずすいません。。
ちなみに、For Eachの直前に

On Error Resume Next

と入れてみると、意図した動きになりますでしょうか。

[Nitta]

なりません！何故にこのようになるのか？

[kokemomo.sour]

ありがとうございます。
変わらず、エラーとなりますか？
それとも、実行結果が意図したものとならない形でしょうか。

If InStr(win.document.Title, "メルカリ") > 0 Then
'開いているファイルの「タイトル」にYahooが含まれているなら

こちらの部分、コメントに記載してある内容と実際に検索しているタイトルとに剥離があるようですが、
問題ないでしょうか。

[Nitta]

返信ありがとうございます。
修正しました。後、エラー内容が変わりました(泣)
このエラー結構厄介なものらしいです!!

[kokemomo.sour]

本当に申し訳ないのですが、原因わからずお力添え難しそうです。。
ただ、私の環境ですとエラーなく実行することができました。
もしも可能であれば他の端末で試してみてはいかがでしょうか。