请问调用谷歌浏览器代码如何写，之前调用IE浏览器都可以

aison1979

Sub Gotodigistore()
Dim ie1, I As Long, x As Long, j As Long


On Error Resume Next

Set ie1 = CreateObject("InternetExplorer.Application") '调用IE对象


With ie1
.Visible = True
.Navigate "https://shangoue.meituan.com/#/page/sellercenter/commonWrapper?tabId=2&menuId=800005" '打开网址
Do Until .ReadyState = 4 'IE加载完成方执行下一步，不然IE忙就保持程序处于等候状态
DoEvents
Loop

.Document.forms(0).all("user.user_name").Value = "bom00" '植入用户名
.Document.forms(0).all("user.user_password").Value = "digistore" '植入密码
.Document.forms(0).submit '提交登陆表单