欢迎访问 如意编程网!

如意编程网

当前位置: 首页 > 前端技术 > HTML >内容正文

HTML

vba操作IE浏览器

发布时间:2024/5/15 HTML 5 豆豆
如意编程网 收集整理的这篇文章主要介绍了 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

总结

以上是如意编程网为你收集整理的vba操作IE浏览器的全部内容,希望文章能够帮你解决所遇到的问题。

如果觉得如意编程网网站内容还不错,欢迎将如意编程网推荐给好友。