Html 如何在vba中计算源代码中有多少特定标记

我有一个源代码（），我想从中提取由“td”标记定义并位于

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

Yrityksen henkilöstömärä

以下是源代码的一部分：

    <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>'

Yrityksen liikevaihto（1000欧元）
20639000
17240000
11727000
11177000
3141000
Liikevaihdon muutos%
2.30
-16.50
-32.00
-4.70
-71.90
Tilikauden tulos（1000欧元）
540000
1542000
-154000
-569000
5383000
Liikevoitto%
3.20
-3.60
-8.00
-8.40
-14.40
Yrityksen henkilöstömärä
13827
11895
8016
4829
1842
'

---

我尝试的元素总是最后一个。但是，由于标签的数量因搜索而异，我想找出代码中有多少“td”标签，并从中提取最后的元素。

为了提取所需的内容，您需要以下内容：

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

Sub-GetLastTDContent（）
作为字符串的Dim strCode
作为变体的Dim strTemp
strCode=“13827 11895 Yrityksen henkilöstömärä888 9999其他不必要的东西”
"过滤第二部分,
strTemp=Split（strCode，“Yrityksen-henkilöstömärä”）
strTemp=strTemp（UBound（strTemp））
strTemp=微调（strTemp）
strCode=strTemp
在安装时执行（strCode，“”）>0”选择每个
strTemp=Split（strCode，“”）（1）
strTemp=Split（strTemp，“”（0）”现在提取前面的部分
MsgBox strTemp
strCode=Mid（strCode，InStr（strCode，“”+Len（“”））现在处理剩余的标记
环
端接头

您尝试完成此任务的代码在哪里？如果没有表现出你的努力，这个问题很可能会被关闭或否决。这就是说，在VBA中通过HTML标记进行简单的google搜索将为您提供一些帮助：）