html - 如何使用 VBA 从 Chrome 的下拉列表中选择一个选项？

Question

' 子 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