打开APP
未登录
开通VIP,畅享免费电子书等14项超值服
开通VIP
首页
好书
留言交流
下载APP
联系客服
ASP表格导出EXCEL(带OFFICE版本检查和自定义文件名)
昵称10504424
>《工作》
2013.11.14
关注
解决Office的OWC版本问题。2000,2002XP,2003各不相同,加入Office的版本检查,增加一个文件名参数,完整代码如下:
<script language="javascript">
function exportExcel(atblData,dirPath)
{
//alert(dirPath);
if (typeof(atblData)=="undefined"||typeof(atblData)=="unknow")
{
alert("没有数据可以导出!");
return;
}
var mysheet;
var off2000=false;
var off2002xp=false;
var off2003=false;
//office2003
try {
mysheet=new ActiveXObject("OWC11.Spreadsheet");
off2003=true;
}
catch(e) { }
//office2002-xp
if(!off2003)
{
try {
mysheet=new ActiveXObject("OWC10.Spreadsheet");
off2002xp=true;
}
catch(e) {}
}
//office 2000
if(!off2003 && !off2002xp)
{
try {
mysheet=new ActiveXObject("OWC.Spreadsheet");
off2000=true;
}
catch(e) {}
}
if(!off2000 && !off2002xp && !off2003 )
{
alert( "请确定已安装Excel2000(或更高版本)的OWC ActiveX控件,并且没打开同名xls文件");
return;
}
with(mysheet)
{
DataType = "HTMLData";
HTMLData =atblData.outerHTML;
try{
if(off2000)
{
ActiveSheet.Export(dirPath,0);
alert('导出EXCEL文档完毕');
}
if(off2002xp)
{
Export(dirPath,0);
alert('导出EXCEL文档完毕');
}
if(off2003)
{
Export(dirPath,0);
alert('导出EXCEL文档完毕');
}
}
catch (e)
{
alert('导出Excel表失败,请确定已安装Excel2000(或更高版本),并且没打开同名xls文件');
//alert(Error.description);
}
}
}
</script>
<table id=tblData>
<tr>
<td>
</tr>
</table>
<center><input type="button" value="导出Excel文档" onclick="exportExcel(tblData,'C://sale.xls')"></center>
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报
。
打开APP,阅读全文并永久保存
查看更多类似文章
猜你喜欢
类似文章
【热】
打开小程序,算一算2024你的财运
关于C#操作EXCEL,生成图表的全面应用之二(利用Microsoft.Office.In...
Word VBA教程:OLE 编程标识符
word文件打不开检查文件名和扩展名确保文件名和扩展名正确
Excel嵌入网页
装多版本Office 设定优先打开方式 - 办公软件学习网
excel几个版本的优先打开顺序设置
更多类似文章 >>
生活服务
热点新闻
留言交流
回顶部
联系我们
分享
收藏
点击这里,查看已保存的文章
导长图
关注
一键复制
下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!
联系客服
微信登录中...
请勿关闭此页面
先别划走!
送你5元优惠券,购买VIP限时立减!
5
元
优惠券
优惠券还有
10:00
过期
马上使用
×