VBA - ローカルウインドウで調べた変数の型を、事前バインドで宣言すると実行できない

Question

As Objectで宣言した変数について、遅行バインド後の型を、ローカルウインドウで確認し、
その型を、事前バインドとして宣言したのですが、エラーとなりました。
なぜでしょうか。
疑問に思ったので、こちらで質問させていただきます。

---

具体事例を下記に記します。

コード１（下記HTMLからtdタグのinnertextを取得するコードです。）について、
・変数 Aとtdsを、どちらもAs Objectとして宣言
↓
・ステップイン実行時、ローカルで割り当てられた型を確認
変数Aは、型"HTMLTableRow"
変数tdsは、型"DispHTMLElementCollection"
↓
・変数宣言を、それぞれ下記のように変更しコード実行
Dim A As HTMLTableRow
Dim tds As DispHTMLElementCollection
↓
エラーがでる（「型が一致しません」）

念のため、
debug.Print TypeName(A)
debug.Print TypeName(tds)
で確認しましたが、どちらも型は上記で一致します。

---

#####ローカルウインドウの表示

---

######コード１

Dim X As String
X = "Apple"

Dim A As Object, tds As Object
For Each A In objIE.Document.getElementsByClassName("A")
    set tds = A.getElementsByTagName("td")
    If tds(0).innerText = X Then
        Msgbox tds(1).innerText
        Exit For
    End If
Next

######HTML

<tbody>
 <tr class = "A">
  <td class = "A-1" nowrap="...">
   <b>Apple</b>　■
  </td>
  <td style = "...">
   <span>りんご</span>　●
  </td>
 </tr>
 <tr class = "A">
  <td class = "A-1" nowrap="...">
   <b>Banana</b>　■
  </td>
  <td style = "...">
   <span>バナナ</span>　●
  </td>
 </tr>
・
・
・
</tbody>

Answer 1

HTMLTableRow, DispHTMLElementCollectionのような型は、VBAからは使えない（公開されていない）ようです。
HTMLTableRow型の代わりにIHTMLElementインタフェースを、
DispHTMLElementCollection型の代わりにIHTMLElementCollectionインタフェースを使うようにします。

Dim A As IHTMLElement
Dim tds As IHTMLElementCollection

単独のタグ要素場合はIHTMLElement、タグ要素のコレクションの場合はIHTMLElementCollectionを使う、といった感じでしょうか。

Comments

[koyamashinji]

いつもありがとうございます。
「公開されていない」というのは、Microsoft側でExcelの中にはコードとして作り込まれているが、オープンソースではないので、アクセスできない、という理解で間違ってないでしょうか。

[kenshirou]

> Microsoft側でExcelの中にはコードとして作り込まれているが、
「Excelの中」というよりは、「IEの中」というべきでしょうね。
「公開されていない」というのは、いわゆる変数のスコープがPublicでない（限られた領域のみ参照可能）と考えて頂ければ結構です。
通常、「Dim xxx As 」と入力した後に使用可能な型の候補が表示されますが、Microsoft HTML Object Libraryの参照設定を行っても、HTMLTableRow, DispHTMLElementCollectionの候補は出てきません。

推測として、おそらくDOMの仕様に基づき、個々のタグの要素を表すクラスが内部的に用意されているのでしょうが、外部からそれらすべてを利用できるようにするのは色々な意味で不都合・不便なのではないかと。

[koyamashinji]

非常に明快なご説明、有り難うございます。
いつも、大変助かっております。

Answer 2

Option Explicit

'Microsoft HTML Object Library　と
'Microsoft Internet Controls
'を参照設定すること

Sub test()
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer

    Dim X As String: X = "Apple"
    Dim A As HTMLTableRow
    Dim tds As HTMLElementCollection

    For Each A In objIE.document.getElementsByClassName("A")
        Set tds = A.getElementsByTagName("td")
        If tds(0).innerText = X Then
            MsgBox tds(1).innerText
            Exit For
        End If
    Next

End Sub

とりあえず、こうじゃないかな。。。
動作確認はしてません。