如何在VBA中调用JavaScript函数?
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了如何在VBA中调用JavaScript函数?,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1769字,纯文字阅读大概需要3分钟。
内容图文
![如何在VBA中调用JavaScript函数?](/upload/InfoBanner/zyjiaocheng/709/4b6c683e093b4ce7991a449bafa600a8.jpg)
我需要通过IE确认’确定’/’取消’弹出消息.我在VBA脚本中运行JavaScript函数时遇到问题.我的JavaScript:
function ConfirmSave()
{
var Ok = confirm('Are you sure all Documents and Information are attached and correct before saving?');
if(Ok)
return true;
else
return false;
}
function submitbutton_click() {
document.getElementById('FileAttachement2_hdnButtonFlag').value = "SAVE";
var submitbutton = document.getElementById('cmdDownSave');
var uploadobj=document.getElementById('FileAttachement2_Uploader1');
if(!window.filesuploaded)
{
if (!ConfirmSave()) return false;
if(uploadobj.getqueuecount()>0)
{
uploadobj.startupload();
}
else
{
//var uploadedcount=parseInt(submitbutton.getAttribute("itemcount"))||0;
//if(uploadedcount>0)
//{
return true;
//}
//alert("Please browse files for upload");
}
return false;
}
window.filesuploaded=false;
return true;
}
在手动过程中,当我单击“保存”按钮时,页面将弹出一个确认消息框,当弹出窗口出现时,我的宏将停止运行,除非单击该按钮.
这是我试过的代码,点击保存按钮,
Set ElementNameV = HTMLDoc.getElementsByName("cmdsave")
ElementNameV(0).click
我也尝试使用removeattribute和setattribute,弹出消息消失但它没有上传文件,因为我需要按下确认消息框中的’确定’,单击保存按钮开始文件上传时出现.
ElementNameV(0).removeAttribute ("onclick")
ElementNameV(0).setAttribute "onclick", "return true"
ElementNameV(0).click
我尝试使用下面的脚本运行JavaScript函数,但它也显示确认弹出消息框:
Call HTMLDoc.parentWindow.execScript("submitbutton_click()")
解决方法:
你应该能够用一个只返回true的函数覆盖ConfirmSave函数:
HTMLDoc.parentWindow.execScript "window.ConfirmSave = function(){return true;};"
要么
HTMLDoc.parentWindow.execScript "window.confirm = function(){return true;};"
甚至
HTMLDoc.parentWindow.eval "window.confirm = function(){return true;};"
在单击按钮之前运行它.
经过测试并在IE11中运行
内容总结
以上是互联网集市为您收集整理的如何在VBA中调用JavaScript函数?全部内容,希望文章能够帮你解决如何在VBA中调用JavaScript函数?所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。