求助求助这个网抓代码怎么抓其他网页的数据呀

wu282815876 · 发表于 2020-1-13 09:19

Sub text()
Dim str$, html, url$, r%, arr, i%, p%, j%
Dim db, dr
Application.ScreenUpdating = Fals
Set html = CreateObject("htmlfile")
k = 1
For j = 1 To 1
url = "http://ggzy.hefei.gov.cn/jyxx/002001/002001001/moreinfo_jyxxgg2.html"
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", url, False
.setRequestHeader "cookie", "fontZoomState=0"
.setRequestHeader "Referer", "http://ggzy.hefei.gov.cn/jyxx/002001/002001001/" & j & ".html"
.send
str = .responseText
End With
Debug.Print str
For r = 0 To 19
k = k + 1
arr = Split(str, "</li>")(r)
Cells(k, 1) = Split(Split(Split(arr, "</span>")(0), ">")(3), "")
Cells(k, 2) = Split(Split(Split(arr, "</span>")(1), ">")(1), "")
Cells(k, 3) = Split(Split(Split(arr, "</span>")(2), ">")(4), "")
Cells(k, 4) = Split(Split(Split(arr, "</span>")(3), ">")(2), "")
Next r
Next j
Application.ScreenUpdating = True
MsgBox " TaxNews：Complete!" & vbCrLf & vbCrLf & "用时:" & " " & Timer - t & "秒", vbInformation, "Warm Tips"
End Sub

wu282815876 · 发表于 2020-1-13 09:20

本帖最后由 wu282815876 于 2020-1-13 09:21 编辑

需要这些项目的名称。

wu282815876 · 发表于 2020-1-13 10:14

我希望可以直接放超链接，不知道有没有大佬会吖

wu282815876 · 发表于 2020-1-13 10:15

直接这样的超链接，一点直接到每个项目的内容里去

wu282815876 · 发表于 2020-1-13 15:03

不用啦不用啦弄好了

		自动登录	找回密码
密码			免费注册

求助求助 这个网抓代码怎么抓其他网页的数据呀