请教大神怎么通过网站查询数据

A侠客

请教大神Excel怎么通过海关编码在通关网查询数据，因为海关编码太多，手动查询工作量巨大，无法经常更新，上传附件请大神指教下，万分感激。

通关网查询.rar (7.26 KB, 下载次数: 16)

2018-8-25 21:36 上传

点击文件名下载附件

sheeboard

用selenium慢慢抓，或是用它做查询操作抓取结果。

719404338

给你抓了901120000一组的数据。可以自己摸索。

1. Sub t()
   
2.   Dim arr(1 To 44, 1 To 2), brr, k&
   
3.     With CreateObject("Microsoft.XMLHTTP")
   
4.             .Open "GET", "http://www.hscode.net/IntegrateQueries/YsInfoPager?pageIndex=1&taxCode=901120000&productName=", False
   
5.             .Send
   
6.            Do Until .ReadyState = 4
   
7.               DoEvents
   
8.            Loop
   
9.            brr = Split(.responsetext, "<div class=" & Chr(34) & "odd" & Chr(34) & ">")
   
10.            End With
    
11.            arr(1, 1) = Split(brr(1), "</div>")(0)
    
12.            arr(1, 2) = Split(Split(brr(1), ">")(2), "<")(0)
    
13.            arr(2, 1) = Split(brr(2), "<")(0)
    
14.            arr(2, 2) = Split(Split(brr(2), ">")(4), "<")(0)
    
15.            arr(3, 1) = Split(brr(3), "<")(0)
    
16.            arr(3, 2) = Split(Split(brr(3), ">")(4), "<")(0)
    
17.            For k = 4 To 44
    
18.            arr(k, 1) = Split(brr(k), "<")(0)
    
19.            arr(k, 2) = Split(Split(brr(k), ">")(2), "<")(0)
    
20.            Next k
    
21.           Range("a23").Resize(44, 2) = arr
    
22.   End Sub
    

复制代码

A侠客

719404338 发表于 2018-8-26 16:15
给你抓了901120000一组的数据。可以自己摸索。

啦啦啦，崩溃

A侠客

719404338 发表于 2018-8-26 16:15
给你抓了901120000一组的数据。可以自己摸索。

可以成功但是不知道怎么添加其他编码进去，能不能给我一个同时获取两组数据的代码？因为我复制后添加把编码改了后不成功，万分感激

719404338

把这个换一下。

A侠客

719404338 发表于 2018-8-26 20:52
把这个换一下。

我知道换了可以，我的意思是怎么添加第二组，你给我一个同时获取两组数据的代码我可以研究一下规则