JavaScript利用ActiveX导出Excel,Word

liss

浏览: 842885 次
性别:
来自: 广州

最近访客更多访客>>

akacd

石不易

844700118

Agy0514

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

JavaScript

Excel JavaScript J#Web HTML

<HTML>
　　 <HEAD>
　　 <title>WEB页面导出为EXCEL文档的方法
　　 </title>
　　 </HEAD>
　　<body>
　　<BR>
　　<table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13">
　　<TR style="text-align : center;">
　　<TD>单元格A</TD>
　　<TD>单元格A</TD>
　　<TD>单元格A</TD>
　　<TD>单元格A</TD>
　　</TR>
　　<TR>
　　<TD colSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">单元格合并行A</FONT></TD>
　　</TR>
　　</TABLE>
　　<BR>
　　<table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0">
　　<TR style="text-align : center;">
　　<TD>单元格B</TD>
　　<TD>单元格B</TD>
　　<TD>单元格B</TD>
　　<TD>单元格B</TD>
　　</TR>
　　<TR>
　　<TD colSpan=4 style="text-align : center;">单元格合并行B</TD>
　　</TR>
　　</TABLE>
　　<br><br><br>
　　<input type="button" onclick="javascript:AllAreaWord();" value="导出页面指定区域内容到Word">
　　<input type="button" onclick="javascript:AllAreaExcel();" value="导出页面指定区域内容到Excel">
　　<input type="button" onclick="javascript:CellAreaExcel();" value="导出表单单元格内容到Excel">
　　<SCRIPT LANGUAGE="javascript">
　　//指定页面区域内容导入Excel
　　function AllAreaExcel() 
　　{
　　 var oXL = new ActiveXObject("Excel.Application"); 
　　 var oWB = oXL.Workbooks.Add(); 
　　 var oSheet = oWB.ActiveSheet; 
　　 var sel=document.body.createTextRange();
　　 sel.moveToElementText(PrintA);
　　 sel.select();
　　 sel.execCommand("Copy");
　　 oSheet.Paste();
　　 oXL.Visible = true;
　　}
　　//指定页面区域“单元格”内容导入Excel
　　function CellAreaExcel() 
　　{
　　 var oXL = new ActiveXObject("Excel.Application"); 
　　 var oWB = oXL.Workbooks.Add(); 
　　 var oSheet = oWB.ActiveSheet; 
　　 var Lenr = PrintA.rows.length;
　　 for (i=0;i<Lenr;i++) 
　　 { 
　　 var Lenc = PrintA.rows(i).cells.length; 
　　 for (j=0;j<Lenc;j++) 
　　 { 
　　 oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText; 
　　 } 
　　 } 
　　 oXL.Visible = true; 
　　}
　　//指定页面区域内容导入Word
　　function AllAreaWord()
　　{
　　 var oWD = new ActiveXObject("Word.Application");
　　 var oDC = oWD.Documents.Add("",0,1);
　　 var oRange =oDC.Range(0,1);
　　 var sel = document.body.createTextRange();
　　 sel.moveToElementText(PrintA);
　　 sel.select();
　　 sel.execCommand("Copy");
　　 oRange.Paste();
　　 oWD.Application.Visible = true;
　　 //window.close();
　　}
　　</SCRIPT>
　　</body>
</html>

分享到：

javascript拖动小例子 | 使用 JavaScript 获取 table 行号和列号

2010-01-20 13:00
浏览 1128
评论(0)
分类:Web前端
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论

JavaScript利用ActiveX导出Excel,Word

评论

发表评论

相关推荐

最近访客 更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论

JavaScript利用ActiveX导出Excel,Word

评论

发表评论

相关推荐

javascript面向对象之一 类

javascript面向对象之二 命名空间

网页特效代码

js 操作select 大全

Dialog 超酷js弹出层 完美兼容所有浏览器 华丽呈现超强功能

IE6对display:table-row不支持

javascript中字符串转化为json对象

IE6的base标签导致页面结构大混乱

汇总让IE6崩溃的几种方法

JS添加事件处理函数

js压缩工具

Javascript 中 ShowModalDialog 的使用方法

xtree的基本应用---入门级

javascript实现上传图片前的预览效果

重写window.confirm函数

改善window的alert提示信息框样式

jsgraphics图形库

JavaScript图形库jsGraphics

千一JS控件

JavaScript 生成曲线图

最近访客更多访客>>

javascript面向对象之一类

javascript面向对象之二命名空间

Dialog 超酷js弹出层完美兼容所有浏览器华丽呈现超强功能