vba - VBAコードを使用してtrからすべてのtdを取得

Question

オブジェクトであり、td を持つ tr があります。別のオブジェクト変数 tblTD ですべての td を取得したいと考えています。そのために私は使用しSet tblTD = tr.getelementsbytagname("td")ました。しかし、tblTDの長さを確認すると、0と表示されます。誰かがこれを行う方法を提案できますか? 添付の画像を参照してください。ありがとう！

Answer 1

関数で設定trしたgetElementsByTagName場合は、各 tr オブジェクトを反復処理して、子 td オブジェクトを取得する必要があります (または、単一のオブジェクトを参照することもできます)。

Dim td As MSHTML.IHTMLElementCollection
Dim tr As MSHTML.IHTMLElementCollection
Dim trObj as MSHTML.HTMLGenericElement
Dim tdObj as MSHTML.HTMLGenericElement

Set tr = HTMLDoc.getElementsByTagName("tr")
For Each trObj In tr
    Set td = trObj.getElementsByTagName("td")
    For Each tdObj in td
        'do something with each td object'
    Next
Next