Wie bekomme ich einen bestimmten InnerText von einer bestimmten Klasse?

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> 

Hallo Leute! Ich möchte das bekommen: Bet25 Liga 2015/2016 von diesem Quellcode.

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 

Ein Freund gab mir dieses Makro, das mir die href dieser „even“ Klasse zu extrahieren, aber ich brauche die Inner haben. wo muss ich den code ändern? Thanks :)

Answer 1

Versuchen Sie, den folgenden 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