与谷歌获得地址为优秀

我试图导航到谷歌，然后写一个地方，如“超市X在Y国”，然后在谷歌出现在市场的照片和下面的地址。

所以我希望在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 

结束小组

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

谢谢