Question

Sub BrowseToSite()

    Dim IE As New SHDocVw.InternetExplorer
    'Set IE = New SHDocVw.InternetExplorer

    IE.Visible = True
    IE.Navigate "www.bigbasket.com"

    Do While IE.ReadyState <> READYSTATE_COMPLETE
        Application.Wait Now + TimeValue("00:00:02")
        DoEvents
    Loop


    Debug.Print IE.LocationName; IE.LocationURL
    IE.Document.forms("input").elements("text").Value = "tomato"
    IE.Document.forms("input").elements("go").Click


End Sub

运行时显示

运行时错误424-必需对象。

该怎么办？

Answer 1

您正在使用早期绑定，因此需要确保您拥有适当的参考。

同样重要的是，您已注释掉SET行。

要解决：删除撇号并测试。如果您遇到相同的错误，请检查参考。如果您仍然遇到错误，请回来告诉我们具体的位置。该错误应突出显示违规行。

Answer 2

尝试使用此代码..尽管没有引发错误，但我无法很好地处理搜索按钮，但是搜索按钮似乎无法正常工作

Sub BrowseToSite()
Dim ie As New SHDocVw.InternetExplorer

ie.Visible = True
ie.navigate "www.bigbasket.com"

Do While ie.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

Debug.Print ie.LocationName; ie.LocationURL
ie.document.all.Item("input").Value = "tomato"
ie.document.getElementsByClassName("input-group-btn")(0).getElementsByTagName("button")(0).Click
End Sub

运行时错误'424'-必需对象

2 个答案: