Excel VBA查找dd＆dt标签

我正在尝试从网站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＆dt标签，我不知道有多less，因为我正在为许多url获取数据

所以我需要在“specs-full”标签中查找dd＆dt标签数量的代码

Answer 1

这样的解决scheme如何

  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