【VBA+Chromedriver】画像アドレス取得

For k = 2 To row01 ‘画像アドレス取得

chk = Cells(k, 4).Value ’画像を探すページアドレスの一覧

 driver.Get (chk)

Set elements = driver.FindElementsByTag("img") ’ページから imgタグのある要素一気に抜き出し

For i = 1 To elements.Count
'リンクURLを収集する
aLink = elements.Item(i).Attribute("src")

‘ atitl = elements.Item(i).Text

  If InStr(aLink, "https://m.media-amazon.com") <> 0 And InStr(aLink, "UL320") <> 0 Then ’抜き出された画像ドレスに色々条件つけて確定




    sh01.Cells(k, 5).Value = aLink


Exit For

  End If
Next i

コメントを残す

メールアドレスが公開されることはありません。