大家好,我正在尝试从一个网站导入一个我认为是 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
注意:您可以替换链接数用你的价值和网址输入您想要使用的链接。
我希望这对你有帮助,因为这是一个经过测试的代码。