【VBA:Selenium】htmlから情報を抽出して、Excelに貼り付けたい

実現したいこと

・VBAのSelenium(Webdriver)を使用し、下記のhtmlから商品情報を抽出~Excelに貼付をしたいです。

▼対象のサイト
https://zozo.jp/shop/ryuryu/goods-sale/49111503/?did=86199612

前提

・データの抽出は出来ているのですが、見やすい形に並び替えがしたいです。

▼現状のDebug.Print
color_list = チェック
color_list = アイボリー
color_list = ブラック
…以下、略
size_stock = S / 在庫あり
size_stock = M / 在庫あり
size_stock = L / 在庫あり
size_stock = XL / 在庫あり
size_stock = XXL / 在庫あり
size_stock = S / 在庫あり
size_stock = M / 在庫あり
size_stock = L / 在庫あり
size_stock = XL / 在庫あり
size_stock = XXL / 在庫あり
…以下、略

▼理想のDebug.Print

color_list = チェック size_stock = S / 在庫あり
color_list = チェック size_stock = M / 在庫あり
color_list = チェック size_stock = L / 在庫あり
color_list = チェック size_stock = XL / 在庫あり
color_list = チェック size_stock = XXL / 在庫あり

color_list = アイボリー size_stock = S / 在庫あり
color_list = アイボリー size_stock = M / 在庫あり
color_list = アイボリー size_stock = L / 在庫あり
color_list = アイボリー size_stock = XL / 在庫あり
color_list = アイボリー size_stock = XXL / 在庫あり
…以下、略

⇒▼最終的にはExcel C列にcolor_list の一覧、D列に size_stockの一覧があれば良いと考えています。

該当のソースコード・試したこと

 Dim color, color_list, size_stock, size_stock_list, text, l, m

 Set color = driver.FindElementsByCss(".txt.p-goods-add-cart__color")

 Set size_stock = driver.FindElementsByCss(".p-goods-add-cart-stock")

' 各要素からテキストを抽出~表示する。

 For l = 1 To color.count
color_list = color.Item(l).text
Debug.Print "color_list = " & color_list
Next l

 For m = 1 To size_stock.count
size_stock_list = size_stock.Item(m).text
Debug.Print " size_stock = " & size_stock_list
Next m

 'Debug.Print "color.count = " & color.count; '→OK
'Debug.Print "size_stock.count = " & size_stock.count '→OK

コメントを投稿

0 コメント