Question

我正在尝试从网站souq .com

获取数据

http://saudi.souq.com/sa-en/oneplus-3-dual-sim-64gb-4g-lte-graphite-10880010/i/

来源就是这样，

<div id="specs-full"><dt>Brand</dt><dd>OnePlus</dd>

我正在使用此代码

spec1 = Trim(Doc.getElementById("specs-full").getElementsByTagName("dt")(0).innerText)

spec2 = Trim(Doc.getElementById("specs-full").getElementsByTagName("dd")(0).innerText)

问题是有很多dd＆amp; dt标签，我不知道有多少，因为我正在为许多网址提取数据

所以我需要找到dd＆amp;的代码dt标签＆＃34; specs-full＆＃34;标签

Answer 1

这样的解决方案怎么样

  Set All_dd = Doc.getElementById("specs-full").getElementsByTagName("dd")

  Counter=1
  For Each dd In All_dd 
       Counter=Counter+1
  Next 

  msgbox Counter

此博客介绍了可用于VBA webscraping的各种技术。 http://www.excelvbasolutions.com/2016/02/web-scraping-collecting-data-from.html

Excel VBA查找dd＆amp; dt标签

1 个答案: