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

Question

#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

Answer 1

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

Public Sub IE基本_オープン待ち_指定タグ()
    Dim ie As New InternetExplorer
    With ie
        .navigate "https://www.google.com/?hl=ja"
        .Visible = True

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

    Dim doc As HTMLDocument
    Dim coll As IHTMLElementCollection '修正
    Set doc = ie.document
    Set coll = doc.getElementsByTagName("body")
    While coll.Length <= 0
        DoEvents
    Wend
    MsgBox "指定URLを開きました"

End Sub

HTMLElementCollectionとIHTMLElementCollectionのようにIがあるかないかの違いは、下記の回答が参考になるでしょう。

VBAにおけるWebスクレイピングで、HTMLElementやIHTMLElementなど違いが... - Yahoo!知恵袋

Comments

[MickeyFlower]

ありがとうございました！動きました！
HTMLElementCollectionをIHTMLElementCollectionに変えて動くこと、ほんのさっき別のサイトで知りました。
が、その違いがよくわかりませんでした。
差し支えなければ、違いを教えていただけませんでしょうか？

[hatena19]

参考リンクを回答に追記しました。

[MickeyFlower]

ありがとうございます。そこを読んでたんですが、目が滑ってました・・・。
じっくり読んで、理解に努めます。
ありがとうございました！