javascript通过复制Table生成word和excel

最新推荐文章于 2024-04-09 11:37:50 发布

dragonzoebai

最新推荐文章于 2024-04-09 11:37:50 发布

阅读量1.7k

点赞数

分类专栏： C#Excel javascript C#word 文章标签： JavaScript excel word table

javascript 同时被 3 个专栏收录

15 篇文章 0 订阅

订阅专栏

C#word

7 篇文章 0 订阅

订阅专栏

C#Excel

3 篇文章 0 订阅

订阅专栏

<!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自动分页"  οnclick="AutomateWordAutoPaging('Table',5)" />
	<input type="button" value="导出到Excel控制列宽" οnclick="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>

dragonzoebai

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
javascript通过复制Table生成word和excel

无标题文档 function AutomateWordAutoPaging(prefixion,Count) { var oWD = new ActiveXObject("Word.Application"); var oDC = oWD.Documents.Add(); oDC.ShowGrammaticalErrors = false; //屏蔽语法检查
复制链接

扫一扫

专栏目录