Question

我使用vba进行网址导航，我无法使用下面提到的代码提取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&amp;asin=B00IKFN8YM&amp;seller=A294EA9HAL0DUF&amp;sshmPath=shipping-rates#aag_shipping"

Answer 1

您最需要查找标签“a”。

Resque.redis = Redis.new(host: 'redis', port: 6379)
Resque.after_fork = Proc.new { ActiveRecord::Base.establish_connection }

然后，这将为您提供一个HTMLAnchorElement，然后您可以从中获取href。

回答更新：试试这个

Set sellerurl = html.getElementsBytagName("a")

您还应该看到打印出来的链接。

无法从html中提取href数据

1 个答案: