VBA – 处理Javascript自动popupIE浏览器
我已经自动化了我的Internet Explorer，以便在整个Web表单中填写大量的信息。 当我的VBA脚本点击转移htmlelement它运行Javascript打开一个新的msgbox，我需要点击“确定”或“取消”。 我希望我的脚本点击“确定”。 这将停止代码，直到对JavaScript创build的popup窗口进行任何进一步的操作，因此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("ctl00$PlaceHolderMain$TestControl1 $CertificateSearchControl$cmdTransfer", "", true, "Transfer", "", false, false))" style="border-width:0px;" /> 我使用以下命令来调用传输button：
Set HTMLDoc = ie.document HTMLDoc.all.Item("ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_cmdTransfer").Click
任何人都可以帮我find解决这个问题？
在另一篇文章中已经回答了类似的问题，但我似乎无法得到解决scheme在我的脚本中工作。
处理popup窗口，同时浏览IE浏览器
所有的帮助将会受到极大的关注。
更新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; }
更新01042015（不是愚人节玩笑）
<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&Version=11.0.3010.3&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&Version=11.0.3010.3&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>
我与ID "ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_Button"进行交互，使菜单下拉，但select“导出为PDF”或“导出到Excel”正在挑战我一点点。 任何build议来解决这个问题将非常感激。
你可以尝试这样的事情：
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）：
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)