|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub easy()
- On Error Resume Next
- With CreateObject("msxml2.xmlhttp")
- For m = 2 To [a65536].End(3).Row
- t = Split(Split(Cells(m, 1), "m/")(1), ".")(0)
- .Open "GET", "http://pm.3.cn/prices/pcpmgets?skuids=" & t & "&origin=2", False
- .send
- s = .responsetext
- If InStr(s, "pcp") > 0 Then
- Cells(m, 2) = Split(Split(s, "pcp"":""")(1), """")(0)
- Else
- Cells(m, 2) = Split(Split(s, "m"":""")(1), """")(0)
- End If
- Cells(m, 3) = Split(Split(s, """p"":""")(1), """")(0)
- Next
- End With
- Cells.Replace "-1", ""
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|