vba - 找不到任何方法来单击下拉菜单来选择任何更喜欢的项目

Question

我已经使用 IE 在 vba 中编写了一些代码，从下拉列表中选择英格兰 super 联赛，此时该下拉列表显示为Next To Play。我的目标是点击标题为 Next To Play 的下 zipper 接，然后从选项中选择 Australia A-League。但是，我找不到任何方法来单击该链接。如果我按原样运行下面的脚本，它既不会工作也不会抛出任何错误，并最终退出浏览器。

链接到该网页:URL

这是我迄今为止尝试过的:

Sub soccer()
    Dim IE As New InternetExplorer, html As HTMLDocument
    Dim post As Object

    With IE
        .Visible = True
        .navigate "replace_with_above_link"
        Do Until .readyState = READYSTATE_COMPLETE: Loop
        Set html = .document
    End With

    Application.Wait Now + TimeValue("00:00:05")
    For Each post In html.getElementsByTagName("option")
''        If InStr(post.innerText, "Next To Play") > 0 Then MsgBox post.innerText: Exit For  ''checked to see if I'm on the right place
        If InStr(post.innerText, "Next To Play") > 0 Then post.Click: Exit For
    Next post

   IE.Quit
End Sub

这是我想要触发点击的网页的部分图片。

我希望能够点击该链接并从那里选择任何选项。

看来我已经接近解决方案了。我的下面的脚本可以选择我想要执行点击的部分:

Sub Soccer_Dropdown()

    Dim IE As New InternetExplorer, html As HTMLDocument
    Dim post As Object

    With IE
        .Visible = True
        .navigate "https://ubet.com/sports/soccer/nexttoplay"
        Do Until .readyState = 4: DoEvents: Loop
        Set html = .document
    End With

    Application.Wait Now + TimeValue("00:00:05")
    Set post = html.querySelector(".ubet-fixed-price-navigator-selector-league select")
    post.Focus

'   IE.Quit
End Sub

结果图片:

但是，当需要执行点击时，我就无法再执行操作了。

Answer 1

导航到https://ubet.com/sports/soccer/england-premier-league即可找到该网页。

我知道这是一个简短的答案。我已经研究这个有一段时间了(尽管答案很简短)，它是一个 Angular.js 应用程序，但我还不知道它是如何工作的。不知何故，需要手动调用vm.selectedKeyChange。我正在努力。