VBA-通过IE自动化处理Javascript弹出窗口

我已经自动化了我的Internet Explorer，在整个Web表单中填写了大量信息。当我的VBA脚本单击transfer HtmleElement时，它会运行Javascript，打开一个新的msgbox，我需要在其中单击“确定”或“取消”。我想让我的脚本点击“确定”到这个。这将停止代码，直到对javascript创建的弹出窗口执行任何进一步操作，因此Sendkeys将不起作用。以下元素来自我尝试与之交互的网页的HTML：

<input type="image" name="ctl00$PlaceHolderMain$TestControl$
                  CertificateSearchControl$cmdTransfer"
id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_cmdTransfer"
class="kantele-small-icon" src="../../_layouts/Images/Empty.gif" 
alt="Transfer" 
onclick="return confirmOnTransfer();WebForm_DoPostBackWithOptions(new   
 WebForm_PostBackOptions(&quot;ctl00$PlaceHolderMain$TestControl1
 $CertificateSearchControl$cmdTransfer&quot;, &quot;&quot;, true,   
  &quot;Transfer&quot;, &quot;&quot;, false, false))" 
  style="border-width:0px;" />

有人能帮我找到解决这个问题的办法吗

另一篇帖子也回答了类似的问题，但我似乎无法在我的脚本中找到解决方案

所有的帮助都将受到极大的感谢

更新08032015:

function confirmOnTransfer() {        

if (typeof (Page_ClientValidate) == "function" && Page_ClientValidate()) {

  var volume = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_txtCertificateCount').value.trim();
  var oDDL = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_ddlTransferDomain');
  var oDDL2 = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_ddlTransferActor');
  var oDDL3 = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_ddlTransferAccount');
  var checkbox = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_chkAcc');
  var selectedVolume = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_hdnFinalVolume').value.trim();

//Issue 3982: 1496 - Error: Agreement date is after transaction date
  var contractDateDefaultValue = 0;
       if (document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_txtContractDate') != null) {

       var currentDate = new Date();
       var currmonth;
       var currDate;

// in java script the month is saved to array in array starts to zero so the if getmonth() means we canot retrieve current month so we should add +1
                    var currmonth = currentDate.getMonth() + 1;
                    //In our application the date should be "2013-06-20" so here the month or date length is less than two means we should add '0' to bfore the date or month
                    if (currmonth.toString().length < 2)
                        currmonth = '0' + currmonth;

                    var currDate = currentDate.getDate();
                    if (currentDate.getDate().toString().length < 2)
                        currDate = '0' + currDate;

                    var currentDateText = currentDate.getFullYear() + '-' + currmonth + '-' + currDate;

                    var currentDateArr = currentDateText.toString().split('-');

                    var ContactDateArr = document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_txtContractDate').value.toString().split('-');

                    if (ContactDateArr[0] > currentDateArr[0]
                    || (ContactDateArr[0] == currentDateArr[0] && currentDateArr[1] == ContactDateArr[1] && currentDateArr[2] < ContactDateArr[2])
                    || (ContactDateArr[0] == currentDateArr[0] && currentDateArr[1] < ContactDateArr[1])) {
                        alert(document.getElementById('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_hdnContractDateValidation').value)
//if the alert received means we should assign this value based on this value we control to next condition to confirmation of transfer alert
                        contractDateDefaultValue = 1;
                        return false;
                    }

函数confirmOnTransfer（）{
if（typeof（Page_ClientValidate）=“函数”和Page_ClientValidate（））{
var volume=document.getElementById（'ctl00\u占位符main\u TestControl1\u CertificateSearchControl\u txtCertificateCount'）。value.trim（）；
var oDDL=document.getElementById（'ctl00_占位符main_TestControl1_CertificateSearchControl_ddlTransferDomain'）；
var oDDL2=document.getElementById（'ctl00_占位符main_TestControl1_CertificateSearchControl_ddlTransferActor'）；
var oDDL3=document.getElementById（'ctl00\u占位符main\u TestControl1\u CertificateSearchControl\u ddlTransferAccount'）；
var checkbox=document.getElementById（'ctl00\u占位符main\u TestControl1\u CertificateSearchControl\u chkAcc'）；
var selectedVolume=document.getElementById（'ctl00\u占位符main\u TestControl1\u CertificateSearchControl\u hdnFinalVolume'）。value.trim（）；
//问题3982:1496-错误：协议日期在交易日期之后
var contractDateDefaultValue=0；
if（document.getElementById（'ctl00\u占位符main\u TestControl1\u CertificateSearchControl\u txtContractDate'）！=null）{
var currentDate=新日期（）；
每月的风险值；
货币日期；
//在java脚本中，月份保存到数组中的数组开始为零，因此if getmonth（）意味着我们无法检索当前月份，因此我们应该添加+1
var currmonth=currentDate.getMonth（）+1；
//在我们的应用程序中，日期应为“2013-06-20”，因此此处的月份或日期长度小于2意味着我们应在日期或月份之前添加“0”
if（current.toString（）.length<2）
currmonth='0'+currmonth；
var currDate=currentDate.getDate（）；
如果（currentDate.getDate（）.toString（）.length<2）
currDate='0'+currDate；
var currentDateText=currentDate.getFullYear（）++'-'+currmonth++'-'+currDate；
var currentDateArr=currentDateText.toString（）.split（'-'）；
var ContactDateArr=document.getElementById（'ctl00\u占位符main\u TestControl1\u CertificateSearchControl\u txtContractDate'）。value.toString（）.split（'-'）；
如果（ContactDateArr[0]>currentDateArr[0]
||（ContactDateArr[0]==currentDateArr[0]¤tDateArr[1]==ContactDateArr[1]¤tDateArr[2]

更新01042015（不是aprils愚人笑话）

|

---

我与ID

“ctl00\u Placeholder Main\u TestControl1\u CertificateSearchControl\u CertificateBundlerReport\u ctl05\u ctl04\u ctl00\u按钮”交互，以获得下拉菜单，但选择“导出到PDF”或“导出到Excel”你对我有点挑战。任何解决这个问题的建议都将不胜感激。
你可以尝试以下方法：

  Dim el, f

  Set HTMLDoc = ie.document
  Set el =HTMLDoc.getElementById("ctl00_PlaceHolderMain_TestControl1_" & _ 
                                 "CertificateSearchControl_cmdTransfer")

  f = el.onclick

  f = Replace(f, "return confirmOnTransfer();", "")

  el.onclick = f

  el.click

第2部分（4/1/2015）：

函数的作用是什么

看起来怎么样？嗨，蒂姆，我已经用ConfirmOnTransfer函数更新了问题部分。我看到你在上一个主题中帮助了这个人，我希望你能帮助我解决这个问题。我忘了感谢你的回答，非常感谢。我做得很好。我还有一个谜语，希望你能回答帮助我解决问题。我正在从同一页提取报告，但另一个java脚本让我头疼。当我单击网页上的“保存”图标时，会出现一个包含两个项目的下拉列表。我可以让我的VBA脚本单击“初始保存”按钮，但选择这两个选项之一似乎是一项不可能完成的任务。我已在q中更新了代码考试部分，这是一个附加的问题。很好，我让它开始工作了

                        <td height="28px"><input name="ctl00$PlaceHolderMain$TestControl1$CertificateSearchControl$CertificateBundleReport$ctl05$ctl03$ctl00" type="text" maxlength="255" size="10" id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl03_ctl00" disabled="disabled" title="Find Text" style="font-family:Verdana;font-size:8pt;" /></td><td width="4px"></td><td height="28px"><a id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl03_ctl01" title="Find" href="#" style="font-family:Verdana;font-size:8pt;color:Gray;text-decoration:none;white-space:nowrap;">Find</a></td><td width="4px"></td><td height="28px"><span style="font-family:Verdana;font-size:8pt;">|</span></td><td width="4px"></td><td height="28px"><a id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl03_ctl03" title="Find Next" href="#" style="font-family:Verdana;font-size:8pt;color:Gray;text-decoration:none;white-space:nowrap;">Next</a></td>
                                </tr>
                            </table>
                        </div><table cellpadding="0" cellspacing="0" ToolbarSpacer="true" style="display:inline-block;width:20px;">
                            <tr>
                                <td></td>
                            </tr>
                        </table><div class=" " style="display:inline-block;font-family:Verdana;font-size:8pt;vertical-align:top;">
                            <table cellpadding="0" cellspacing="0" style="display:inline;">
                                <tr>
                                    <td height="28px"><div id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00" style="font-family:Verdana;font-size:8pt;border:1px transparent Solid;">
                                        <table id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_Button" title="Export" border="0">
                                            <tr>
                                                <td><a id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_ButtonLink" title="Export" alt="Export" href="javascript:void(0)" style="text-decoration:none;"><img id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_ButtonImg" src="/Reserved.ReportViewerWebControl.axd?OpType=Resource&amp;Version=11.0.3010.3&amp;Name=Microsoft.Reporting.WebForms.Icons.ExportDisabled.gif" alt="Export" style="border-style:None;height:16px;width:16px;border-width:0px;" /><span style="width:5px;text-decoration:none;"> </span><img id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_ButtonImgDown" src="/Reserved.ReportViewerWebControl.axd?OpType=Resource&amp;Version=11.0.3010.3&amp;Name=Microsoft.Reporting.WebForms.Icons.ArrowDownDisabled.gif" alt="Export" style="border-style:None;height:6px;width:7px;border-width:0px;margin-bottom:5px;" /></a></td>
                                            </tr>
                                        </table>
                                    </div><div id="ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_Menu" style="background-color:#ECE9D8;border:1px #336699 Solid;display:none;position:absolute;padding:1px;z-index:1;">
                                        <div style="border:1px transparent Solid;">
                                            <a title="Excel" alt="Excel" onclick="$find('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport').exportReport('EXCELOPENXML');" href="javascript:void(0)" style="color:#3366CC;font-family:Verdana;font-size:8pt;padding:3px 8px 3px 8px;display:block;white-space:nowrap;text-decoration:none;">Excel</a>
                                        </div><div style="border:1px transparent Solid;">
                                            <a title="PDF" alt="PDF" onclick="$find('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport').exportReport('PDF');" href="javascript:void(0)" style="color:#3366CC;font-family:Verdana;font-size:8pt;padding:3px 8px 3px 8px;display:block;white-space:nowrap;text-decoration:none;">PDF</a>
                                        </div><div style="border:1px transparent Solid;">
                                            <a title="Word" alt="Word" onclick="$find('ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport').exportReport('WORDOPENXML');" href="javascript:void(0)" style="color:#3366CC;font-family:Verdana;font-size:8pt;padding:3px 8px 3px 8px;display:block;white-space:nowrap;text-decoration:none;">Word</a>
                                        </div>
                                    </div></td>
                                </tr>
                            </table>

  Dim el, f

  Set HTMLDoc = ie.document
  Set el =HTMLDoc.getElementById("ctl00_PlaceHolderMain_TestControl1_" & _ 
                                 "CertificateSearchControl_cmdTransfer")

  f = el.onclick

  f = Replace(f, "return confirmOnTransfer();", "")

  el.onclick = f

  el.click

  Dim el2
  'get the div containing the menu options
  Set el2 = HTMLDoc.getElementById( _
                "ctl00_PlaceHolderMain_TestControl1_Certificate" & _
               "SearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_Menu")

  'click one of the contained links in that div
  el2.getElementsByTagName("a")(1)