从表中获取值并查找它们的url值

Question

好吧所以我想从网页中删除一些约会，我似乎无法让它变得动态。

我需要查找值为“level”的元素标记“th”，然后获取相应的“td”元素标记

此信息来自一个html表，其中包含一个主题：

{table
-tbody
--tr
---th
---td
--tr
---th
---td}

这是我的代码的开头：

{
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("link").Row And _
  Target.Column = Range("link").Column Then
    Dim ie As New InternetExplorer
    ie.Visible = True
    ie.navigate Range("link").Value
    Do
    DoEvents
    Loop Until ie.readyState = READYSTATE_COMPLETE
    Dim doc As HTMLDocument
    Set doc = ie.document
    Dim sTR As String
    sTR = doc.getElementsByTagName("th")(5).textContent
    MsgBox sTR            
 End If  
End Sub
}

我做到这一点，但我发现“th”dosnt匹配我正在寻找的每个网页。有时“th”5 dosnt具有我需要的相同值。