VBAでHTMLのClass下にあるClassを抽出する際の記述が分かりません。

Question

閲覧頂きありがとうございます。
VBAで下記の様なHTMLから「Class=EEE」にある値を抽出したいのですが、「Class=EEE」が複数ある為「getElementsByClassName("EEE").innerText」だけでは取得できません。
どの様に記述すればよいですか？

<Class=AAA>
   <Class=BBB>
      <Class=EEE>
   <Class=CCC>
      <Class=EEE>
   <Class=DDD>
      <Class=EEE>

追記
すいません、質問の書き方を簡略化し過ぎて何をしたいかが抜けていました。
「getElementsByClassName("EEE")(0).innerText」で最初の「Class=EEE」のテキストを抽出はできます。
・「Class＝BBB」下にある「Class=EEE」
・「Class＝CCC」下にある「Class=EEE」 etc...
特定のclass下にある「Class=EEE」を抽出したい、と書くべきでした。

IDを利用しても特定できるのでしょうか。
確かに上層にIDはありますが、先に記載したclass群を全て含んでしまっています。

<id=XXX>
   <Class=AAA>
      <Class=BBB>
         <Class=EEE>
      <Class=CCC>
         <Class=EEE>
      <Class=DDD>
         <Class=EEE>

Comments

[m.ts10806]

AAA,BBBなどをclassではなくIDにはできませんか？できるならchildrenを使って子要素取得が容易にできるはずなのですが・・・

Answer 1

コレクションを返しますので、添え字を付けて各要素にアクセスします。VBAの場合は、添え字は()で囲みます。

    '0番目のデータ
    Debug.Print ie.Document.GetElementsByClassName("EEE")(0).innerText

全要素にアクセスする場合は、ループさせます。For Each を使うと簡単です。

Dim elm As Object
For Each elm In ie.Document.getElementsByTagName("EEE") 
    Debug.Print elm.innerText
Next

追記に対する回答

・「Class＝BBB」下にある「Class=EEE」

For Each を入れ子にすればいいでしょう。

Dim elmB As Object
Dim elmE As Object


For Each elmB In ie.Document.getElementsByTagName("BBB")
    For Each elmE In elmB.Document.getElementsByTagName("EEE")
        Debug.Print  elmE.innerText
    Next
Next

・「Class＝BBB」下にある「Class=EEE」
・「Class＝CCC」下にある「Class=EEE」

「Class=EEE」が「Class＝BBB」「Class＝CCC」の直下にあることが保証されているなら、
parentElement を使ってもいいですね。

Dim elm As object

For Each elm In ie.Document.getElementsByTagName("EEE")
    Select Case elm.parentElement.GetAttribute("className") 
    Case "BBB", "CCC"
        Debug.Print elmE.innerText
    End Select
Next

Comments

[Yukiyama7.4]

回答ありがとうございます。
取り敢えずこの方法で試して、結果が出次第報告させて頂きます。

[Yukiyama7.4]

回答ありがとうございました。
1つ目のコードを参考に無事望む動作のコードができました。

Answer 2

GetElementsByClassName("EEE")

HTMLドキュメント内の指定したclass属性の要素オブジェクトのコレクションを返す。

GetElementsByClassName("EEE").innerText

だと、コレクションのプロパティinnerTextを呼び出してる。

個別要素取りたければ、添え字つける。

// 0番目のデータ
GetElementsByClassName("EEE")[0].innerText

roopとかつかって全要素とる方がいいとは思います。