vba操作IE浏览器

Set objShell = CreateObject("Shell.Application")
For n = 1 To objShell.Windows.count
    Set objie = objShell.Windows(n)
    If Right(UCase(objie.FullName), 12) = "IEXPLORE.EXE" Then
        If (0 < InStr(objie.LocationURL, "要访问的地址(http://localhost:8080/test/login.jsp)")) Then
          'objie 就是要访问的ie对象
        end if
    end if
next n

'打开页面
'方法一
objie.navigate(ipAddress, 1, "ExcelSubmitWin")
'方法二 非active打开
objie.navigate2（ipAddress, &H1000, "ExcelSubmitWin"）

'设置页面项目的值 （页面的boolean类型可以直接赋值TRUE）
objie.Document.GetElementById("userID").Value = "root"

'多条数据设置
    web页面List项目
    <ui:repeat id="recordList" value="#{testDto.records}" var="rcd">
        <h:inputHidden id="recordData" value="#{rcd.content}" />
   </ui:repeat>
    vba访问web页面List项目
   For i = 0 To count
       dataID = "sendForm:recordList:" & i "recordData"
       objie.Document.GetElementById(dataID).Value = “strContent”
   next
   如果strContent又是List类型，将strContent中数据用特殊符号隔开拼接成字符串，然后java侧再解析

'触发页面按钮
objie.Document.GetElementById("buttonID").Click

'等待请求终了
Do While objie.Busy
   DoEvents
Loop

'等待画面刷新完了
Do While objie.Document.readystate <> "complete"
    DoEvents
Loop