vba操作IE浏览器

'打开页⾯

'⽅法⼀

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="#{ds}" var="rcd">

<h:inputHidden id="recordData" value="#{t}" />

</ui:repeat>

vba访问web页⾯List项⽬

离线浏览For i = 0 To count

dataID = "sendForm:recordList:" & i "recordData"

objie.Document.GetElementById(dataID).Value = “strContent”

如果strContent⼜是List类型，将strContent中数据⽤特殊符号隔开拼接成字符串，然后java侧再解析

'触发页⾯按钮

objie.Document.GetElementById("buttonID").Click

'等待请求终了

Do While objie.Busy

DoEvents

Loop

'等待画⾯刷新完了

Do While adystate <> "complete"

DoEvents

Loop

本文发布于:2024-09-21 04:22:29，感谢您对本站的认可！

标签：等待数据隔开特殊符号拼接

留言与评论（共有 0 条评论）