通过复制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>