Excel 运行时错误424需要对象
我得到的运行时错误91对象或块变量没有为下面的行设置,该行表示html页面上的元素ID是唯一的(否则它将不是“标识符”)。因此,一个ID应该只附加到一个元素。但是,浏览器不会检查这一点,只会忽略html文件中的错误 无论如何,对于javascript函数Excel 运行时错误424需要对象,excel,vba,Excel,Vba,我得到的运行时错误91对象或块变量没有为下面的行设置,该行表示html页面上的元素ID是唯一的(否则它将不是“标识符”)。因此,一个ID应该只附加到一个元素。但是,浏览器不会检查这一点,只会忽略html文件中的错误 无论如何,对于javascript函数getElementById(),这意味着它将只返回一个元素。 您需要更改: Set objResultDiv = html.getElementById("rhs_block")(0) 到 然后您的objResultDiv将不再抛出运行时错误
getElementById()
,这意味着它将只返回一个元素。
您需要更改:
Set objResultDiv = html.getElementById("rhs_block")(0)
到
然后您的objResultDiv
将不再抛出运行时错误
顺便说一句,有些javascript函数确实返回元素数组。类似于getElementsByTagName(“p”)
(返回带有段落标记的所有元素)或getElementsByName(“test123”)
(返回带有name=“test123”
的所有元素)
您可以从函数名判断返回的是单个元素还是多个元素。(getElementById与getElementsByName)因此您已经检查过,在带有rhs_块ID的hte元素中至少有8个DIV,在第八个DIV中至少有3个As,在第三个A中至少有一个SPAN,该SPAN有文本。正确吗?
getElementById
不返回集合。它应该只返回一个元素。您不需要(0)
。是否出现运行时错误424或91?现在从id中删除(0)后,它将显示运行时错误91。@Jeeped-用显示我试图获取的内容的图像编辑的问题将突出显示。span标记下的40是我试图获取的。@user2269164如果这对您有帮助,请向上投票并接受作为答案。
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
Set objResultDiv = html.getElementById("rhs_block")(0)
Set objResultDiv = html.getElementById("rhs_block")