如何通过VBA从网站的dd标签获取数据

时间:2019-06-13 11:40:47

标签: html excel vba web-scraping

我正在尝试从网站获取数据,但是我的VBA代码的这一部分无法正常工作。 我试图看这里,例如Excel VBA to find dd & dt tag,但我找不到答案。

这是我要从中获取数据的HTML代码:

<div @*id="show7" class="collapse visible" *@>
<h3 class="rapport__h3">Folkbokföring</h3>
<dl class="rapport__list m-b-25">
    <dt>Gatuadress</dt>
    <dd/>
    <dt>Postnummer</dt>
    <dd/>
    <dt>Postort</dt>
    <dd/>
    <dt>Kommun</dt>
    <dd>
    </dd>
    <dt>Län</dt>
    <dd>&#xD6;rebro (18)</dd>
</dl>
<h3 class="rapport__h3">Särskild adress</h3>
<dl class="rapport__list m-b-25">
    <dt>Gatuadress</dt>
    <dd class="UpplysningTableSecondTd">Poste Restante</dd>
    <dt>Postadress</dt>
    <dd class="UpplysningTableSecondTd">701 00 &#xD6;rebro</dd>
</dl>

我正在尝试检索class="UpplysningTableSecondTd"数据。 以下两种方法均无效,并且我尝试了不同的方法。

Set All_dd = oHDoc.getElementsByClassName("rapport__list m-b-25").getElementsByClassName("UpplysningTableSecondTd")(0).innerText
Set All_dd = oHDoc.getElementsById("show7").getElementsByTag("UpplysningTableSecondTd")

谢谢。

1 个答案:

答案 0 :(得分:0)

我设法解决了。

Debug.Print oHDoc.getElementsByClassName("UpplysningTableSecondTd").Item(0).innerText
Debug.Print oHDoc.getElementsByClassName("UpplysningTableSecondTd").Item(1).innerText