webbrowserで特定のタグを取得したい

質問

VB6もしくはVBAです。

HTMLの中をループしてタグを取得しています。
For Each myTag In myIE.Document.all.tags("TD")

次のようなHTMLがあって"このTD"に含まれるAタグを取得したい場合、
指定のTD内だけでループしてAタグを取得するにはどうしたらいいのでしょうか？

<table width="200" border="1">
<tr>
<td><a href="#">AAAAA</a><a href="#">AAAAA</a><a href="#">AAAAA</a></td> 'このTD
<td><a href="#">BBBBB</a><a href="#">BBBBB</a><a href="#">BBBBB</a></td>
<td><a href="#">CCCCC</a><a href="#">CCCCC</a><a href="#">CCCCC</a></td>
</tr>
<tr>
<td>DDDDD</td>
<td>EEEEE</td>
<td>FFFFF</td>
</tr>
<tr>
<td>GGGGG</td>
<td>HHHHH</td>
<td>IIIII</td>
</tr>
</table>

回答No.1

BLUEPIXY · ベストアンサー

実際に試してないのでできなかったらごめんなさい
Set aTags = myTag.getElementsByTagName("a")
のようにすればmyTag 配下のa タグ(コレクション)が取得できるはずです。
最初のTDだけでいいならループにしなくても
Set myTag = myIE.Document.all.tags("TD").Item(0)
で最初の TD を捕まえられます
なので
＞指定のTD内だけでループしてAタグを取得するにはどうしたらいいのでしょうか？
は
Set myTag = myIE.Document.all.tags("TD").Item(0)
Set aTags = myTag.getElementsByTagName("a")
for each a in aTags
MsgBox a.innerText
next
みたいな感じで取得できると思います。

お礼

早速ありがとうございます。

試してみて、報告させていただきます。

補足

ありがとうございました。動きました。

また、新しいテクがゲットできました。