使用嵌套元素VBA刮擦WEBSITES

Question

我想获得elemets嵌套的值 EX：

    Set myhtml = .Document
End With 

     

用myhtml       Set List = .getElementsbyTagName（“TD”）。getElementsByTagName（“span”）。getelementbytagname（“a”）

For Each l In List
    If InStr(1, l.innerHTML, "8332103") > 0 Then
        Range("A1").Offset(r, 0).Value = l.innerText
        r = r + 1
    End If
Next

Set myhtml = Nothing
Set ie = Nothing
End Sub

此过程在此处返回错误（错误是对象不支持此属性或方法）：

  

用myhtml   set list =   .getElementsByTagName（ “TD”）。的getElementsByTagName（ “跨度”）。getelementbytagname（ “a”）的

有什么建议吗？

Answer 1

我不知道这是不是一个错字，但这不起作用：

with myhtml Set List = .getElementsbyTagName("TD").getElementsByTagName("span").getelementbytagname("a")

应该是这样的：

With myhtml
    Set List = .getElementsbyTagName("TD").getElementsByTagName("span").getelementbytagname("a")
End With