vba调用html触发js,javascript – 使用VBA处理IE弹出窗口

我有一个Excel VBA宏,它通过Internet Explorer与Intranet站点交互,遍历客户列表,打开客户配置文件,更新字段并保存更改.

我遇到的问题是,当我将更改保存到客户配置文件时,Web应用程序中有一个弹出窗口,要求我确认其配置文件的更改,我无法弄清楚如何以编程方式单击“确定“在弹出窗口中.当我单击保存按钮时,javascript会执行函数调用以提交更改.

发送密钥不起作用,因为在确认弹出窗口之前代码不会执行下一行.我尝试了一些其他提到的解决方案,但无法使它们正常工作(javascript部分对我来说是新的).

任何有关如何以编程方式单击“确定”让我的代码安静运行的帮助将非常感激.

VBA代码：

'pulling up edit user profile link

s = objIE.document.getElementsByTagName("a")(4).href

objIE.navigate s

'wait here a few seconds while the browser is busy

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

'Adding value to customers profile and saving changes

objIE.document.all.Item("Contact_Id").Value = Sheets("List").Range("c" & n).Value

objIE.document.all.Item("submitBn").Click

'wait here a few seconds while the browser is bus