萬盛學電腦網

 萬盛學電腦網 >> 腳本專題 >> javascript >> 通過復制Table生成word和excel的javascript代碼

通過復制Table生成word和excel的javascript代碼

 通過復制Table生成word和excel,個人感覺這個功能還是比較實用的,下面有個不錯的示例,希望對大家有所幫助

代碼如下: <!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自動分頁" 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> 
copyright © 萬盛學電腦網 all rights reserved