下記のサイトでA列のJANコードで検索し商品詳細と商品タイトルを Excelに自動で入力するように作成したいのですがVBAがうまく作成できません。
下記のサイトでA列のJANコードで検索し商品詳細と商品タイトルを Excelに自動で入力するように作成したいのですがVBAがうまく作成できません。 https://www.suruga-ya.jp/kaitori_detail/607505484
Visual Basic・87閲覧・250
ベストアンサー
サンプル（基本形） Sub Sampl() Dim HtmlDoc As Object Set HtmlDoc = CreateObject("htmlfile") With CreateObject("MSXML2.XMLHTTP") .Open "GET", "https://www.suruga-ya.jp/search_buy?search_word=" & Selection .Send Do While .readyState < 4 DoEvents Loop HtmlDoc.Write .responseText End With Do While HtmlDoc.getElementsBytagname("div").Length < 1 DoEvents Loop With HtmlDoc.getelementsbyclassname("title") If .Length > 0 Then Selection.Offset(, 1) = .Item(1).innertext Else Selection.Offset(, 1) = "Not" End If End With End Sub --- ※JANコードが入力されたセル（単一セル）を選択状態でマクロを実行すれば 隣（B列）に商品名が出力されます 商品詳細？ 検索結果から取り出せるものは 種類/タイトル/発売日/型番/JANコード/管理番号/買取価格 のみですが、個々の詳細ページの内容が欲しいのかな？
1人がナイス！しています
ありがとうございます！ 大変助かりました。 管理番号/買取価格などのコードはどのようになるのでしょうか？ 初心者過ぎて申し訳ございません。
質問者からのお礼コメント
どうもありがとうございました。 思い通りのことができることができました！ 大変助かりました！
お礼日時：1/26 19:56
