Html 网页按钮不会响应getElementById

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="$

我尝试了许多不同的方法,但无法从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="$('#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”)
和not
btn.firefevent(“onmousedown”)
您是否尝试过
btn.form.submit
this
walkscore form')。submit()
让我觉得这是一个表单提交按钮。你能共享url吗?你的函数调用和它的参数之间不应该有任何空格
btn.firefevent(“onmousedown”)
和not
btn.firefevent(“onmousedown”)
您是否尝试过
btn.form.submit
this
walkscore form')。submit()
让我觉得这是一个表单提交按钮。你能分享这个url吗?谢谢你发布这个问题的解决方案。我尝试了你提供的网站,我发现我们可以添加一个等待按钮点击,然后点击功能可以工作。您可以查看我的更新答案。感谢您发布此问题的解决方案。我尝试了你提供的网站,我发现我们可以添加一个等待按钮点击,然后点击功能可以工作。你可以查看我的最新答案。