VBAで実行結果が[object HTMLSpanElement]となる

Question

指定したURLから要素を２つ取得するVBAを作成しています。
「検索結果一覧からタイトルと値段を取得する」というVBAですが、下記のようにうまく動きません。

どのように修正すればタイトルと値段が取得できますでしょうか。
お分かりの方、ご回答いただけますと幸いです。
何卒宜しくお願いいたします。

実行結果

[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]
[object HTMLSpanElement]	[object HTMLSpanElement]

該当のソースコード

Sub main()
    Dim objIE As InternetExplorer
    Dim strUrl As String
    Dim intRowCnt As Integer
    Dim str  As Variant ' 取得文字列
    
    strUrl = "https://www.amazon.co.jp/s?k=%E3%83%97%E3%83%AD%E3%83%86%E3%82%A4%E3%83%B3&__mk_ja_JP=%E3%82%AB%E3%82%BF%E3%82%AB%E3%83%8A&ref=nb_sb_noss"
    
　　Set Lists = objIE.document.getElementsByClassName("rush-component s-expand-height")

    ' データ取得
    For Each str In Lists
        Cells(intRowCnt, 2) = str.getElementsByClassName("a-size-base-plus a-color-base a-text-normal")
        Cells(intRowCnt, 3) = str.getElementsByClassName("a-price-whole")
        intRowCnt = intRowCnt + 1
    Next       
End Sub

Answer 1

とりあえず下記のように修正してみてください。

Cells(intRowCnt, 2) = str.getElementsByClassName("a-size-base-plus a-color-base a-text-normal")(0).innerText
Cells(intRowCnt, 3) = str.getElementsByClassName("a-price-whole")(0).innerText

getElementsByClassNameはコレクション(≒配列)を返すので(0)で1番目の要素と指定する必要がある。
その要素の中のテキストを取得するには、.innerTextプロパティで。

Comments

[PandaPipi]

ご丁寧に回答いただき大変ありがとうございました。
ご指摘頂いた通りに修正したところ稼働しました！