小哥哥请帮我拿到网页上的数据？小女子在此谢过了！

Rolly2019 · 发表于 2019-4-18 15:25

小哥哥请帮我拿到网页上的数据？

小女子在此谢过了！

要求请看附件：

duquancai · 发表于 2019-4-18 15:48

需要等待小哥哥的服务。

xyxcc177 · 发表于 2019-4-18 15:57

等待小哥哥的服务

Rolly2019 · 发表于 2019-4-18 16:00

几百条数据，现在正在一个个查，

人都快晕了！

Rolly2019 · 发表于 2019-4-18 16:01

duquancai 发表于 2019-4-18 15:48
需要等待小哥哥的服务。

大哥哥，帮我弄一下，先谢谢你了

chenjx80 · 发表于 2019-4-18 16:07

本帖最后由 chenjx80 于 2019-4-18 17:44 编辑

你让楼上二位有劲无处使，这样不好！

autolzg · 发表于 2019-4-18 16:07

那个网站似乎有反爬功能

Rolly2019 · 发表于 2019-4-18 16:25

autolzg 发表于 2019-4-18 16:07
那个网站似乎有反爬功能

反爬是干嘛呀？

autolzg · 发表于 2019-4-18 16:27

Sub t()
For i = 2 To Cells(1048576, 1).End(3).Row
      Cells(i, 2) = Trim(Replace(Replace(GetInfo(Cells(i, 1).Value), Chr(10), ""), Chr(13), ""))
Next i
End Sub
Public Function GetInfo(strMoblie) As String
Dim xmlHttp As Object, tt$

Set ohttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With ohttp
      .Open "GET", "https://www.365area.com/hscode/detail/" & strMoblie, False
      .send
      tt = .ResponseText
End With
GetInfo = Split(Split(Split(tt, "<div class=""odd green"">")(1), "<div class=""even"">")(1), "</div>")(0)
End Function

duquancai · 发表于 2019-4-18 16:35

Rolly2019 发表于 2019-4-18 16:25
反爬是干嘛呀？

反爬就是不让爬，如果你非要爬，那就叫反反爬

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

[求助] 小哥哥请帮我拿到网页上的数据？小女子在此谢过了！

评分