使用vba抓取网站信息报错

吕杰伟 · 发表于 2024-7-17 16:27

自己在excel里写了一段vba程序，实现的功能是：按照excel表格中填入的标准代号，如GB 3091-2015，自动从相应网站检索该标准的信息，之前一直稳定运行，今天运行程序出现拒绝访问，程序如下，请大神帮忙看看是哪里出了问题，非常感谢！！

程序如下：

 Set Reg = CreateObject("VBSCRIPT.REGEXP") '实例化处理返回信息的正则对象
 Reg.Global = True '正则对象初始化
 Reg.Pattern = ".*?|.*|.*|.*" '正则对象初始化，处理返回信息的正则模式green:有效；red:废止

With CreateObject("MSXML2.XMLHTTP.6.0") 'MSXML2.XMLHTTP MSXML2.ServerXMLHTTP.6.0
 URL = "http://www.bz100.cn/bzquery/search/standard!searchAdvanceCompass.action?ouidop=402881b436e7105a0136e80033430002"
 .Open "POST", URL, False
 .setrequestheader "Content-Type", "application/x-www-form-urlencoded"
 .send ("onlySearchBtn=true&leibie=all&a200s=现行&a200s=未生效&a200s=废止&a007jq=true&keyword=GB 3091-2015") -这里报错！

 Set arr = Reg.Execute(.responsetext) '取出返回text的正则表达式
End With

吕杰伟 · 发表于 2024-7-17 16:32

补充：操作系统windows10，office 专业增强版2016

zpy2 · 发表于 2024-7-17 17:57

服务端拒绝了吧

吕杰伟 · 发表于 2024-7-17 18:11

看起来是的，改用CreateObject("MSXML2.ServerXMLHTTP.6.0)，不报错了，但是好像send的参数发送不到服务器

Windor123 · 发表于 2024-7-18 00:16

网址就存在问题。

吕杰伟 · 发表于 2024-7-18 07:27

这个网址早上9之后才能正常访问，下午5点多后就关机了

ytmpgght · 发表于 2024-7-18 07:51

希望有老师能解决。感觉国标文件我也用的到。

Windor123 · 发表于 2024-7-18 13:25

测试了一下，要增加
.setRequestHeader "Referer", "https://www.bz100.cn/bzquery/search/standard!searchAdvanceCompass.action?ouidop=402881b436e7105a0136e80033430002"

另外把 MsXml2.XmlHttp 改成 WinHttp.WinHttpRequest.5.1

另外，从您的程序看，每次只查一个标准？

Windor123 · 发表于 2024-7-18 13:30

还有，您的程序也没有判断如果查询结果为0如何处理的情形。

Windor123 · 发表于 2024-7-18 13:40

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

[求助] 使用vba抓取网站信息报错