VBA タグの中からCLASS名を取得する(IE使用)

Question

VBAの初歩的な質問ですが、どなたか教えていただきたく。
本来ならタグの中(hmtlタグやdivタグ)の中のclassをIEから取得したいのですが、
うまく取得できません。以下の様に書きました。

例えばdivタグの中のclassを取得してクラス名が以下なら
c-contentsSpecificationsInnerRightList_check
1をそれ以外なら0にしたいです。方法をどなたか教えていただきたく。お願いします。

For Each dl_i In mainListArea3.getElementsByclassName("c-contentsSpecificationsInnerRightList_check")

If dl_i.getAttribute("className") = "c-contentsSpecificationsInnerRightList_check" Then
outputSheet.Cells(writerow, 12).Value = 1
Else
outputSheet.Cells(writerow, 12).Value = 0
End If

writerow = writerow + 1

Next dl_i

Comments

[退会済みユーザー]

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14244520149?__ysp=Yy1jb250ZW50c1NwZWNpZmljYXRpb25zSW5uZXJSaWdodExpc3RfY2hlY2s%3D

https://teratail.com/help#posted-otherservice
＞teratailでは、マルチポスト※の推奨はしていません。
やむを得ず複数のサイトに質問を投稿された場合は、質問内容にマルチポストをする理由を書き、他のサイトの投稿へのリンクを貼ってください。また、解決した際には必ずteratail及びすべての投稿に解決した旨と、どのように解決したかを記載してください。

また、teratail上で誤って同じ質問を複数投稿してしまった場合は、質問の削除リクエストを送ってください。

※「マルチポスト」とは、同じ内容の文章を複数のQ&Aサイトや掲示板などへ投稿することです。

以上、ご対応ください。

[masa1111]

YAHOOサイトを取り消しました。

Answer 1

getElementsByclassName("c-contentsSpecificationsInnerRightList_check") はクラス名が"c-contentsSpecificationsInnerRightList_check" の要素を取得します。
If dl_i.getAttribute("class") = "c-contentsSpecificationsInnerRightList_check" Thenとクラス名をチェックしても常にTrueになります。

HTMLが提示されていない上にコードも一部の抜粋ですので、的確な回答は難しいですが、
mainListArea3内のdivタグをすべて調べて、クラス名が"c-contentsSpecificationsInnerRightList_check"なら1，そうでないなら0をセルに出力していくということなら、

For Each dl_i In mainListArea3.GetElementsByTagName("div")

    If dl_i.getAttribute("className") = "c-contentsSpecificationsInnerRightList_check" Then
        outputSheet.Cells(writerow, 12).Value = 1
    Else
        outputSheet.Cells(writerow, 12).Value = 0
    End If

    writerow = writerow + 1

Next dl_i

Comments

[masa1111]

ありがとうございます。ただこちらの質問の仕方が悪かったかもしれません。
For Each dl_i In mainListArea3.getElementsByclassName("c-contentsSpecificationsInnerRightList_check")
上記部分のfor文は変更したくなく、

if文以降で、divタグの中のclass名(c-contentsSpecificationsInnerRightList_check)があるか否かを
書きたいと思っておりました。その際の書き方がわからず、教えていただきたく。

以上、よろしくお願いいたします。

[hatena19]

If dl_i.getAttribute("class") = "c-contentsSpecificationsInnerRightList_check" Then

か

If dl_i.className = "c-contentsSpecificationsInnerRightList_check" Then

でどうでしょう。
ただし、回答に書きましたが、かならずTrueになりますけど。

[masa1111]

回答ありがとうございます。こちらでdivタグの中のclass名を取得することになっているのでしょうか？
確かに自分のPRGで実施しても全てTRUEになってしまします。。

＜ただし、回答に書きましたが、かならずTrueになりますけど。

こちらどういう意味でございますか？

以上、よろしくお願いいたします。

[hatena19]

各コードの意味を理解すれば分かることです。

getElementsByclassName(クラス名) は指定したクラス名を持つ要素のコレクション(複数の要素の集合)を取得します。

For Each dl_i In コレクション はコレクションから一つの要素の順に取り出します。
その取り出した要素は指定したクラス名を持っています。
よって dl_i ＝ "クラス名" は常にTrueになります。

「divタグの中のclass名を取得すること」ということがしたいのなら、上の回答のコードになります。

[masa1111]

そうなんですね。ありがとうございます。。！！