通过复制Table生成word和excel的javascript代码

时间:2021-05-25

复制代码 代码如下:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://mand("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>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章