Как выбрать параметр из раскрывающегося списка в Chrome с помощью VBA?

Question

'Sub chromeAuto ()

Dim obj As New WebDriver
Dim doc As HTMLDocument
obj.Start "chrome", ""
obj.Get "https://www.website.com/" #######Opens Chrome

    Application.Wait DateAdd("s", 3, Now)

obj.FindElementById("userid").SendKeys ThisWorkbook.Sheets("Sheet1").Range("A1").Value
Application.Wait DateAdd("s", 1, Now)
obj.FindElementByName("password").SendKeys ThisWorkbook.Sheets("Sheet1").Range("B1").Value
obj.FindElementById("btnActive").Click'

## Зайдит на сайт

Application.Wait DateAdd("s", 2, Now)
obj.FindElementById("pt1:_UIScmil2u::icon").Click
obj.FindElementById("pt1:_UIScmi4").Click
Application.Wait DateAdd("s", 4, Now)
obj.FindElementById("pt1:r1:0:r0:0:r1:0:AP1:soc2::drop").Click #######Opens Drop down list
Application.Wait DateAdd("s", 2, Now)'

# Ниже приведен исходный код, который я получаю от кнопки, которую хочу выбрать. Я пытаюсь выбрать опцию 2

  `<ul class="x1qz" id="pt1:r1:0:r0:0:r1:0:AP1:soc2::pop"><li id="pt1:r1:0:r0:0:r1:0:AP1:soc2::sp" 
   class="x1r4"></li>
   <li class="x1r8 p_AFSelected" _adfiv="0">Option 0</li>
   <li class="x1r8" _adfiv="1">Option 1</li>
   <li class="x1r8" _adfiv="2">Option 2</li>
   <li class="x1r8" _adfiv="3">Option 3</li>
   <li class="x1r8" _adfiv="4">Option 4</li>
   <li class="x1r8" _adfiv="5">Option 5</li>
   <li class="x1r8" _adfiv="6">Option 6</li>
   <li class="x1r8" _adfiv="7">Option 7</li>
   </ul>
   `

Answer 1

Трудно знать, не видя больше html, но попробуйте селектор атрибута css

obj.findElementByCss("[_adfiv='2']").click