找到个很好的例子导出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的

猜你喜欢

django haystack实现全文检索的示例代码

手把手教你从PyCharm安装到激活（最新激活码），亲测有效可激活至2089年

一个简单的ASP计数器代码

python用线性回归预测股票价格的实现代码

python turtle绘图命令及案例

django中模板的html自动转意方法

mysql8.0.11 winx64安装配置方法图文教程(win10)

python 如何去除字符串头尾的多余符号

解决vue请求接口第一次成功,第二次失败问题

Element Carousel 走马灯的具体实现

python中struct模块之字节型数据的处理方法

MySQL中存储过程的详细详解

Python连接es之es更新操作示例详解

Python实现针对中文排序的方法

mysql命令行如何操作

使用 XMLSPY 设计项目的 Schema 原型

微信跳一跳小游戏python脚本

mysql执行计划介绍

2008北京奥运会倒计时js代码

python类继承用法实例分析