VBA操作IE的错误,高手帮忙瞄一眼

gukuta 2009-02-26 11:05:12
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"这个页面的时候,经常不是想要的页面,而是打开的是“服务器连接超时”的页面,就像没有登陆时,打开这个地址一样。
...全文
112 点赞 收藏 1
写回复
1 条回复
gengzhw 2009年03月16日
你的第3个 form 里有没有 <textarea id=JYFW name=JYFW></textarea> 域?

这句代码应该没有错误
回复 点赞
发动态
发帖子
Office开发/ VBA
创建于2007-08-27

4460

社区成员

1.7w+

社区内容

其他开发语言 Office开发/ VBA
社区公告
暂无公告