
実現したいこと
・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 コメント