(VBA：Selenium)任意の文字で始まるClassの要素をExcelに貼り付けたい

①実現したいこと

VBAのSelenium(Webdriver)を使用し、price、もしくはpriceBの情報を抽出～Excelに貼付をしたいです。
ブラウザはEdgeになります。

該当のソースコードは④に記載致します。

②前提～発生している問題～試した事

下記の様にclass item-price+class priceで始まるタグ(price*?)での引用ですと、イメージが近い様に思えます。
以前にこちらでご教示を頂きました、.Attribute()を試しています。

Dim price

Set price = driver.FindElementsByClass("item-price")

For j = 1 To num ’→ num は変数で定義していますが、実際は48として機能しています。

Debug.Print "price(" & j & ")" & "=" & price(j).Text

'試した事_01：class="ico-off"など不要な要素が抽出される

' ws.Range("E" & j + 5).Value = price(j)

'試した事_02：pタグなしのためエラーになる

' ws.Range("E" & j + 5).Value = price(j).FindElementByTag("p").Attribute("price*")

'試した事_03：対象なし
' ws.Range("E" & j + 5).Value = price(j).Attribute("price*")

③補足

※For～の中に Debug.Print "price(" & j & ")" & "=" & price(j).Textを入れた場合、下記の通りに要素の全てが出力されます。
ただし欲しい情報はprice、もしくはpriceBの情報のみになります。

　price(1)_\11,550
\5,980 （税込）
48%OFF
price(2)期間限定：3/10(金)?16(木)
¥11,000
\6,600 （税込）
40%OFF
price(3)期間限定：3/10(金)?16(木)
¥22,000
\17,600 （税込）
20%OFF
price(4)\23,800 （税込）
price(5)\16,500 （税込）
price(6)_期間限定：3/10(金)?16(木)
¥17,900
\11,000 （税込）
38%OFF
price(7)_期間限定：3/10(金)?16(木)
・
・
・

※driver.FindElementsByCssの考え方が得意ではないので、可能であればAttributeを使った形ですと分かりやすいです。

④該当のソースコード

¥11,550

¥5,980
（税込）

48%OFF

¥23,800
（税込）

行動規範の内容に同意します

回答1件

●Attributeは基本的には属性を指定して、値を取得するメソッドです。

<タグ id="hoge" 属性1="値1" 属性2="値2" 属性3="値3">テキスト</タグ>

Debug.print driver.FindElementByID("hoge").Attribute("属性1")
'出力：値1
Debug.print driver.FindElementByID("hoge").Attribute("id")
'出力：hoge

例外？
Debug.print driver.FindElementByID("hoge").Attribute("innerText")
'出力：テキスト
Debug.print driver.FindElementByID("hoge").Attribute("outerHTML")
'出力：<タグ ID="hoge" 属性1="値1" 属性2="値2" 属性3="値3">テキスト</タグ>

●Class="price"の要素にアクセスしたいのであれば
price(j)に対してもう一度FindElementByClass("price")を使います。

priceとPriceBがあるようなので要素の存在チェックをしています。

VBA
1Dim price
2    Set price = driver.FindElementsByClass("item-price")
3
4    For j = 1 To num '→ num は変数で定義していますが、実際は48として機能しています。
5        
6        'MsgBox price(j).Attribute("outerHTML")
7        
8        If price(j).FindElementsByClass("price").count <> 0 Then
9            'Class="price"が存在するとき
10            'MsgBox price(j).FindElementByClass("price").Attribute("outerHTML")
11            ws.range("E" & j + 5).Value = price(j).FindElementByClass("price").text
12        End If
13        If price(j).FindElementsByClass("priceB").count <> 0 Then
14            'Class="priceB"が存在するとき
15            'MsgBox price(j).FindElementByClass("priceB").Attribute("outerHTML")
16            ws.range("E" & j + 5).Value = price(j).FindElementByClass("priceB").text
17        End If
18        
19    Next