网抓

triplefish

各位大神好，小弟想抓取京东上的商品编码和其对应的型号等其他数据，但是在debug那一步显示出的数据就没有我需要的东西，是哪里还欠缺点什么嘛

1. 
   
2. Sub 商品基础信息()
   
3.     Cells.Clear
   
4.     With CreateObject("Microsoft.XMLHTTP")
   
5.         .Open "GET", "//item.m.jd.com/product/1192164.html", False
   
6.         .Send
   
7.         Do Until .ReadyState = 4
   
8.             DoEvents
   
9.         Loop
   
10.         Debug.Print .responsetext
    
11.     End With
    
12. End Sub

复制代码

duquancai

抓包           

719404338

你的网址是错的。

1. Sub 商品基础信息()
   
2. Dim arr(2 To 11), brr, i%
   
3.     Cells.Clear
   
4.     With CreateObject("Microsoft.XMLHTTP")
   
5.         .Open "GET", "https://item.jd.com/1192164.html", False
   
6.         .Send
   
7.          brr = Split(StrConv(.responseBody, vbUnicode, &H804), "<li title=")
   
8.      End With
   
9. For i = 2 To 11
   
10.     arr(i) = Split(Split(brr(i), ">")(1), "<")(0)
    
11. Next
    
12. [a1].Resize(10, 1) = Application.Transpose(arr)
    
13. End Sub
    

复制代码

triplefish

719404338 发表于 2018-9-2 16:14
你的网址是错的。

正确的网址是这个 https://item.m.jd.com/product/1192164.html，是因为抓不到东西，所以从网页源代码里找了上述错误的网址，现在用你的代码和正确的网址，同样抓不到东西，请问是哪里出现问题了

duquancai

triplefish 发表于 2018-9-4 21:27
正确的网址是这个 https://item.m.jd.com/product/1192164.html，是因为抓不到东西，所以从网页源代码里 ...

3楼写完整的代码，数据都写到Excel中了。你还说抓不到？这有点说不过吧？

Kaohsing

3楼代码棒棒的。

triplefish

duquancai 发表于 2018-9-4 22:59
3楼写完整的代码，数据都写到Excel中了。你还说抓不到？这有点说不过吧？

确实没有任何内容抓出来，我就是很好奇

triplefish

719404338 发表于 2018-9-2 16:14
你的网址是错的。

找到问题了，你用的split函数将取到的数据存放在brr(0)里面了，但是我看brr(0)里的数据是乱码的，图片我放楼下了。没有接触过StrConv(.responseBody, vbUnicode, &H804)这个函数，所以不知道怎样转码，往告知，谢谢！

triplefish

如图，数据乱码

triplefish

duquancai 发表于 2018-9-4 22:59
3楼写完整的代码，数据都写到Excel中了。你还说抓不到？这有点说不过吧？

抓出了一段网页的代码，没有想要的数据，可以看楼下的图