オブジェクト変数またはwith ブロック変数が設定されていません。

Question

excel VBA で以下のようなエラーが出ました。

どのようにすれば解決しますでしょうか？どうぞよろしくお願いします。

「実行時エラー９１ オブジェクト変数またはwith ブロック変数が設定されていません」

Sub テーブルタグ取得()
    Dim myIE As New InternetExplorer
    Dim myLink As HTMLAnchorElement
    
    With myIE
        .Visible = True
        .navigate Range("B44").Value
        Do While .Busy Or .readyState <> READYSTATE_COMPLETE
        Loop
        
        Dim htmlDoc As HTMLDocument
        Set htmlDoc = myIE.document
        Dim colTR, colTH, colTD As IHTMLElementCollection
        Set colTR = htmlDoc.getElementsByTagName("tr")
        
        Dim el As IHTMLElement
        For Each el In colTR
    
            Set colTH = el.getElementsByTagName("th")
            Set colTD = el.getElementsByTagName("td")
            
            Debug.Print colTD(0).innerText
            
        Next el
        
        
    End With

End Sub

どうぞよろしくお願いします。

Comments

[kaz.Suenaga]

エラーで止まるのはどの行でしょうか。

[退会済みユーザー]

エラーは　Debug.Print colTD(0).innerText　の行でおこっています。

他の方法を考えたいと思います。

Answer 1

他の方法で解決しました。

ご協力ありがとうございました。

Comments

[coco_bauer]

あとから見る人の参考になるように、どのような方法で解決したのかを書いてください。

Answer 2

実行環境やエラーの発生個所が記載されていないので回答が難しいです。

・お使いの環境のOS,Excel,IEなどのバージョンは何を利用していますか？
・エラー内容はわかりましたが、それはどの行で発生していますか？

なお、当方の環境(Windows7,Office2010,IE11)では、提示いただいたコードでエラーなく動作しました。
動作させるに当たり、下記２つの参照設定を追加しています。
・Microsoft HTML Object Library
・Microsoft Internet Controls

参考になれば幸いです。

Comments

[退会済みユーザー]

ご指摘ありがとうございます。こちらの環境はwindows10 excel2016 ieは最新です。

エラーは　Debug.Print colTD(0).innerText　の行でおこっております。

他の方法でやってみようと思います。

Answer 3

Internet explorerのオブジェクトを作るコードが間違っているからだと思います。

Dim myIE As New InternetExplorer

この宣言だけではmyIEに値は入りません。
値が入っていないmyIEを with で使ったために、「with ブロック変数が設定されていません」というエラーになったのでしょう。

下のような修正をすれば、動作するようになるはずです。試してみてください。

    '' Dim myIE As New InternetExplorer の行(質問のコードの２行目)を下の行で置き換える。
    Dim myIE As Object  
 
    'そして、IEを起動（IEのオブジェクトを作る）するコード(下の行)を"With myIE"の行(質問の行の５行目)の上に追加する。
    Set myIE = CreateObject("InternetExplorer.Application")

Comments

[退会済みユーザー]

解答ありがとうございます。

ですが解決には至りませんでした、ありがとうございました。

[coco_bauer]

何が解決して、どんな問題が残りましたか？

[退会済みユーザー]

解決はしておりません、エラーのままです。

他の方法をやってみようと思います。