注册 登录
编程论坛 Excel/VBA论坛

网页抓1页的代码有了,翻页抓1-7页谁来帮帮忙?感谢

一碧清蓝 发布于 2019-10-31 18:43, 1854 次点击
Sub t()
   Dim html As Object, http As Object, i, n, j
   n = 2
   Set html = CreateObject("htmlfile")
    Set http = CreateObject("Msxml2.XMLHTTP")
    http.Open "GET", "http://www., False
    http.send
    html.body.innerhtml = http.responseText
    Set tb = html.body.getelementsbytagname("tr")
    For i = 1 To tb.Length - 1
        n = n + 1
          For j = 0 To tb(i).ChildNodes.Length - 1
          Cells(n, j + 1) = tb(i).ChildNodes(j).innertext
          Next
    Next
End Sub
只有本站会员才能查看附件,请 登录
0 回复
1