[已解决]查询在线数量GET

freenet9

查询在线数量
1.GET源码
2. 循环 + 3.取文本中间 ，后。插入到指定单元格里。

请教老师。
附件如下：
查询在线数量.rar (11.16 KB, 下载次数: 8)

2016-1-28 11:56 上传

点击文件名下载附件

点击按钮，刷新在线数量。

最佳答案

月排行榜 / 总排行榜

xdragon

2016-1-28 13:01

1. Sub aliexpress()
   
2.     Dim arr, re, i As Long
   
3.     arr = Range("C3:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value
   
4.     ReDim re(1 To UBound(arr), 1 To 1)
   
5.     With CreateObject("MSXML2.XMLHTTP")
   
6.         For i = 1 To UBound(arr)
   
7.             If arr(i, 1) <> "" Then
   
8.             .Open "GET", "http://www.aliexpress.com/wholesale?catId=0&SearchText=" & arr(i, 1), False
   
9.             .send
   
10.             re(i, 1) = Split(Split(.responsetext, "resultCount"":""")(1), """")(0)
    
11.             End If
    
12.         Next
    
13.     End With
    
14.     Range("D3").Resize(UBound(re)) = re
    
15. End Sub

复制代码

请测试。。。

跳转到最佳答案楼层

xdragon

1. Sub aliexpress()
   
2.     Dim arr, re, i As Long
   
3.     arr = Range("C3:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value
   
4.     ReDim re(1 To UBound(arr), 1 To 1)
   
5.     With CreateObject("MSXML2.XMLHTTP")
   
6.         For i = 1 To UBound(arr)
   
7.             If arr(i, 1) <> "" Then
   
8.             .Open "GET", "http://www.aliexpress.com/wholesale?catId=0&SearchText=" & arr(i, 1), False
   
9.             .send
   
10.             re(i, 1) = Split(Split(.responsetext, "resultCount"":""")(1), """")(0)
    
11.             End If
    
12.         Next
    
13.     End With
    
14.     Range("D3").Resize(UBound(re)) = re
    
15. End Sub

复制代码

请测试。。。

freenet9

xdragon 发表于 2016-1-28 13:01
请测试。。。

十分感谢。