如何访问a<；中HTML标记的内部文本；TD>；标签

我想从包含此内容的网页中获取一些文本。我想获得href=“#spec#u Brand”的信息

烙印
产品的生产商？

我正在尝试使用：

Set TDelementsA = HTMLdoc.getElementsByTagName("TD")
    While r < TDelementsA.Length
      If TDelementsA.className = "table_spec" Then
         Sheet4.Range("A1").Offset(r, c).Value = TDelement.innerText
    End If

Set-TDelementsA=HTMLdoc.getElementsByTagName（“TD”）
而r

但它给了我： 烙印 产品的生产商

代替

spec_品牌

---

有人能帮我吗？

这就是你想要的吗？（注意：我将上述html存储在Sheet1的单元格A1中进行测试）。另外，我正在使用IE的后期绑定

Option Explicit

Sub Sample()
    Dim ie As Object
    Dim links As Variant, lnk As Variant

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "About: Blank"

    ie.document.body.innerhtml = Sheets("Sheet1").Range("A1").Value

    Set links = ie.document.getElementsByTagName("a")

    For Each lnk In links
        If lnk.classname = "href_icon href_icon_help table_spec_titleimg" Then
            Debug.Print lnk.innertext
            Exit For
        End If
    Next
End Sub

屏幕截图

---

谢谢，如前所述，我正在浏览TD元素。一个2列的表，表的左列有隐藏在标记中的文本，右列是我想要的innerText。所以我用的是TD标签。但是我想我可以在表中循环两次，第一列搜索-标记，第二列搜索-标记；虽然我想了解是否以及如何访问标记中的标记。当您实际写入工作表时，您可以从

集中的
TDelementsA
，
和
if
行切换到
TDelement
。希望这里只是一个输入错误，而不是在实际代码中
Option Explicit

Sub Sample()
    Dim ie As Object
    Dim links As Variant, lnk As Variant

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "About: Blank"

    ie.document.body.innerhtml = Sheets("Sheet1").Range("A1").Value

    Set links = ie.document.getElementsByTagName("a")

    For Each lnk In links
        If lnk.classname = "href_icon href_icon_help table_spec_titleimg" Then
            Debug.Print lnk.innertext
            Exit For
        End If
    Next
End Sub