连续抓取全国建筑市场监管公共服务平台企业注册人员

Kaohsing · 发表于 2019-5-30 08:34

最好是按人员类别查询，最后汇总.

liangdinghu · 发表于 2019-5-30 10:09

Kaohsing 发表于 2019-5-30 07:47
Sub Main()
Dim strText As String
With CreateObject("WinHttp.WinHttpRequest.5.1")'#仔细看 ...

天呐，竟然错在这里，原来这个网址防盗链接都没有，这吓模拟了半天。谢谢帮助

YZC51 · 发表于 2019-5-30 14:01

附件请参考

全国建筑市场监管公共服务平台.rar (37.78 KB, 下载次数: 44)

xd3210 · 发表于 2019-5-31 06:34

YZC51 发表于 2019-5-30 14:01
附件请参考

感谢您的帮助！还有一问向您请教：如何模拟查询某一企业？

YZC51 · 发表于 2019-5-31 06:59

xd3210 发表于 2019-5-31 06:34
感谢您的帮助！还有一问向您请教：如何模拟查询某一企业？

请参考
http://jzsc.mohurd.gov.cn/datase ... 0%E5%85%AC%E5%8F%B8

xd3210 · 发表于 2019-5-31 13:11

YZC51 发表于 2019-5-31 06:59
请参考
http://jzsc.mohurd.gov.cn/dataservice/query/comp/list?complexname=%E5%9B%9B%E5%B7%9D%E5%8D ...

谢谢！
关键是这个complexname=%E5%9B%9B%E5%B7%9D%E5%8D%97%E5%AE%8F%E6%85%A7%E8%BE%BE%E6%B0%B4%E5%88%A9%E5%B7%A5%E7%A8%8B%E8%AE%BE%E8%AE%A1%E6%9C%89%E9%99%90%E5%85%AC%E5%8F%B8，把它变成自己想要查询的

YZC51 · 发表于 2019-5-31 14:00

请参考
Function ChrUTF$(txt$) 'Change UTF To Char '来自EH香川群子
txt = Replace(txt, "%", "")
For i = 1 To Len(txt)
t = Val("&H" & Mid(txt, i, 2))
If t < 128 Then ChrUTF = ChrUTF & Chr(t): i = i + 1 Else ChrUTF = ChrUTF & ChrW(Val("&H" & Mid(txt, i + 1, 1)) * 4096 + (Val("&H" & Mid(txt, i + 2, 2)) - 128) * 64 + Val("&H" & Mid(txt, i + 4, 2)) - 128): i = i + 5
Next
End Function

xd3210 · 发表于 2019-5-31 14:13

YZC51 发表于 2019-5-31 14:00
请参考
Function ChrUTF$(txt$) 'Change UTF To Char '来自EH香川群子
txt = Replace(txt, "%", "")
...

谢谢！已经达到目的了。

YZC51 · 发表于 2019-5-31 14:53

xd3210 发表于 2019-5-31 14:13
谢谢！已经达到目的了。

请参考
http://club.excelhome.net/thread-1396082-1-1.html

YZC51 · 发表于 2019-6-1 17:37

请参考

全国建筑市场监管公共服务平台-2.rar (50 KB, 下载次数: 15)

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

[求助] 连续抓取全国建筑市场监管公共服务平台企业注册人员

评分

评分