尝试在HTML文档上设置带有getElementsByClassName的变量时出现的问题

时间:2019-03-19 15:37:18

标签: excel vba web-scraping

我正在尝试从网页上抓取项目列表。设置响应文本后,当我在msgbox的oHtml.body.innerHTML中显示所有HTML内容时,该部分即可正常工作。但是,当实际查询文档以获取相关元素时,会出现错误。

我在Set dados ...开头的行出现以下错误

  

运行时错误'91';
  未设置对象变量或With块变量

这是我的代码:

Private Sub Scrape_schedule()    
    Dim oHtml As HTMLDocument
    Dim oElement As Object

    Set oHtml = New HTMLDocument

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "https://example.com", False
        .Send
        oHtml.body.innerHTML = .responseText  
    End With

    MsgBox oHtml.body.innerHTML

    Set dados = oHtml.getElementsByClassName("resolutionWidget-state-list")(0).getElementsByTagName("li")
End Sub

1 个答案:

答案 0 :(得分:0)

没有单数npm install --save react。函数react-router会返回集合,就像.getElementsByTagName("li")一样。您需要指定索引号或遍历集合以收集所有索引。

.getElementsByTagName