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

yygroup · 发表于 2021-9-1 15:36

如附件，自动提取网页中圈定的内容到表格中的网页内容列，无法实现，请帮忙优化，谢谢微信截图_20210901153211.png

a2.zip (19.93 KB, 下载次数: 19)

tspliu · 发表于 2021-9-1 15:59

大概就是这样子吧，把字符串里的号码换成变量就可以了

yygroup · 发表于 2021-9-1 16:17

tspliu 发表于 2021-9-1 15:59
大概就是这样子吧，把字符串里的号码换成变量就可以了

可否上段代码

tspliu · 发表于 2021-9-1 16:32

yygroup 发表于 2021-9-1 16:17
可否上段代码

Sub Main()
str1 = "{""data"":""32aaae5a1571ec081caba00bc630c88f28d148e9a400cacb69786fe5b282be38a70b8953e2afa0815402f213cb40bd1d5c7fa46a65746c2990b25ed6142355d61ac291ab971106d21d4e4f75a77de13245a7f3c96caf128fd476269260832f51"",""key_id"":""47"",""sign"":""8ec3356b"",""page"":1,""size"":10,""search"":""18925120322""}"
With CreateObject("WinHttp.WinHttpRequest.5.1")
      .Open "post", "https://haoma.baidu.com/api/v1/search", False
      .setRequestHeader "Referer", "https://haoma.baidu.com/phoneSearch?search=18925120322"
      .Send (str1)
      strtext = .responsetext
End With
Debug.Print strtext
End Sub

yygroup · 发表于 2021-9-1 16:41

tspliu 发表于 2021-9-1 16:32
Sub Main()
str1 = "{""data"":""32aaae5a1571ec081caba00bc630c88f28d148e9a400cacb69786fe5b282be38a7 ...

失败，执行不成功呢

tspliu · 发表于 2021-9-1 17:01

yygroup 发表于 2021-9-1 16:41
失败，执行不成功呢

我也不知道为什么了，我这里没有问题，换个号试试也没问题，可能得用你的百度账户获取data才行吧

yygroup · 发表于 2021-9-2 08:25

可否帮忙直接优化呢

zldccmx · 发表于 2021-9-2 08:55

四楼大咖的代码，亲测可用！
稍作改动。

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

电话查询.rar (17.24 KB, 下载次数: 11)

yygroup · 发表于 2021-9-2 09:11

zldccmx 发表于 2021-9-2 08:55
四楼大咖的代码，亲测可用！
稍作改动。

可以上源码不，哈哈

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