VBAでのタグ取得（Children）の方法に関する質問について

Question

VBAでタグの中身を取得したいと思ってVBAを組んでいます。
HTMLの構造を見ると、下記の構造が複数並んでいました。

<div class="Name"><a class="js_A" href="B" target="_blank"><div class="C"><img onerror="this.src='http://AAA.jpg';" alt="D" src="http://BBB.jpg"></div><p>取得したいTEXT1</p><p>取得したいTEXT2</p></a></div>

このようなHTML構造のWebサイトから、取得したいTEXT1と取得したいTEXT2を順に取得したいと考えています。

Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document

Dim name As IHTMLElementCollection
Set name = htmlDoc.getElementsByClassName("Name")

dim i as long
for i =0 to name.length-1

debug.print name(i).children(1)

というように、classで絞ってChildrenで拾いに行こうとしましたが、
[object HTMLDivElement]
と記載されるのみで取得したいテキストが取得できません。

取得したいテキストを取得するのに良い手段をアドバイスいただけませんでしょうか。

Comments

[mattn]

上の HTML のどの部分のテキストが必要でしょうか？

[kazupop]

Ｐタグで囲われている「取得したいテキスト1」と「取得したいテキスト2」になります。

Answer 1

一括で取りたい場合

Set doc = IE.Document
Set names = doc.getElementsByClassName("Name")
WScript.Echo names(0).TextContent

Set doc = IE.Document
Set names = doc.getElementsByClassName("Name")
For Each a In names(0).Children(0).Children
  If a.NodeName = "P" Then
    WScript.Echo a.TextContent
  End If
Next

.Document.getElementsByName で取れますが、HTML 構造によっては期待した通りに取れないのであえて Children 使っています。

Comments

[kazupop]

ありがとうございます。別の質問で恐縮ですが、取得したいテキスト1と取得したいテキスト2を別に取得する方法はありますでしょうか？

[mattn]

追記しました。

[kazupop]

ありがとうございます一括取得はできましたが、個別のほうはできませんでした。ちょっと色々と試してみます。もしわからなければ別建てしますので、その時はよろしくお願いいたします。