質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

selenium

Selenium(セレニウム)は、ブラウザをプログラムで作動させるフレームワークです。この原理を使うことにより、ブラウザのユーザーテストなどを自動化にすることができます。

Q&A

解決済

1回答

1961閲覧

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

HoneyCase

総合スコア13

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

selenium

Selenium(セレニウム)は、ブラウザをプログラムで作動させるフレームワークです。この原理を使うことにより、ブラウザのユーザーテストなどを自動化にすることができます。

0グッド

0クリップ

投稿2022/07/29 02:08

編集2022/07/29 21:27

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

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

該当のソースコード

vba

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

例示の商品ページの場合これで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

VBA

1Sub テストコード29() 2 3Dim URL As String 4 URL = "https://store.shopping.yahoo.co.jp/taiyosp-trip/nb42051-221.html" 5 6Dim driver As New Selenium.WebDriver 7 driver.AddArgument "headless" 8 driver.AddArgument "disable-gpu" 9 driver.AddArgument "window-size=1920,1080" 10 11 driver.Start "chrome" 12 driver.Get URL 13 14Dim A As Variant 15Dim i As Integer 16Dim text As String 17 18 text = driver.FindElementByCss("#coup_ex + script").Attribute("innerHTML") 19' Debug.Print text 20' MsgBox text 21 A = Split(text, ",") 22 23Dim ID As String 24 25 For i = LBound(A) To UBound(A) 26 If A(i) Like "*productCategoryId*" Then 27 ID = Split(A(i), "'")(1) 28 End If 29 Next 30 31 32 driver.Close 33 Set driver = Nothing 34 35End 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

投稿2022/07/29 08:12

編集2022/07/29 10:37
hawawa

総合スコア79

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

HoneyCase

2022/07/29 09:06

無事取得出来るようになりました。ありがとうございます。 AttributeでinnerTextなどが使えるようになるの大変参考になりました。 ただ、#coup_exが何かわからず、検索しても出なかったのでこれが何か教えていただけますか?
hawawa

2022/07/29 10:18

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

2022/07/29 12:27

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問