Excel VBA でIEを動かす：getElementsByTagNameでエラー

#Excel VBA でIEを動かす：getElementsByTagNameでエラー

前提・実現したいこと

いつも参考にさせていただいています。
vbaでieをコントロールする、ということに挑戦しています。
いきなり入り口で躓いています。お助け願えたらありがたいです。

発生している問題・エラーメッセージ

下記コードで実行時エラーになります。
Set coll = doc.getElementsByTagName("BODY")

実行時エラー１３
型が一致しません

該当のソースコード

Excel vba

Public Sub IE基本_オープン待ち_指定タグ()
Dim ie As New InternetExplorer
With ie
.Navigate "http://office.microsoft.com/ja-jp/"
.Visible = True

    While .Busy = True Or .ReadyState < READYSTATE_COMPLETE
        DoEvents
    Wend
End With

Dim doc As HTMLDocument
Dim coll As HTMLElementCollection
Set doc = ie.Document
Set coll = doc.getElementsByTagName("BODY")

While coll.lentgh <= 0
    DoEvents
Wend
MsgBox "指定URLを開きました"

End Sub

初心者で申し訳ありませんが、ご教示をお願いいたします。

補足情報（FW/ツールのバージョンなど）

win10
Excel 2016

行動規範の内容に同意します

回答1件

ベストアンサー

下記でエラーなく動作しました。
質問のコードのURLだとエラーになるので、googleのURLでテストしました。
あと、HTMLElementCollectionをIHTMLElementCollectionに変更しました。

vba
1Public Sub IE基本_オープン待ち_指定タグ()
2    Dim ie As New InternetExplorer
3    With ie
4        .navigate "https://www.google.com/?hl=ja"
5        .Visible = True
6
7        While .Busy = True Or .readyState < READYSTATE_COMPLETE
8            DoEvents
9        Wend
10    End With
11
12    Dim doc As HTMLDocument
13    Dim coll As IHTMLElementCollection '修正
14    Set doc = ie.document
15    Set coll = doc.getElementsByTagName("body")
16    While coll.Length <= 0
17        DoEvents
18    Wend
19    MsgBox "指定URLを開きました"
20
21End Sub