求助大神静态网页抓取的办法

majianxwyg · 发表于 2023-6-20 20:50

Sub text()
Dim xml As Object
Set xml = VBA.CreateObject("Microsoft.XMLHTTP")
url = "https://www.886book.com/info/40335/1.html"
With xml
      .Open "GET", url, False
      .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      .Send
      tt = .responsetext
End With
MsgBox tt
End Sub

请问下要抓取上面网页中的文章，以上代码哪里出问题了？

perfect131 · 发表于 2023-6-21 09:10

去掉没用的行

majianxwyg · 发表于 2023-6-21 09:59

perfect131 发表于 2023-6-21 09:10
去掉没用的行

显示运行时错误70

majianxwyg · 发表于 2023-6-21 10:00

majianxwyg 发表于 2023-6-21 09:59
显示运行时错误70

显示运行时错误‘70’
拒绝的权限

perfect131 · 发表于 2023-6-21 10:06

majianxwyg 发表于 2023-6-21 10:00
显示运行时错误‘70’
拒绝的权限

那换个对象
3 楼对象一个个试一下
https://club.excelhome.net/forum ... 24&pid=10988357

Yalishanda30 · 发表于 2023-6-21 10:06

本帖最后由 Yalishanda30 于 2023-6-21 10:18 编辑

majianxwyg 发表于 2023-6-21 10:00
显示运行时错误‘70’
拒绝的权限

被墙了吧，爬太多

majianxwyg · 发表于 2023-6-21 10:19

perfect131 发表于 2023-6-21 10:06
那换个对象
3 楼对象一个个试一下
https://club.excelhome.net/forum.php?mod=redirect&goto=findpos ...

谢谢，换个对象己解决

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

[求助] 求助大神静态网页抓取的办法

评分