要素が絞れないデータの取得方法

Question

scriptタグ内の要素の取得について

yahoo!ショッピングのプロダクトカテゴリーやタイトルなど商品情報を取得するマクロをvbaとseleniumで作っています。

タイトルは取得できたのですが
プロダクトカテゴリーを取得する方法がわからないため、教えてほしいです。

実現したいこと

プロダクトカテゴリーを取得する

発生している問題・エラーメッセージ

場所はわかっているが、どうすれば取得できるかわかりません。

例えば下のような商品で
https://store.shopping.yahoo.co.jp/taiyosp-trip/nb42051-221.html

ChromeでDevToolを開いて[product_category_id]と検索すればプロダクトリカテゴリは[44299]であることはわかります。
ですが[product_category_id]は要素ではないのでどう取得すればいいかわかりません。

XPathで場所を指定して.valueや.textで取得出来ないかも試しましたが

実行時エラー"32"
InvalidSelectorError

が出て取得出来ません。
どのようにすればこのようなタグに挟まれた文字を取得出来るのかわかる方いましたら教えてください。
よろしくお願いします。

該当のソースコード

Private browser As New Selenium.ChromeDriver
Sub yahooItem()
Dim URL as string
URL="http://hogehoge"
With browser
    .Get URL 'ページを開く
    debug.print .FindElementByCss("#shpMain > div.gdColumns.gd3ColumnItem > div.gd3ColumnItem2 > div.mdItemName > p.elName").Text 'タイトル取得
    debug.print .FindElementByXPath("//*[@id=""shpFooter""]/div/script[7]/text()").Text '商品要素を取得
    .Close
    Set browser = Nothing
End With

End Sub

Comments

[okakemetal]

ここの情報が参考になりませんでしょうか？
https://nkmrdai.com/vba-selenium-reference/

Answer 1

例示の商品ページの場合これでScriptタグの中身が文字列で取得できると思います
後は文字列操作で

.FindElementByCss("#coup_ex + script").Attribute("innerHTML")

参考
Attributeは覚えておくと便利ですよ

https://www.google.com/search?q=selenium+basic+Attribute
https://www.google.com/search?q=innerHTML+outerHTML+innerText

Sub テストコード29()

Dim URL As String
    URL = "https://store.shopping.yahoo.co.jp/taiyosp-trip/nb42051-221.html"
    
Dim driver As New Selenium.WebDriver
    driver.AddArgument "headless"
    driver.AddArgument "disable-gpu"
    driver.AddArgument "window-size=1920,1080"
    
    driver.Start "chrome"
    driver.Get URL
    
Dim A As Variant
Dim i As Integer
Dim text As String

    text = driver.FindElementByCss("#coup_ex + script").Attribute("innerHTML")
'    Debug.Print text
'    MsgBox text
    A = Split(text, ",")

Dim ID As String

    For i = LBound(A) To UBound(A)
        If A(i) Like "*productCategoryId*" Then
            ID = Split(A(i), "'")(1)
        End If
    Next

    
    driver.Close
    Set driver = Nothing
    
End Sub

追記

#coup_ex + script
coup_exというIDの付いた（div）タグ
と同じ階層ですぐ後ろ隣にあるScriptタグ

CSSセレクタ IDセレクタ
http://www.htmq.com/selector/id.shtml
CSSセレクタ 隣接セレクタ
http://www.htmq.com/selector/adjacent.shtml

Comments

[HoneyCase]

無事取得出来るようになりました。ありがとうございます。

AttributeでinnerTextなどが使えるようになるの大変参考になりました。
ただ、#coup_exが何かわからず、検索しても出なかったのでこれが何か教えていただけますか？

[hawawa]

IDでDivタグを指定しています
回答に追記しました

[HoneyCase]

こういう書き方ができるのですね。
勉強になりました。ありがとうございます。