Question

我试图导航到谷歌，然后在州Y＆＃34;写一个类似＆＃34;超市X的地方。然后在谷歌出现了市场和下面的地址的照片。

所以我希望在google中设置商店，而不是将地址设置为excel中的Cell。

我唯一的代码：

Sub search()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
    .Visible = False
    .Navigate ("https://www.google.com")
While .Busy Or .readyState <> 4: DoEvents: Wend
.document.getElementById("lst-ib").Value = "vida" ' ID of TextBox of google
.document.all("sblsbb").Click ' ID of the search button of google
End With

End Sub

但我得到的错误是最后一行。

感谢＆＃39; S

Answer 1

“ Vida”即使在首页也不一定要带回商店。

这将为您进行搜索，然后您需要确定下一步要做什么。

Option Explicit
Public Sub HitThatSearchButton()
    Dim ie As New InternetExplorer
    Const URL As String = "https://www.google.com/"
    With ie
        .Visible = True
        .navigate URL
        While .Busy Or .readyState < 4: DoEvents: Wend

        .document.querySelector("#lst-ib").Value = "Vida"
        .document.querySelector("input[value='Google Search']").Click

        While .Busy Or .readyState < 4: DoEvents: Wend

        Stop                                     '<== Delete me
        .Quit
    End With
End Sub

获取谷歌excel的地址

1 个答案: