如何通过 excel vba 单击 JavaScript 确认弹出窗口

Question

我正在使用 InternetExplorer 对象与网页进行交互，填写表格等等。有一次，单击页面上的按钮后会弹出一个对话框，要求确认操作。如何单击弹出窗口中的“确定”按钮？

相关的JavaScript和HTML是：

function CheckMakeCurr() 
{
    if(confirm('Are you sure you want to set the\n "Last Rebalance Date" to today?')) 
        { return true; }
    else
        { return false; }
};

...

<INPUT onclick="return CheckMakeCurr()" class=button type=submit value="Make Current" name=updaterebaldt>

Excelvba代码为：

Dim oInput As IHTMLInputElement

' Initialize oInput.
...

' Click oInput.
oInput.click

' The confirm box comes up. What now?

Answer 1

在单击 link 之前，删除触发弹出窗口的 onclick 处理程序：

oInput.onclick = ""
oInput.click

如何通过 excel vba 单击 JavaScript 确认弹出窗口

How to click a JavaScript confirm popup via excel vba

vba

dom