VBA WEBスクレイピングをするための記述方法

Question

前提・実現したいこと

VBA　WEBスクレイピングにおける記述の方法

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

VBA WEBスクレイピングの記述方法
ご覧頂きまして 誠にありがとうございます。
現在 WEB上のとある部分を抜き出したいのですが
書き方が分からなくご教授して頂けますと幸いです
抜き出したいHTML文が 「品切れ中」となります。
てっきり td class="tC"
と思っていたのですが下の「オープンプライス」にも表記されて
つまずいている状態です。
※ 在庫があると「0セット」となります。
ちなみに参考URLはこちらになります
https://www.netsea.jp/shop/333957/LAOLA-001?cam=log1_pc_head

該当のソースコード

<p class="price">294円<span class="taxUnit">（税抜）</span></p> <p class="price">323円<span class="taxUnit">（税込）</span></p> <p class="price">（消費税&nbsp;29円）</p> </td> <td class="tC"> 品切れ中 <input type="hidden" name="item_list[9][item_num]" value="0"> </td> </tr> <tr> <td>10047007-10</td> <td>-RE</td> <td>レッド/</td> <td class="tC"> オープンプライス </td> <td class="tR">

試したこと

'セット卸額(税込)
tempPrices = match(itemBranches(k), "<p class=""price"">([\S]*?)円<span class=""taxUnit"">（税込）</span></p>")
itemPrice = tempPrices(0)
Sh1.Cells(targetRow + k, 9) = itemPrice

'在庫情報
tempZaiko = match(itemBranches(k), "<td class=""tC"">([\S]*?)<onclick=""this.select"">（セット）</span></p>")
itemzaiko = tempZaiko(0)
Sh1.Cells(targetRow + k, 20) = itemzaiko

ここに問題に対して試したことを記載してください。

現在 VBAで記入してある状態では 下記となっており

下の在庫情報に記入する例をご教授頂けますと幸いです。

'セット卸額(税込)
tempPrices = match(itemBranches(k), "<p class=""price"">([\S]*?)円<span class=""taxUnit"">（税込）</span></p>")
itemPrice = tempPrices(0)
Sh1.Cells(targetRow + k, 9) = itemPrice

'在庫情報
tempZaiko = match(itemBranches(k), "<td class=""tC"">([\S]*?)<onclick=""this.select"">（セット）</span></p>")
itemzaiko = tempZaiko(0)
Sh1.Cells(targetRow + k, 20) = itemzaiko

---

Comments

[radames1000]

マルチポストについて
https://teratail.com/help#posted-otherservice

Answer 1

何を言ってるのか良く分かりませんが、
「品切れ中」を抜き出せればいいのであれば innerText に"品切れ中"が含まれるか確認すればよいのでは。

後、指摘ありますが複数サイトで同じ質問を投稿する行為はNGです。