javascript将网页表格导出Word（转载）-白红宇

javascript将网页表格导出Word（转载）

阅读量：5265 次

发布时间：2019-06-14

本文共 6301 字，大约阅读时间需要 21 分钟。

javascript将网页表格导出Word

function AllAreaWord()

{

if(document.all("tab").rows.length==0)

{

alert("没有内容可导！");

return;

}

try{

var oWD = new ActiveXObject("Word.Application");

}catch(e)

{

alert("无法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！");

return;

}

var oDC = oWD.Documents.Add("",0,1);

var oRange =oDC.Range(0,1);

var sel = document.body.createTextRange();

sel.moveToElementText(tab); //tab 为导出数据所在的表格ID

sel.select();

sel.execCommand("Copy");

oRange.Paste();

oWD.Application.Visible = true;

}

</script>

<Tr>

</tr>

<Tr>

</tr>

<Tr>

</tr>

</table>

javascript将网页表格导出Excel

<!--

function AutomateExcel()

{

var elTable = document.getElementById("outtable"); //outtable 为导出数据所在的表格ID；

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 = null;

}

//-->

</SCRIPT>

<td width="402" colspan="7" bgcolor="#ffffcc"><div align="center">用户满意度</div></td>

</tr>

<td width="218" colspan="3" rowspan="2" bgcolor="#ffffcc">对该服务网点实施本次活动的整体评价，满分10分（平均分数）</td>

<td width="84" rowspan="3" bgcolor="#ffffcc"><div align="center">季度平均分</div></td>

</tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

在导出时弹出如下对话框的解决办法：

1、首先将网站的地址加入受信任的站点，如下图：

2、在"工具－internet选项－安全－受信任的站点"中点“自定义级别”，在“对没有标注安全的Acitvex控件进行初始化和脚本运行”中点选“禁止”或“启用”，就ok了。

如何取office版本号、安装路径和使用者

alert("您的" + wrd.Application.Caption + "安装路径为：/n" + wrd.Application.Path + "/n版本号是：" + wrd.Application.version

+ "/n注册使//用者是：" + wrd.Application.UserName)

由于项目中又提出了新需求，需要导入Wodr时文档里能自动一个表格占一页，以方便打印，于是又做了修改，支持了自动分页。并且发现了一个老是弹出语法拼写检查错误太多的Bug，进行了修复。Excel增加了一个手动设置列的宽度。二次修正并添加了新功能的代码：

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">

<head>

<title>无标题文档</title>

function AutomateWordAutoPaging(prefixion,Count)

{

var oWD = new ActiveXObject("Word.Application");

var oDC = oWD.Documents.Add("",0,1);

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.TypeText("aaa")

oWD.Selection.InsertBreak(7) //插入分页符

}

oWD.ActiveDocument.ActiveWindow.View.Type=3 //设置浏览模式

oWD.Application.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>

<TABLE class="tabp" id="Table0" cellSpacing=0 cellPadding=2 width="100%"

align=center border=1>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<BR>

<TABLE class="tabp" id="Table1" cellSpacing=0 cellPadding=2 width="100%"

align=center border=1>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<BR>

<TABLE class="tabp" id="Table2" cellSpacing=0 cellPadding=2 width="100%"

align=center border=1>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<BR>

<TABLE class="tabp" id="Table3" cellSpacing=0 cellPadding=2 width="100%"

align=center border=1>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<BR>

<TABLE class="tabp" id="Table4" cellSpacing=0 cellPadding=2 width="100%"

align=center border=1>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<BR>

</div>

</body>

</html>

转载于:https://www.cnblogs.com/zpc870921/archive/2012/09/01/2666227.html

你可能感兴趣的文章

dom4j 通用解析器，解析成List<Map<String,Object>>

查看>>

13. 用Roberts、Sobel、Prewitt和Laplace算子对一幅灰度图像进行边缘检测。观察异同。...

查看>>

第一个项目--用bootstrap实现美工设计的首页

查看>>

使用XML传递数据

查看>>

手机自带输入法emoji表情的输入，提交及显示——前端解决方案

查看>>

TYVJ.1864.[Poetize I]守卫者的挑战(概率DP)

查看>>

LOJ.6160.[美团CodeM初赛 RoundA]二分图染色(容斥组合)