VBA 单击网站按钮

Question

我有一些曾经工作正常的代码，但由于某种原因，它已停止选择显示"您的联赛"的选项卡。该代码将现场足球比分提取到 excel 中。我唯一需要帮助的是我需要从所有游戏导航到您的联赛的地方（代码无法识别按钮，因此不会单击它）。 任何帮助将不胜感激。 谢谢。

 'Define Variables
        url = "http://www.futbol24.com/Live/livenow/"

    'Open url
        ie.Visible = False
        ie.Navigate url
        frmbusy.lbstatus.AddItem "Navigating to Web Page"
        busywait
    'Navigate from ALL Games to Your Leagues
        Set tagname = ie.Document.getelementsbytagname("*")
        For z = 0 To tagname.Length - 1
           If tagname(z).ID = "f24com_i18n_btnChooseLeague_your" Then
                tagname(z).Click
                busywait
            End If
        Next

Answer 1

您可以使用 querySelector 来定位

#f24com_btnChooseLeague_choose > a > span

这是 a 标记中的span标记，其元素具有 id #f24com_btnChooseLeague_choose

您可以将其简单地缩短为#f24com_btnChooseLeague_choose > a

Option Explicit
Public Sub ClickChooseLeagues()
    Dim ie As New InternetExplorer
    With ie
        .Visible = True
        .navigate "https://www.futbol24.com/Live/livenow/"
        While .Busy Or .readyState < 4: DoEvents: Wend
        .document.querySelector("#f24com_btnChooseLeague_choose > a").Click
        Stop
    End With
End Sub