gpt4 book ai didi

javascript - VBA - 使用 IE 自动化处理 Javascript 弹出窗口

转载 作者:行者123 更新时间:2023-11-28 01:34:37 25 4
gpt4 key购买 nike

我已经让我的 Internet Explorer 自动填写整个网络表单中的大量信息。当我的 VBA 脚本单击传输 html 元素时,它会运行 Javascript,它会打开一个新的 msgbox,我需要在其中单击“确定”或“取消”。我希望我的脚本为此单击“确定”。这将停止代码,直到对 javascript 创建的弹出窗口进行任何进一步操作,因此 Sendkeys 将不起作用。以下元素来 self 尝试与之交互的网页的 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;" />

我使用以下命令来调用“传输”按钮:

Set HTMLDoc = ie.document
HTMLDoc.all.Item("ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_cmdTransfer").Click

谁能帮我找到解决这个问题的方法?

类似的问题已在另一篇文章中得到解答,但我似乎无法在我的脚本中找到解决方案。

Handle Pop-Up While Navigating with 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&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>

我与 ID “ctl00_PlaceHolderMain_TestControl1_CertificateSearchControl_CertificateBundleReport_ctl05_ctl04_ctl00_Button” 进行交互以使菜单下拉,但是选择“导出为 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 部分(2015 年 4 月 1 日):

  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)

关于javascript - VBA - 使用 IE 自动化处理 Javascript 弹出窗口,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28899726/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com