無法從HTML

Question

我使用VBA的網址導航提取HREF數據，我使用下述代碼無法提取href的值，如果可能的話，請修改代碼進行適當的href的值即鏈接值

IE.navigate "http://www.amazon.co.uk/gp/offer-listing/B00IKFN8YM/ref=olp_page_2?ie=UTF8&f_new=true" 
Do While IE.ReadyState <> 4 Or _ 
      IE.Busy = True 
      On Error Resume Next 
     ' MsgBox (ie.ReadyState) 
    DoEvents 
    Loop 

'Set html = CreateObject("htmlfile") 
Set html = IE.Document 
Set priceData2 = html.getElementsByClassName("a-column a-span3 olpDeliveryColumn").getElementsByTagName("a") 
For Each Item In priceData2 
Debug.Print Item.innerHTML 
Priceval2 = Item.innerHTML 
MsgBox (Priceval2) 
Next Item 

從以上提到的網址我想提取以下href值。

a href="/gp/aag/details/ref=olp_merch_ship_1?ie=UTF8&asin=B00IKFN8YM&seller=A294EA9HAL0DUF&sshmPath=shipping-rates#aag_shipping" 

Answer 1

您需要尋找最有可能的標籤「a」。

Set sellerurl = html.getElementsBytagName("a") 

這會給你一個HTMLAnchorElement，然後你可以從中獲取href。

答更新時間：試試這個

Set sellerurl = html.getElementsBytagName(「a」) 

For Each Item In sellerData 
    debug.Print(Item.innerhtml) 
    selleu = Item.href 
Next Item 

你也應該看到你在什麼是打印出來期待的環節。