[已解决]VBA 读取网页代码，获取信息

321421

由于目前读取的代码中a-size-medium a-color-price 可能会有好几个，所以不确定产品准确的定价，我找出了这些网页中不同的地方，就是图片中标黄色一段，但不知道代码如何改，请大神帮我改一下，谢谢。

最佳答案

月排行榜 / 总排行榜

JX_shangrila

2016-2-24 15:06

Function Y(URL)
On Error Resume Next
With CreateObject("Msxml2.XMLHTTP")
.Open "get", URL, False
.send
X = Split(.responseText, "a-size-medium a-color-price"">")
Y = Split(Split(.responseText, "a-size-medium a-color-price"">")(UBound(X)), "</span>")(0)
End With
End Function

跳转到最佳答案楼层

321421

价格就是29.90，页面上的

叫我赵日天

找出来split不就行了，太简单了，不想看

321421

叫我赵日天 发表于 2016-2-24 12:20
找出来split不就行了，太简单了，不想看

Y = Split(Split(.responsetext, "priceblock_ourprice" & "a-size-medium a-color-price"">")(1), "</span>")(0)
这样写读取下面的代码怎么读不出来呢，求指教

tr id="priceblock_ourprice_row">
    <td id="priceblock_ourprice_lbl" class="a-color-secondary a-size-base a-text-right a-nowrap">售价:</td>
    <td class="a-span12">
        <span id="priceblock_ourprice" class="a-size-medium a-color-price">￥122.30</span>
        <span id="ourprice_shippingmessage">       

JX_shangrila

Function Y(URL)
On Error Resume Next
With CreateObject("Msxml2.XMLHTTP")
.Open "get", URL, False
.send
X = Split(.responseText, "a-size-medium a-color-price"">")
Y = Split(Split(.responseText, "a-size-medium a-color-price"">")(UBound(X)), "</span>")(0)
End With
End Function

321421

JX_shangrila 发表于 2016-2-24 15:06
Function Y(URL)
On Error Resume Next
With CreateObject("Msxml2.XMLHTTP")

返回值都是这样子的啊，有些不对