使用 excel vba 从 svg 网站导入数据

使用 excel vba 从 svg 网站导入数据

大家好,我正在尝试从一个网站导入一个我认为是 SVG 的表格。

我要导入的表格是这个http://clubelo.com/2018-02-11/结果

我所拥有的只是一个从常规网站导入文本的基本代码,我对 VBA 还很陌生。

谁能帮我用 VBA 脚本将这些数据导入到 Excel 中。

答案1

此代码将从 Web 链接导入表格。

    Sub Import_SVGTabledata()

    Dim url As String, links_count As Integer
    Dim i As Integer, j As Integer, row As Integer
    Dim XMLHTTP As Object, html As Object
    Dim tr_coll As Object, tr As Object
    Dim td_coll As Object, td As Object

    links_count = 1
    For i = 0 To links_count

        url = "Type Your Link Here" & i & ".html"

        Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
        XMLHTTP.Open "GET", url, False
        XMLHTTP.send

        Set html = CreateObject("htmlfile")
        html.body.innerHTML = XMLHTTP.ResponseText

        Set tbl = html.getelementsbytagname("Table")

        Set tr_coll = tbl(0).getelementsbytagname("TR")

        For Each tr In tr_coll
            j = 1
            Set td_col = tr.getelementsbytagname("TD")

            For Each td In td_col
                Cells(row + 1, j).Value = td.innerText
                j = j + 1
            Next
            row = row + 1
        Next
    Next

    MsgBox "Done"
End Sub

注意:您可以替换链接数用你的价值和网址输入您想要使用的链接。

我希望这对你有帮助,因为这是一个经过测试的代码。

相关内容