VBAでhtmlのclassの取得

Question

    Dim objTable As Object
    For Each objTable In objIE.document.getElementsByTagName("table")
        If InStr(objTable.document.getElementsByClassName, "specs-table") > 0 Then
            Debug.Print objTable.Cells(0).outerHTML
            Exit For
        End If
    Next

やりたいこと
Webページのtableを総なめして該当のclassを持つtableのみ処理を行いたい

環境
Windows10
Excel2010
IE11

起きている問題
Class名がうまく取得できず判定がうまくいかない

objTable.document.getElementsByClassName(0)など引数を入れてもダメでした。

ここのWebページのtableの要素を取得したい

Comments

[m.ts10806]

現在のコードに起きている現象や問題は何でしょうか。https://teratail.com/help/question-tips#questionTips3-4

Answer 1

classの値を取得する場合はgetElementsByClassNameではなくgetAttributeを使います。
今回の場合は

If InStr(objTable.getAttribute("class"), "specs-table") > 0 Then

でしょうか。

Comments

[sobue]

取得できました。が疑問が残ります。
いつ「getElementsByClassName」を使用するのでしょうか？

[退会済みユーザー]

クラス名からエレメントを取得したいときです。
ちょうどgetElementsByTagNameで任意のタグに該当するエレメントを取得しているように、任意のクラス名に該当するエレメントを取得できます。getAttributeとは役割がまったく違います。

ですので、今回のケースでは、最初からgetElementsByClassName("specs-table")とすればよかったかもしれません。ただし、そのクラス名がtableタグ以外に割り当てられている可能性もありますので……。

あと、ページによっては使えないこともありますが、querySelectorAllというのが便利ですので、ご存知なければ調べてみてください。

Answer 2

記載を全面的に見直しました。For Next の入れ子で取得できないでしょうか。

Dim objTable1 As Object
Dim objTable2 As Object
    
For Each objTable1 In objIE.document.getElementsByTagName("table")
    For Each objTable2 In objTable1.getElementsByClassName("specs-table")
        Debug.Print objTable2.outerHTML
    Next objTable2
Next objTable1

Comments

[sobue]

メソッドがサポートされていませんとでました。

[TanakaHiroaki]

For Next の入れ子で取得できないでしょうか。回答の見直しを行いました。

[sobue]

取得できませんでした

[TanakaHiroaki]

大変失礼しました。
denchiさんの回答で取得できたとのことなので、解決済ですね。