How to get a particular InnerText from a specific class?

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>

Hi guys! I would like to get this: Bet25 Liga 2015/2016 from that source code.

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

A friend gave me this macro that allows me to extract the href of that "even" class, but i need to have the InnerText too. where i have to change the code? Thanks :)

@omegastripes http://www.soccer24.com/denmark/1st-division/archive/, today i send you an email my friend ^^ — ALIENATO, Jan 08 '17 at 23:21
@omegastripes Sorry but i need a thing more, when the macro run an error **(Subscript out of range)** because it not find what it is looking for, i would like to go on with the next macro — ALIENATO, Jan 09 '17 at 00:28

score 3 · Accepted Answer · answered Jan 08 '17 at 23:13

3

Try the below code:

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

answered Jan 08 '17 at 23:13

omegastripes

12,351
4
45
96

@ALIENATO could you please share the URLs which gives the `Subscript out of range` error? – omegastripes Jan 09 '17 at 10:43
@ALIENATO what output is expected for the provided URL? – omegastripes Jan 09 '17 at 18:58
@ALIENATO I can't find such text `Bet25 Liga 2015/2016` on the webpage by the link http://www.soccer24.com/denmark/1st-division/ – omegastripes Jan 09 '17 at 20:10
sorry, wrong link :P http://www.soccer24.com/denmark/1st-division/archive/ – ALIENATO Jan 09 '17 at 20:25
Let us [continue this discussion in chat](http://chat.stackoverflow.com/rooms/132730/discussion-between-omegastripes-and-alienato). – omegastripes Jan 09 '17 at 20:32

How to get a particular InnerText from a specific class?

1 Answers1

Linked