WebBrowser自动循环填表的问题

zydscaline zydscaline 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
单位内部网络,用网页的形式做了个工作流程,我想弄个自动填写表单并提交的小等程序,把excell表中的数据逐个填到网页中并提交,,现在第一步怎么做的代码已经了来了,就是因为网络的不稳定,需要等网页完全打开才能进行下一步的操作,想请教下,到底应该怎么写Private Sub WebBrowser1_Document(ByValpDisp As Object, URL As Variant) 里的语句:

Private Sub Command1_Click()
'打开excell文件,
for i=m to n
'在这儿怎么写??
next
end sub

Private Sub WebBrowser1_Document(ByValpDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.Object) Then
webbrowser1.document.all(i).value=sh.cells(i,2) '赋值
webbrowser1.document.all(i).click '找到按钮并点击提交,代码未写全哦
end if

那么下一步进行类似的操作怎么写?因为要走三步这样的程序才能完成一个表单的提交

...全文

相关推荐

评论 6
收藏 已收藏
分享
返回顶部
zydscaline
网络编程 1,502 成员 18,427 内容