Как получить конкретный 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 

Друг дал мне этот макрос, который позволяет мне извлечь 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