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

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> 

Excel的VBA代码是：

Dim oInput As IHTMLInputElement 

' Initialize oInput. 
... 

' Click oInput. 
oInput.click 

' The confirm box comes up. What now? 

Answer 1

您点击链接之前，请取出onclick触发弹出窗口的句柄：

oInput.onclick = "" 
oInput.click