[求助]如何设置变量控件

beenet

如下代码完成网页填写功能。
如字段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

自顶一目 求高手出手