如何计算有多少某些标记有在VBA

之后元素的源代码（ http://finder.fi/Elektroniikkaa+ja+komponentteja/JOT+Automation+Headquarters+Oulu/OULU/taloustiedot/417315）

<td><div class="desc">Yrityksen henkilöstömäärä</div></td>

这里的源代码的一部分：

<tr class="even"> 
<td><div class="desc">Yrityksen liikevaihto (1000 EUR)</div></td> 

    <td>20639000</td> 

    <td>17240000</td> 

    <td>11727000</td> 

    <td>11177000</td> 

    <td>3141000</td> 

</tr> 

<tr> 
<td><div class="desc">Liikevaihdon muutos%</div></td> 

    <td>2.30</td> 

    <td>-16.50</td> 

    <td>-32.00</td> 

    <td>-4.70</td> 

    <td>-71.90</td> 

</tr> 

<tr class="even"> 
<td><div class="desc">Tilikauden tulos (1000 EUR)</div></td> 

    <td>540000</td> 

    <td>1542000</td> 

    <td>-154000</td> 

    <td>-569000</td> 

    <td>5383000</td> 

</tr> 

<tr> 
<td><div class="desc">Liikevoitto%</div></td> 

    <td>3.20</td> 

    <td>-3.60</td> 

    <td>-8.00</td> 

    <td>-8.40</td> 

    <td>-14.40</td> 

</tr> 

<tr class="even"> 
<td><div class="desc">Yrityksen henkilöstömäärä</div></td> 

    <td>13827</td> 

    <td>11895</td> 

    <td>8016</td> 

    <td>4829</td> 

    <td>1842</td> 

    </tr>'

我想拉元素始终是最后的。但是，由于标签数量随着搜索的不同而不同，我想知道代码中有多少“td”标签，并从那里开始工作以获取最后的元素。

来源

2016-01-22 Joonas

其中的代码，你试图做到这一点？没有显示你的努力，这个问题很可能会被关闭或者被低估。也就是说，一个简单的谷歌搜索循环通过VBA中的HTML标签会给你一些帮助:) –

为了拉你需要这样的东西所需要的内容：

Sub GetLastTDContent() 

    Dim strCode  As String 
    Dim strTemp  As Variant 

    strCode = "<td>13827</td> <td>11895</td><td> <div class='desc'>Yrityksen henkilöstömäärä</div></td> <td>8888</td> <td>9999</td> other unnecessary stuff" 

    ' Filtering the second part 
    strTemp = Split(strCode, "Yrityksen henkilöstömäärä</div></td>") 
    strTemp = strTemp(UBound(strTemp)) 
    strTemp = Trim(strTemp) 

    strCode = strTemp 
    Do While InStr(strCode, "<td>") > 0   ' Pick each <td> 
     strTemp = Split(strCode, "<td>")(1) 
     strTemp = Split(strTemp, "</td>")(0) ' Now extract the part preceeding </td> 
     MsgBox strTemp 
     strCode = Mid(strCode, InStr(strCode, "</td>") + Len("</td>")) ' Now process the remaining <td> tags 
    Loop 

End Sub

来源

2016-01-22 15:20:03 Sujoy

如何计算有多少某些标记有在VBA

回答

相关问题