网页弹出的对话框只能用鼠标单击才能确认，如何用VBA实现？

VBA万岁

如题，有的网页弹出的对话框可以用键盘上的回车键加以确认，这种情况也很容易通过VBA实现确认；但有的网页弹出的对话框（如删除确认、删除成功确认等）则只能过鼠标单击“确认”按钮才能实现确认的。
想知道对于后一种情况，如何用VBA实现弹出对话框的确认、关闭？

VBA万岁

这个问题似乎成了Excel数据顺利自动上传至网页中必须跨跃的一道坎，论坛中虽有诸多关于此类问题的帖子，但似乎仍没见到理想的解决案例。

VBA万岁

VBA万岁 发表于 2014-9-25 10:30
这个问题似乎成了Excel数据顺利自动上传至网页中必须跨跃的一道坎，论坛中虽有诸多关于此类问题的帖子，但似 ...

反复测试之下，此问题似乎得到了一定程度的解决——
奇怪，我将网页弹出的对话框中的“确定”按钮视作链接标签（即“a"标签），然后用VBA去单击（Click)它，居然可以达到手工确认的效果。
我是用以下循环去批量确认删除公司内网中录入草稿中的记录时弹出的对话框的：
......
        For Each a In .Document.all.tags("a")
            If a.innerText = "确定" Then a.Click: Exit For
        Next
        t = Timer
        Do While t + 1 > Timer
            DoEvents
        Loop
        SendKeys ("{enter}")
......
说明：以上代码中SendKeys ("{enter}")这一句的作用并不是确认弹出的对话框，而是在对话框被确认后再次确认系统弹出的一个alert框。确认对话框的代码是：If a.innerText = "确定" Then a.Click: Exit For

VBA万岁

VBA万岁 发表于 2014-9-25 16:06
反复测试之下，此问题似乎得到了一定程度的解决——
奇怪，我将网页弹出的对话框中的“确定”按钮视作 ...

我不知道3楼的代码为什么会通过，还望有高人能帮忙解释、指点一下。
补充一点：3楼弹出的网页对话框用键盘回车键是无法确认的。

HHAAMM

有消息框弹出的页面，一般使用js来处理
WebBrowser1.Document.parentWindow.execScript("window.confirm=function (){return true;}", "javascript")

HHAAMM

window 浏览器对象
confirm 消息框
function (){return true;}是js函数，这里返回true
总的意思是，给当前浏览器对象中弹出的消息框赋一个true值

VBA万岁

HHAAMM 发表于 2014-9-25 17:48
window 浏览器对象
confirm 消息框
function (){return true;}是js函数，这里返回true

多谢版主关注与帮助！

VBA万岁

HHAAMM 发表于 2014-9-25 17:35
有消息框弹出的页面，一般使用js来处理
WebBrowser1.Document.parentWindow.execScript("window.confirm=f ...

多谢版主关注与帮助！
不过我用你的代码会出错，去掉小括号（如下）不会出错，但仍未达到预期效果。
不过相信此句代码在我以后的工作中一定会给我带来不少帮助。
WebBrowser1.Document.parentWindow.execScript "window.confirm=function (){return true;}", "javascript"

mailzhoutao

刚开始我也是用3楼代码 后来自己分析网页确认按钮的nameid来click的也可以，但是后者有可能不成功，不知道为什么

stilljay

mailzhoutao 发表于 2015-11-2 22:40
刚开始我也是用3楼代码 后来自己分析网页确认按钮的nameid来click的也可以，但是后者有可能不成功，不知道 ...

后来自己分析网页确认按钮的nameid来click的也可以
请问具体是如何实现的，我这边弹出的窗体是模态对话框，也可以通过这个方法吗请问？