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

这是span标记内的a标记，其元素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

vba单击一个网站按钮

1 个答案: