找到个很好的例子导出excel的

作者：zy8870194 来源：51js 时间：2008-09-28 13:12:00　

如果出现 automation服务器不能创建对象
解决方法：

1、
如果是Scripting.FileSystemObject (FSO 文本文件读写)被关闭了，开启FSO功能即可，在“运行”中执行regsvr32 scrrun.dll即可

2、

安全模式设置成“中”，如果javascript脚本中报这个错误，还应将IE的安全设置“不允许运行未标记为安全的activeX控件”启用即可。

<HTML> <HEAD> <META http-equiv=Content-Type content="text/html; charset=utf-8"> <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>

标签：excel,FSO,javascript

投稿

找到个很好的例子导出excel的

猜你喜欢

asp里Sub与Function有什么区别

asp组件上传

iframe框架用JavaScript子页面控制父页面

jQuery 1.3的VS智能提示下载

asp利用XmlHttp和Adodb.Stream采集图片

FSO组件之文件操作（上）

windows7下调试ASP+ACCESS错误“未找到提供程序该程序可能未正确安装”解决办法

sql语句查询数据库中的表名/列名/主键/自动增长值实例

ASP分页函数

防止网上重复投票的方法

彻底弄懂CSS盒子模式之二（导航栏实例)

制作一个更漂亮一些的多选列表框

sqlserver 巧妙的自关联运用

自然选择:自然界的颜色与界面设计[译]

心理模型

Ajax：拥抱JSON，让XML走开

随感:交互设计两三事

快速升级MySQL系统表

ASP所有的Session变量获取实现代码

SQL文本字段的数字排序问题

找到个很好的例子导出excel的

猜你喜欢

asp里Sub与Function有什么区别

asp组件上传

iframe框架用JavaScript子页面控制父页面

jQuery 1.3的VS智能提示下载

asp利用XmlHttp和Adodb.Stream采集图片

FSO组件之文件操作（上）

windows7下调试ASP+ACCESS错误“未找到提供程序 该程序可能未正确安装”解决办法

sql语句查询数据库中的表名/列名/主键/自动增长值实例

ASP分页函数

防止网上重复投票的方法

彻底弄懂CSS盒子模式之二（导航栏实例)

制作一个更漂亮一些的多选列表框

sqlserver 巧妙的自关联运用

自然选择:自然界的颜色与界面设计[译]

心理模型

Ajax：拥抱JSON，让XML走开

随感:交互设计两三事

快速升级MySQL系统表

ASP所有的Session变量获取实现代码

SQL文本字段的数字排序问题

windows7下调试ASP+ACCESS错误“未找到提供程序该程序可能未正确安装”解决办法