抓取指定区域的内容，已有之前的，请指教优化

zldccmx

yygroup 发表于 2021-9-2 09:11
可以上源码不，哈哈

1. Sub c()
   
2.     str1 = "{""data"":""32aaae5a1571ec081caba00bc630c88f28d148e9a400cacb69786fe5"
   
3.     str1 = str1 & "b282be38a70b8953e2afa0815402f213cb40bd1d5c7fa46a65746c2990b25"
   
4.     str1 = str1 & "ed6142355d61ac291ab971106d21d4e4f75a77de13245a7f3c96caf128fd4"
   
5.     str1 = str1 & "76269260832f51"",""key_id"":""47"",""sign"":""8ec3356b"",""pa"
   
6.     str1 = str1 & "ge"":1,""size"":10,""search"":"""
   
7.     For n = 2 To [a65536].End(3).Row
   
8.         url = Cells(n, 1).Value
   
9.         hm = Split(url, "=")(1)
   
10.         str1 = str1 & hm & """}"
    
11.         With CreateObject("WinHttp.WinHttpRequest.5.1")
    
12.             .Open "post", "https://haoma.baidu.com/api/v1/search", False
    
13.             .setRequestHeader "Referer", url
    
14.             .Send (str1)
    
15.             strtext = .responsetext
    
16.         End With
    
17.         Debug.Print strtext
    
18.         S = Split(Split(strtext, """province"":""")(1), """")(0)
    
19.         S = S & Split(Split(strtext, """city"":""")(1), """")(0)
    
20.         Cells(n, 3) = S & "/" & Split(Split(strtext, """operator"":""")(1), """")(0)
    
21.         Cells(n, 2) = "'" & hm
    
22.     Next
    
23. End Sub

复制代码

yygroup

pc_12 发表于 2021-9-2 09:00

不行呢，奇怪了，卡在那里

yygroup

zldccmx 发表于 2021-9-2 09:14

提示下标越界，何解呢

yygroup

zldccmx 发表于 2021-9-2 09:14

code:403,data:false,非法请求

pc_12

这可能是你的操作系统不支持。

yygroup

pc_12 发表于 2021-9-2 11:10
这可能是你的操作系统不支持。

是EXCEL版本还是WINDOWS系统所致呀

yygroup

pc_12 发表于 2021-9-2 11:10
这可能是你的操作系统不支持。

这就怪了，有没有办法优化下成普遍模式呢

yygroup

pc_12 发表于 2021-9-2 11:10
这可能是你的操作系统不支持。

发现了一个问题，每次只能运行16条记录，奇怪了

pc_12

电话查询.rar (25.45 KB, 下载次数: 10)

2021-9-2 15:58 上传

点击文件名下载附件

网页有查询限制，1分钟内可查10条左右没有测试。

yygroup

pc_12 发表于 2021-9-2 14:34
网页有查询限制，1分钟内可查10条左右没有测试。

发现最近用不了，是不是网站改了啥的，报错。