オブジェクト変数またはwith ブロック変数が設定されていません。
退会済みユーザー
総合スコア0

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

```

どうぞよろしくお願いします。

Accepted Answer

他の方法で解決しました。

ご協力ありがとうございました。

Answer

実行環境やエラーの発生個所が記載されていないので回答が難しいです。

・お使いの環境のOS,Excel,IEなどのバージョンは何を利用していますか？
・エラー内容はわかりましたが、それはどの行で発生していますか？

なお、当方の環境(Windows7,Office2010,IE11)では、提示いただいたコードでエラーなく動作しました。
動作させるに当たり、下記２つの参照設定を追加しています。
・Microsoft HTML Object Library
・Microsoft Internet Controls

参考になれば幸いです。

Answer

Internet explorerのオブジェクトを作るコードが間違っているからだと思います。

```ここに言語を入力
Dim myIE As New InternetExplorer
```

この宣言だけではmyIEに値は入りません。
値が入っていないmyIEを with で使ったために、「with ブロック変数が設定されていません」というエラーになったのでしょう。

 下のような修正をすれば、動作するようになるはずです。試してみてください。
```Excel VBA
    '' Dim myIE As New InternetExplorer の行(質問のコードの２行目)を下の行で置き換える。
    Dim myIE As Object  
 
    'そして、IEを起動（IEのオブジェクトを作る）するコード(下の行)を"With myIE"の行(質問の行の５行目)の上に追加する。
    Set myIE = CreateObject("InternetExplorer.Application")
```