使用excel VBA在网页中出现javascript警告时，无法单击/排除/通过ok。

Question

我试图点击网站的下载按钮从excel，在onclick事件中的javascript已被调用，这将从页面检索数据，并转换成csv格式，并下载为excel文件。在这里我可以点击按钮，但它会触发弹出窗口和宏执行冻结，直到我们点击网页中的“确定”，我不能使用send keys和window locate method，因为宏在onclick操作中被冻结。我尝试了许多方法，但都不起作用，我不能单独用“”替换onclick函数，因为在执行下载代码的函数的第一行编码的警报弹出窗口，所以我不能覆盖它。

代码隐藏按钮：

​

<input id="Download" onclick="loadDataForDownload();" type="button" value="Download Data Report">

​

Java脚本(只有几行，因为它很大)

 Function loadDataForDownload(){
  alert("This transaction may take few minutes");
  var total ="0.00";

尝试的方法：

With HTMLdoc.parentWindow
  .execScript "window.confirm = function(){return true;};", "JScript"
  .execScript "loadDataForDownload();", "JScript"
End With

使用发送密钥

Application.SendKeys ("{Enter}")

这里根本没有执行sendkeys函数，因为当网页中出现弹出窗口时，宏会暂停执行

弹出画面截图：

​

​

请帮助我如何排除/点击ie中的javascript警告弹出窗口。

Answer 1

你重写了window.confirm，但是js使用了alert，这不是一回事：

With HTMLdoc.parentWindow
   .execScript "window.alert = function(){return true;};", "JScript"
  .execScript "loadDataForDownload();", "JScript"
End With