VBAスクレイピング 特定クラスの判別について

Question

VBAスクレイピングについて勉強しており、ご教授頂けましたら幸いです。

ページ内の情報収集にて、
ループ内で特定classの場合（boxBの時）、
処理を分けたいのですが、わからない状態に陥ってしまいました。
ループ内で複数クラスがある時の特定クラスの処理を教えて頂きたく思い、投稿いたしました。
何卒よろしくお願いいたします。

◎HTML

<main id="main">
    <div class="boxA">
        ～中身～
    </div>
    <div class="boxA">
        ～中身～
    </div>
    <div class="boxA boxB">
        ～中身～
    </div>
    <div class="boxA boxB boxC">
        ～中身～
    </div>
    ....
</main>

◎コード（ちょっとコード抜粋したのでこのままだとエラーでちゃいます。すいません。）

Sub main()
Dim driver As New Selenium.WebDriver
Const Fpath As String = "//*[@id='main']/div["
Dim boxcount As Long: boxcount = driver.FindElementsByClass("boxA").Count
Dim bcnt As Long
Dim excel_column As Long
Dim excel_ws As Worksheet: Set excel_ws = Worksheets("Sheet2")
    With excel_ws
        excel_column = excel_ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
        For bcnt = 1 To boxcount
            .Cells(excel_column + bcnt + 1, 1) = bcnt

'ここがわからないです <--
            If driver.FindElementByXPath(Fpath & bcnt & "]").Attribute("Class") = "boxB" Then
                .Cells(excel_column + bcnt + 1, 2) = "boxB"
            Else
                .Cells(excel_column + bcnt + 1, 2) = "boxA"
            End If
'ここがわからないです -->

        Next bcnt
    End With

    driver.Quit
End Sub

Answer 1

お早い回答ありがとうございます。
Like演算子、勉強不足でした。
大変助かりました。

無事、解決しました、ありがとうございます！

Answer 2

driver.FindElementsByClass("boxA")
で要素の配列(コレクション)を取得出来ているので、それをFor Eachループされればいいのでは。

あと、クラスに boxB が含まれているかどうかは Like演算子で部分一致比較することになると思います。

下記のような感じで。（動作確認はしてません。）

Sub main()
    Dim driver As New Selenium.WebDriver
    Dim boxAs: boxAs = driver.FindElementsByClass("boxA")
    
    With Worksheets("Sheet2")
        Dim last_column As Long: last_column = .Cells(Rows.Count, 1).End(xlUp).Row
        Dim bcnt As Long: bcnt = 1
        Dim boxA As Selenium.WebElement
        For Each boxA In boxAs
            .Cells(last_column + bcnt, 1) = bcnt
            If boxA.Attribute("Class") Like "*boxB*" Then
                .Cells(last_column + bcnt, 2) = "boxB"
            Else
                .Cells(last_column + bcnt, 2) = "boxA"
            End If
            bcnt = bcnt + 1
        Next
    End With

    driver.Quit
End Sub

Comments

[kajiji]

お早い回答ありがとうございます。
Like演算子、勉強不足でした。
大変助かりました。

無事、解決しました、ありがとうございます！