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

　　<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

　　<head>

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

　　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>

　　<TR>

　　</TR>

　　<TR>

　　</TR>

　　</TABLE>

　　<BR>

　　<TR>

　　</TR>

　　<TR>

　　</TR>

　　</TABLE>

　　<BR/>

　　<TR>

　　</TR>

　　<TR>

　　</TR>

　　</TABLE>

　　<BR/>

　　<TR>

　　</TR>

　　<TR>

　　</TR>

　　</TABLE>

　　<BR/>

　　<TR>

　　</TR>

　　<TR>

　　</TR>

　　</TABLE>

　　<BR/>

　　</div>

　　</body>

　　</html>

教程首页更多教程