求助用VBA自动登陆网页无法自动填写的问题

amoygirl

Sub 登陆()
Dim Myuser, Mypassword
Dim web As New InternetExplorer
Dim time1 As Single

Myuser = Cells(Selection.Row, 3)
Mypassword = Selection

With web
.Visible = True
.navigate "http  wsbsfwt1.xmtax.gov.cn:8001/"

time1 = Timer
Do
     DoEvents
Loop While Timer - time1 < 2

到目前都一切顺利可以打开指定网页，但是就是无法自动输入用户名和密码，使用过以下几个方法都不行
方法一：
.Document.GetElementByName("loginId").Value = Myuser
.Document.GetElementByName("userPassword").Value = Mypassword

方法二：
.Document.Forms("loginForm").Elements("loginId").Value = Myuser
.Document.Forms("loginForm").all("qyPassword").Value = Mypassword

方法三：
.Document.all("loginId").Value = Myuser        
.Document.all("qyPassword").Value = Mypassword

方法四：
.Document.GetElementById("loginId").Value = Myuser
.Document.GetElementById("userPassword").Value = Mypassword

End With

End Sub


求助有哪位懂得大侠帮忙解决一下？？？无论使用什么方法都无法自动填写用户名和密码

amoygirl

上面的网址中间的://去掉了，不然不让发。。。

上清宫主

除第一个以外的三个本机上都可运行。
第一个不可运行的原因是GetElementsByName返回的是集合（注意与你的区别，里面多了个s），所以改成GetElementsByName("loginId")(0)就可以运行了

amoygirl

上清宫主 发表于 2018-9-25 10:03
除第一个以外的三个本机上都可运行。
第一个不可运行的原因是GetElementsByName返回的是集合（注意与你的 ...

是也能填入账号和密码吗？？我是可以运行，可是不能自动填入账号密码不过我装的是猎豹浏览器，不知道为什么系统只能设edge为默认浏览器，但是如果把猎豹浏览器卸载了，运行就会出错，在set那就会说出错