我收到运行时错误 91 Object or block variable not set for the below line that says <- Error Here!!
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.ResponseText
Set objResultDiv = html.getElementById("rhs_block")(0) ' <- Error Here!!
Set objH3 = objResultDiv.getElementsByTagName("div")(7).getElementsByTagName("a")(2).getElementsByTagName("span")(0).innerHTML
Cells(i, 2) = objH3
我在 Stackoverflow 中进行了搜索,但没有找到答案。
完整的 VBA 代码:
Sub XMLHTTP()
Dim url As String, lastRow As Long
Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object
Dim start_time As Date
Dim end_time As Date
lastRow = Range("A" & Rows.Count).End(xlUp).Row
Dim cookie As String
Dim result_cookie As String
start_time = Time
Debug.Print "start_time:" & start_time
For i = 2 To lastRow
url = "https://www.google.co.in/search?q=" & Cells(i, 1) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
XMLHTTP.Open "GET", url, False
XMLHTTP.setRequestHeader "Content-Type", "text/xml"
XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
XMLHTTP.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.ResponseText
Set objResultDiv = html.getElementById("rhs_block")(0)
Set objH3 = objResultDiv.getElementsByTagName("div")(7).getElementsByTagName("a")(2).getElementsByTagName("span")(0).innerHTML
Cells(i, 2) = objH3
DoEvents
Next
end_time = Time
Debug.Print "end_time:" & end_time
Debug.Print "done" & "Time taken : " & DateDiff("n", start_time, end_time)
MsgBox "done" & "Time taken : " & DateDiff("n", start_time, end_time)
End Sub
最佳答案
html 页面上的元素 ID 是唯一的(否则它不会是“标识符”)。所以一个 ID 应该只附加到一个元素上。但是,浏览器不会检查这一点,分别忽略 html 文件中的错误。
无论如何,对于您的 javascript 函数 getElementById()
这意味着它将只返回一个元素。
你需要改变:
Set objResultDiv = html.getElementById("rhs_block")(0)
至
Set objResultDiv = html.getElementById("rhs_block")
然后你的
objResultDiv
不应再抛出运行时错误 91。顺便说一句,有一些 javascript 函数会返回一个元素数组。点赞
getElementsByTagName("p")
(返回所有带有段落标签的元素)或getElementsByName("test123")
(返回所有带有 name="test123"
的元素)。您可以从函数名称中看出返回的是单个元素还是多个元素。 (getElementById 与 getElement s ByName)
关于excel - 运行时错误 424 需要对象,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34311512/