您现在的位置： 万盛学电脑网 >> 程序编程 >> 脚本专题 >> javascript >> 正文
通过复制Table生成word和excel的javascript代码
作者：佚名 责任编辑：admin 更新时间：2022-06-22
通过复制Table生成word和excel，个人感觉这个功能还是比较实用的，下面有个不错的示例，希望对大家有所帮助
代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> <script language="javascript"> function AutomateWordAutoPaging(prefixion,Count) { var oWD = new ActiveXObject("Word.Application"); var oDC = oWD.Documents.Add(); oDC.ShowGrammaticalErrors = false; //屏蔽语法检查 oDC.ShowSpellingErrors = false; //屏蔽拼写检查 var oRange =oDC.Range(0,1); for (i=0;i<Count;i++) { var sel = document.body.createTextRange(); var TableName = prefixion+i; var Table = document.getElementById(TableName) sel.moveToElementText(Table); sel.select(); sel.execCommand("Copy"); oWD.Selection.Paste(); oWD.Selection.InsertBreak(); //插入分页符 } //oWD.ActiveDocument.ActiveWindow.View.Type=3 //设置浏览模式 oWD.Visible = true; }; function AutomateExcel(prefixion) { var elTable = document.getElementById("AutomateExcel"); var oRangeRef = document.body.createTextRange(); oRangeRef.moveToElementText(elTable); oRangeRef.execCommand("Copy"); try{ var appExcel = new ActiveXObject( "Excel.Application" ); }catch(e) { alert("无法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！"); return; } appExcel.Visible = true; appExcel.Workbooks.Add().Worksheets.Item(1).Paste(); appExcel.Workbooks(1).Worksheets.Item(1).Columns("A:A").ColumnWidth = 100; //appExcel.Workbooks(1).Worksheets.Item(1).Columns("B:B").ColumnWidth = 21; appExcel = null }; </script> </head> <body> <input type="button" value="导出到Word自动分页" onclick="AutomateWordAutoPaging('Table',5)" /> <input type="button" value="导出到Excel控制列宽" onclick="AutomateExcel('Table')"/> <div id="AutomateExcel"> <TABLE class=tabp id="Table0" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <TR> <TD width="100%" align="center">标题0</TD> </TR> <TR> <TD align="center">内容0</TD> </TR> </TABLE> <BR> <TABLE class=tabp id="Table1" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <TR> <TD width="100%" align="center">标题1</TD> </TR> <TR> <TD align="center">内容1</TD> </TR> </TABLE> <BR/> <TABLE class=tabp id="Table2" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <TR> <TD width="100%" align="center">标题2</TD> </TR> <TR> <TD align="center">内容2</TD> </TR> </TABLE> <BR/> <TABLE class=tabp id="Table3" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <TR> <TD width="100%" align="center">标题3</TD> </TR> <TR> <TD align="center">内容3</TD> </TR> </TABLE> <BR/> <TABLE class=tabp id="Table4" cellSpacing=0 cellPadding=2 width="100%" align=center border=1> <TR> <TD width="100%" align="center">标题4</TD> </TR> <TR> <TD align="center">内容4</TD> </TR> </TABLE> <BR/> </div> </body> </html>- 上一个程序编程： js给页面加style无效果的解决方法
- 下一个程序编程： Javascript实现Linq查询方式
