Html 网页按钮不会响应getElementById
我尝试了许多不同的方法,但无法从VBA获得一个按钮来响应网页。 我正在尝试的代码:Html 网页按钮不会响应getElementById,html,vba,internet-explorer,getelementbyid,Html,Vba,Internet Explorer,Getelementbyid,我尝试了许多不同的方法,但无法从VBA获得一个按钮来响应网页。 我正在尝试的代码: Set btn = IE.document.getElementById("gs-address-go") btn.FireEvent ("onmousedown") btn.FireEvent ("onclick") btn.Focus btn.Click 对象的HTML提取: <button id="gs-address-go" class="b-btn bold go-btn" onclick="$
Set btn = IE.document.getElementById("gs-address-go")
btn.FireEvent ("onmousedown")
btn.FireEvent ("onclick")
btn.Focus
btn.Click
对象的HTML提取:
<button id="gs-address-go" class="b-btn bold go-btn" onclick="$('#splash-get-walkscore-form').submit(); return false;" aria-label="Go"><span class="icon big-search"></span></button>
感谢任何帮助是否有任何错误,以及哪一行抛出错误?按钮是否可以在没有VBA的情况下在IE中提交表单?我试过你的代码,它成功了。您可以参考下面的简单示例:
VBA代码:
Sub LOADIE()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.walkscore.com/score/1730-blake-st-denver-co-80202"
Do Until IE.readyState = 4
DoEvents
Loop
Set searchbar = IE.document.getElementById("addrbar-street")
searchbar.Value = "B30 3LT"
Application.Wait (Now + TimeValue("0:00:03")) 'add a wait here
Set btn = IE.document.getElementById("gs-address-go")
btn.FireEvent ("onmousedown")
btn.FireEvent ("onclick")
btn.Focus
btn.Click
'IE.Quit
'Set IE = Nothing
End Sub
此外,您还可以尝试btn.FireEvent“onmousedown”
和btn.FireEvent“onclick”
是否有任何错误,以及哪一行抛出错误?按钮是否可以在没有VBA的情况下在IE中提交表单?我试过你的代码,它成功了。您可以参考下面的简单示例:
VBA代码:
Sub LOADIE()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.walkscore.com/score/1730-blake-st-denver-co-80202"
Do Until IE.readyState = 4
DoEvents
Loop
Set searchbar = IE.document.getElementById("addrbar-street")
searchbar.Value = "B30 3LT"
Application.Wait (Now + TimeValue("0:00:03")) 'add a wait here
Set btn = IE.document.getElementById("gs-address-go")
btn.FireEvent ("onmousedown")
btn.FireEvent ("onclick")
btn.Focus
btn.Click
'IE.Quit
'Set IE = Nothing
End Sub
此外,您还可以尝试
btn.FireEvent“onmousedown”
和btn.FireEvent“onclick”
我发现我可以简单地使用3LT,而B30 3LT是搜索条件。以上这些似乎都不起作用。我发现我可以简单地使用3LT,并将B30 3LT作为搜索标准。上述各项似乎都不起作用。函数调用与其参数之间不应存在任何空格btn.firefevent(“onmousedown”)
和notbtn.firefevent(“onmousedown”)
您是否尝试过btn.form.submit
thiswalkscore form')。submit()
让我觉得这是一个表单提交按钮。你能共享url吗?你的函数调用和它的参数之间不应该有任何空格btn.firefevent(“onmousedown”)
和notbtn.firefevent(“onmousedown”)
您是否尝试过btn.form.submit
thiswalkscore form')。submit()
让我觉得这是一个表单提交按钮。你能分享这个url吗?谢谢你发布这个问题的解决方案。我尝试了你提供的网站,我发现我们可以添加一个等待按钮点击,然后点击功能可以工作。您可以查看我的更新答案。感谢您发布此问题的解决方案。我尝试了你提供的网站,我发现我们可以添加一个等待按钮点击,然后点击功能可以工作。你可以查看我的最新答案。