请教VBA代码怎么控制showModalDialog页面？

Kil1 · 发表于 2018-7-7 15:05

基础.html
<html>
<head>
<title>showModalDialog</title>
<script type="text/javascript">
function sMD(){
window.showModalDialog("弹出.html",window);
}
</script>
</head>
<body>
<input id="MD" type="button" value="showModalDialog"/>
</body>
</html>

弹出.html
<html>
<head>
<title>ModalDialog</title>
</head>
<body>
品种：<select>
<option value ="volvo">Volvo</option>
<option value ="UK">UK</option>
<option value="YORK">YORK</option>
<option value="audi">Audi</option>
</select><br>
年份：<input value=""/><br>
<input type="submit" value="提交"/>
</body>
</html>

从“基础.html”点击showModalDialog按钮，弹出“弹出.html”，此时VBA代码访问不到“弹出.html”，请教如何依次完成下面三个动作：
1、品种：选择Audi
2、年份：输入2018
3、提交：点击

jokklx · 发表于 2018-7-7 17:14

好险是真不行，据说vb是单线程的，好像没办法处理。反正是提交数据，要不你试试xmlhttp或者winhttp？绕过一切弹窗、网页元素，直达本源。稳定，快速

Kil1 · 发表于 2018-7-9 21:10

？？？？？？？？？？

小fisher · 发表于 2018-7-10 10:24

可以先通过弹出页面窗口的类名和标题获取窗口句柄，然后通过句柄获取网页DOM对象，之后就可以用正常方式操作了

Kil1 · 发表于 2018-7-10 23:05

小fisher 发表于 2018-7-10 10:24
可以先通过弹出页面窗口的类名和标题获取窗口句柄，然后通过句柄获取网页DOM对象，之后就可以用正常方式操 ...

你好！
通过
oIE.document.getElementById("MD").Click
一句自动点击“基础.html”页面的button按钮，弹出“弹出.html”页面，然后通过
doc.getElementsByTagName("select")(0).selectedIndex = 3
doc.getElementsByTagName("input")(0).Value = "2018"
doc.getElementsByTagName("input")(1).Click
这三句完成弹窗页面内容的自动填充，整个过程完全交由程序自动完成，这正是我真实环境所需要的。
但是按照你指出的“'自动打开ModalDialog IE窗口的代码，但是从IE弹窗出现到关闭之前，VBA代码会停止运行”，是否这个过程没法自动执行？谢谢！

小fisher · 发表于 2018-7-11 11:00

Kil1 发表于 2018-7-10 23:05
你好！
通过
oIE.document.getElementById("MD").Click

如果你有权限修改“基础.html”的内容，可以考虑用showModelessDialog替换showModalDialog，如果是第三方网站，暂时还没有好的解决办法

Kil1 · 发表于 2018-7-13 21:10

小fisher 发表于 2018-7-11 11:00
如果你有权限修改“基础.html”的内容，可以考虑用showModelessDialog替换showModalDialog，如果是第三方 ...

谢谢你的代码，这两天我已放到真实场景中测试，程序能按它的本意顺畅运行，若代码能再精简些则更好，再次感谢你的分享。

		自动登录	找回密码
密码			免费注册

[求助] 请教VBA代码怎么控制showModalDialog页面？

评分