从不显示表格的页面获取数据[关闭]

Question

我正在尝试将网站上的实时数据导入我的 Excel 电子表格。唯一的问题是，当我通过 Excel 中的获取数据访问网页时，无法识别表格。我只能导入整个页面，即使那样它也没有得到我需要的数据。如果提供了 URL，我想运行一个宏来获取数据，因为页面太多，无法手动完成。

为了比较，我尝试导入的数据是来自不同博彩公司的所有赔率，这是一个示例 https://www.oddschecker.com/tennis/kaitlyn-christian-sabrina-santamaria-v-tatjana-maria-heather-watson/winner

或者这个网站https://easyodds.com/tennis/atp/acapulco-mexico/928015/match-result任何一个都可以

我真的很感激能对此有所了解。谁能帮忙！！

为什么你的解决方案不适合我真的很奇怪：

enter image description here enter image description here

Answer 1

好的。这是您的第一个链接的解决方案。

我可以稍微整理一下输出，但它会让你开始。

选择一个活动表并将引用添加到 MS XML 和 MS HTML 库。

参考文献

代码

Option Explicit

Sub test4()

    Dim html As New HTMLDocument, http As New XMLHTTP60

    With http
        .Open "GET", "https://www.oddschecker.com/tennis/kaitlyn-christian-sabrina-santamaria-v-tatjana-maria-heather-watson/winner", False
        .Send
        html.body.innerHTML = .ResponseText
    End With

    Dim allRowOfData As Object

    Set allRowOfData = html.getElementsByClassName("at-12 standard-list")(0)

    Dim r As Long, c As Long

    Dim curHTMLRow As Object

    Dim counter As Long
    counter = 1

    For r = 0 To allRowOfData.Rows.Length - 1

        Set curHTMLRow = allRowOfData.Rows(r)

        Dim tblCell As HTMLTableCell

        For Each tblCell In curHTMLRow.Cells

          If Not tblCell.innerText = "1" And Not tblCell.innerText = "2" And Len(tblCell.innerText) > 0 Then
           ActiveSheet.Range("A" & counter).Value = Application.WorksheetFunction.Substitute(tblCell.innerText, "/", " over ")
           counter = counter + 1
          End If

        Next tblCell

    Next r

End Sub

结果：