VBA:如何在 标签中获取隐藏的href

Question

我正在尝试从 1930 年以来的世界杯足球赛中获得分数，在此链接中列出了比赛，通过单击球队，弹出一个新窗口，其中包含我正在寻找的摘要。我的问题是在 HTML 源代码中我没有看到 <a>通常带有href的标签，我正在尝试使用以下VBA代码模拟点击事件:

链接:http://www.flashscore.com/soccer/world/world-cup-1990/results/

VBA代码:

Sub Test()
  Dim URL As String
  Dim IE As InternetExplorer
  Dim HTMLdoc As HTMLDocument
  Dim TDelements As IHTMLElementCollection
  Dim TDelement As HTMLTableCell
  Dim i As Integer

URL = "http://www.flashscore.com/soccer/world/world-cup-1990/results/"

Set IE = New InternetExplorer

With IE
    .Navigate URL
    .Visible = True

    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

        Set HTMLdoc = .Document
    End With

        Set TDelements = HTMLdoc.getElementsByTagName("td")

        For Each TDelement In TDelements

            If TDelement.Title = "Click for match detail!" Then
                TDelement.Click
            End If
        Next

   IE.Quit
End Sub

Answer 1

我会以不同的方式进行此操作，因为您要实现的目标需要大量开销，并且可能会让您对链接、 Action 、循环等进行疯狂追逐。与其模拟 Action ，不如模拟 Action 的结果。

以 为例德国 - 阿根廷 匹配。当你点击它时，它会打开这个弹出窗口:



这里需要特别注意的是弹出窗口的 URL。直观地说，URL 有一些奇怪的组合，可能是唯一标识符。我们检查的第一件事是我们刚刚单击的表中该行的标记。



检查突出显示的部分:它与我们弹出窗口中的地址非常相似，尽管开头有四 (4) 个额外字符。折叠该行并与其他行进行交叉检查，我们得出结论，这些行使用类似的格式:



删除 g_1_ 来自 id tr 的属性标签为我们提供了每个匹配项的唯一标识符。我会带上经过 sanitizer 的 id来自 意大利 - 英国 匹配，我会将其输入到通用 URL 中。当弹出窗口的地址栏被锁定时，我们将在另一个选项卡中执行此操作:



瞧。该页面在另一个选项卡中打开，从那里您可以从比赛摘要中获得所需的内容。您甚至可以通过更改 #match-summary 来检查头对头。至#h2h;overall .



为什么这很重要？

因为它更安全。由于您使用的是 Excel，因此您可以控制工作表。最安全的方法是记录所有这些id将每一行的属性转换为一列。然后遍历该列，将其正确连接以生成目标 URL。

然后你遍历这些 URL 并从 中得到你想要的。准确 您正在寻找的页面。此时不再需要原始链接/表格，因为几乎所有细节都在“摘要”页面中。

希望这会有所帮助，祝你好运。

后续编辑

由于没有发布任何代码我感到有点内疚，这是我尝试生成 id世界杯部分的值(value)观。请注意，我对代码进行了一些改动，因此请对其进行修改以更好地适应您的方法。我只会提供获取 id 的方法值(value)观。其他一切都取决于你。

Sub Test()

    Dim URL As String
    Dim IE As New InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary")
    Dim tRowID As String

    URL = "http://www.flashscore.com/soccer/world/world-cup-1990/results/"

    With IE
        .Navigate URL
        .Visible = True
        Do Until .ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
        Set HTMLdoc = .Document
    End With

    With HTMLdoc
        'Target the set of tables.
        Set tblSet = .getElementById("fs-results")
        'Index starts at 0. World Cup Playoffs is (0), World Cup is (1),
        'Qualifiers is (2), etc... Targeting tbody right away, as there is
        'only one (1) tbody tag per row anyway.
        Set mTbl = tblSet.getElementsByTagName("tbody")(1)
        Set tRows = mTbl.getElementsByTagName("tr")
        With dictObj
            'If if value is not yet in dictionary, store it.
            For Each tRow In tRows
                'Remove the first four (4) characters.
                tRowID = Mid(tRow.getAttribute("id"), 5)
                If Not .Exists(tRowID) Then
                    .Add tRowID, Empty
                End If
            Next tRow
        End With
    End With

    'Print out each of the ID values.
    For Each Key In dictObj
        Debug.Print Key
    Next Key

    Set IE = Nothing

End Sub

返回以下 id世界杯表的值(value)(不是季后赛!):

04LfR6G7
6RNojjg8
nww8zBgL
t0xCZU8R
dKY0Pgu3
jsY4ODf9
K4YcDdti
2qM7lD3j
bXvdGk2k
tdU0F9He
65hR8YfM
lUsW7hAS
jBqaxXO8
YZY3yivF
n1HjSn11
hvInTSoe
rHUdQZPd
xfS51jmd
ncyhHVnq
4b34kglp
O0kz7LJH
lpQE9EuG
UHlQLBvS
fNQAAfQ9
CKpewD92
EmJrU8Wl
KnT4ETW1
nRnnVlHr
b3T12WXk
jwUc3CIq
n9RDMiPL
pAjW714B
GznS8sk5
GWR6BzB3
UXW8NX9F
beX1CGec

希望这对您有所帮助。请确保您阅读评论。祝你好运!