excel - 从html中获取属性字符串值

Question

我正在构建一个宏来使用 vba 从网站提取数据。目前，我可以使用 obj.getElementsByTagName("td").innerText 等元素语法轻松地从表内容中获取值。但是，当某些单元格中有一些非内部文本数据时，我遇到了麻烦。是这样的:

<img src="/images/amber_pending.gif" border="0" alt="Pending" title="Pending">

我尝试使用从其他人那里找到的语法从“title”中提取属性值:

For Each tbObj In doc.getElementsByClassName("report removeTdBorder")
    i = 1
    For Each trObj In tbObj.getElementsByTagName("tr")
        If i >= 3 Then
            j = 1
            For Each tdObj In trObj.getElementsByTagName("td")
                If j = 1 Then
                    Set imgObj = tdObj.getElementsByTagName("img")
                    dataArray(i, j) = imgObj.getAttribute("title")
                    Debug.Print imgObj.getAttribute("title")
                    ActiveCell.Offset(0, j) = dataArray(i, j)
                    ActiveCell.Offset(0, j).WrapText = False
                Else
                    dataArray(i, j) = tdObj.innerText
                    Debug.Print i & ", " & j & ": " & dataArray(i, j)
                    ActiveCell.Offset(0, j) = dataArray(i, j)
                    ActiveCell.Offset(0, j).WrapText = False
                End If
                j = j + 1
            Next tdObj
            ActiveCell.Offset(1, 0).Activate
        End If
        i = i + 1
    Next trObj
Next tbObj

但是此代码每次都会出错，并在 dataArray(i, j) = imgObj.getAttribute("行显示“运行时错误 '438':对象不支持此属性或方法”标题”)。有人可以帮助我吗？

Answer 1

Set imgObj = tdObj.getElementsByTagName("img")

返回图像集合(即使只找到一个图像)，因此您可以使用(例如)来处理特定图像:

dataArray(i, j) = imgObj(0).getAttribute("title")