VBA操作IE的错误,高手帮忙瞄一眼
Sub Go()
Dim iea
Set iea = CreateObject("InternetExplorer.Application")
With iea
.Visible = True
.navigate "http://ccrm.hupu.net/Desktop/quickLockApproval.asp"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(2).All("JGMC").Value = "test" '机构名称
.Document.Forms(2).All("JGDZ").Value = "1" '机构地址
.Document.Forms(2).All("JYFW").Value = "1" '单位简介 是textarea
End With
End Sub
问题1:每次执行到.Document.Forms(2).All("JYFW").Value = "1" 错误,因为单位简介是textarea,无法给VALUE赋值。不知道为什么。
问题2:执行 "http://ccrm.hupu.net/Desktop/quickLockApproval.asp"这个页面的时候,经常不是想要的页面,而是打开的是“服务器连接超时”的页面,就像没有登陆时,打开这个地址一样。