Office中国论坛/Access中国论坛

标题: [求助]如何设置变量控件 [打印本页]

作者: beenet 时间: 2009-4-30 11:36
标题: [求助]如何设置变量控件
如下代码完成网页填写功能。
如字段TEXT1,TEXT2,TEXT3...
在一般情况下，用me("text" & i)=值即可，但在如下Doc.body.all("Text1").Value = 111中却不能使用。
不知大虾能否提供帮助！

谢谢！

'需要引用Microsoft Internet Controls对象
Dim Titles, LocalNames As String
Dim IEList As New SHDocVw.ShellWindows
Dim Doc
Dim I, ii, iii As Integer
Dim clName As String
Titles = "表单填写"
ii = IEList.Count
For I = 0 To ii - 1 '遍历当前浏览器窗口
      LocalNames = Left(IEList.Item(I).LocationName, Len(Trim(Titles))) '找到需要的IE窗口
      If LocalNames = Trim(Titles) Then '获得浏览器文档对象,填写表单
         Set Doc = IEList.Item(I).Document

               Doc.body.all("Text1").Value = 111
               Doc.body.all("Text2").Value = 222
               Doc.body.all("Text3").Value = 333
               '...

         Exit Sub
      End If
Next

作者: beenet 时间: 2009-5-3 11:27
自顶一目求高手出手

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)