VBAで、特定の子要素の文字列とマッチしたときに、ボタンを押してページ遷移させたい。

Question

該当のソースコード

<div>
   <table>
      <tbody>
         <tr>
            <td>
            <table></table>
            <span>TD文字列</span>
            </td>
            <td></td>
            <td></td>
            <td></td>
            <td><input onclick="onclick"; return false;" type="button" value="表示"></td>    
         </tr>
      </tbody>
   </table>
   <table>
      <tbody>
         <tr>
            <td>
            <table></table>
            <span>TD文字列2</span>
            </td>
            <td></td>
            <td></td>
            <td><input onclick="onclick"; return false;" type="button" value="表示"></td>    
         </tr>
      </tbody>
   </table>
   <table>
      <tbody>
         <tr>
            <td>
            <table></table>
            <span>TD文字列3</span>
            </td>
            <td></td>
            <td></td>
            <td></td>
            <td><input onclick="onclick"; return false;" type="button" value="表示"></td>    
         </tr>
      </tbody>
   </table>
   <table>
      <tbody>
         <tr>
            <td>
            <table></table>
            <span>TD文字列4</span>
            </td>
            <td></td>
            <td></td>
            <td></td>
            <td><input onclick="onclick"; return false;" type="button" value="表示"></td>    
         </tr>
      </tbody>
   </table>
   <table>
      <tbody>
         <tr>
            <td>
            <table></table>
            <span>TD文字列5</span>
            </td>
            <td></td>
            <td></td>
            <td></td>
            <td><input onclick="onclick"; return false;" type="button" value="表示"></td>    
         </tr>
      </tbody>
   </table>
</div>

VBAのスクレイピングについてです。

特定の文字列（TD文字列)が、「上記tableのtdの中のspanの文字列と一致したとき、
同じ行にあるtdのボタンを押すようにする」というのが目的です。
実際には外側にも内側の何箇所かにもtableがあり、階層がとても深いです。
*idタグも無いため直接潜ることもできない状況です。
ご教授の程宜しくお願いいたします。

Answer 1

一つの行に、span要素とinput要素が一つずつあるということなら、下記のような感じでしょうか。

Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
 
Dim colTR As IHTMLElementCollection
Set colTR = htmlDoc.getElementsByTagName("tr")
 
Dim elTR As IHTMLElement
For Each elTR In colTR
	If elTR.getElementsByTagName("span")(0).InnerText = "TD文字列" Then
        elTR.getElementsByTagName("input")(0).click
        Exit For
    End If
Next el

参照設定
Microsoft HTML Object Library
Microsoft Internet Controls

Comments

[te432]

ありがとうございます。
無事動作するようになりました。