如何从特定类中获取特定的 InnerText？

Question

<tbody>
            <tr>
                <td>
                    <a href="/denmark/1st-division/">1st Division 2016/2017</a>
                </td>
                    <td>
                    </td>
            </tr>
            <tr class="even">
                <td>
                    <a href="/denmark/1st-division-2015-2016/">Bet25 Liga 2015/2016</a>
                </td>
                    <td>

大家好！我想从那个源代码中得到这个：Bet25 Liga 2015/2016。

Sub ExtractHrefClass()

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", Range("D8").Value, False
        .Send
        Range("E8").Value = Split(Split(Split(.ResponseText, "<tr class=""even"">", 2)(1), "<a href=""", 2)(1), """", 2)(0)
    End With

End Sub

一个朋友给了我这个宏，它允许我提取那个 "even" 类的 href，但我需要有 InnerText 也是。我必须在哪里更改代码？谢谢:)

Answer 1

试试下面的代码：

Sub ExtractHrefClass()

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", Range("D8").Value, False
        .Send
        a = Split(Split(Split(.ResponseText, "<tr class=""even"">", 2)(1), "<a href=""", 2)(1), """>", 2)
    End With
    Range("E8").Value = a(0)
    Range("F8").Value = Split(a(1), "<", 2)(0)

End Sub