js将HTML中table导出到EXCEL word (只支持IE) 另用php 配合AJAX可以支持所有浏览器

转载请注明来源:https://www.cnblogs.com/hookjc/

<HTML>  
  <HEAD>  
    <title>WEB页面导出为EXCEL文档的方法  
    </title>  
  </HEAD>  
<body>  
<BR>  
<table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13">  
<TR style="text-align : center;">  
 <TD>单元格A</TD>  
 <TD>单元格A</TD>  
 <TD>单元格A</TD>  
 <TD>单元格A</TD>  
</TR>  
<TR>  
 <TD colSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">单元格合并行A</FONT></TD>  
</TR>  
</TABLE>  
<BR>  
<table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0">  
<TR style="text-align : center;">  
 <TD>单元格B</TD>  
 <TD>单元格B</TD>  
 <TD>单元格B</TD>  
 <TD>单元格B</TD>  
</TR>  
<TR>  
 <TD colSpan=4 style="text-align : center;">单元格合并行B</TD>  
</TR>  
</TABLE>  
<br><br><br>  
<input type="button" onclick="javascript:AllAreaWord();" value="导出页面指定区域内容到Word">  
<input type="button" onclick="javascript:AllAreaExcel();" value="导出页面指定区域内容到Excel">  
<input type="button" onclick="javascript:CellAreaExcel();" value="导出表单单元格内容到Excel">  
<SCRIPT LANGUAGE="javascript">  
 //指定页面区域内容导入Excel  
 function AllAreaExcel()   
 {  
  var oXL = new ActiveXObject("Excel.Application");   
  var oWB = oXL.Workbooks.Add();   
  var oSheet = oWB.ActiveSheet;    
  var sel=document.body.createTextRange();  
  sel.moveToElementText(PrintA);  
  sel.select();  
  sel.execCommand("Copy");  
  oSheet.Paste();  
  oXL.Visible = true;  
 }  
 //指定页面区域“单元格”内容导入Excel  
 function CellAreaExcel()   
 {  
  var oXL = new ActiveXObject("Excel.Application");   
  var oWB = oXL.Workbooks.Add();   
  var oSheet = oWB.ActiveSheet;   
  var Lenr = PrintA.rows.length;  
  for (i=0;i<Lenr;i++)   
  {   
   var Lenc = PrintA.rows(i).cells.length;   
   for (j=0;j<Lenc;j++)   
   {   
    oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText;   
   }   
  }   
  oXL.Visible = true;   
 }  
 
 //指定页面区域内容导入Word  
 function AllAreaWord()  
 {  
  var oWD = new ActiveXObject("Word.Application");  
  var oDC = oWD.Documents.Add("",0,1);  
  var oRange =oDC.Range(0,1);  
  var sel = document.body.createTextRange();  
  sel.moveToElementText(PrintA);  
  sel.select();  
  sel.execCommand("Copy");  
  oRange.Paste();  
  oWD.Application.Visible = true;  
  //window.close();  
 }  
</SCRIPT>  
</body></html>  

 

 

 

--------------------------------------------------------------------------------------------------------------------

 

 

/*** ajax传到服务器端处理****/

 /**
 * 导出电子表格
 *
 * @param NULL
 *
 * @return NULL
 */
 function _excel()
 {
  $code=preg_replace(
   array("/<td([^>]+)>/i","/TD>/","/<a[^>]+>/i","/<\/A>/i","/<td>([\d\.]+)<\/td>/i"),
   array("<td>","td>","","","<td x:num>$1</td>"),
   $_POST['tblCode']);
  header('Cache-Control: public');
  header('Content-type: application/vnd.ms-excel');
  header('Content-Disposition: filename=dfd.xls');$this->setVar('tblCode',$code);
 }

 $_POST['tblCode']="<tbody><tr class=\"stattr0\"> <th>&nbsp;ertertert</th> <th>&nbsp;ertertert</th> <th>&nbsp;retertert</th> <th>&nbsp;ertert</th> <th>&nbsp;asdfasdf</th> <th>&nbsp;asadfasdf</th> <td>&nbsp;etretert</td> <td>&nbsp;ertert</td> </tr> <tr> <th>&nbsp;sadfasdfasdf</th> <td>&nbsp;496</td> <td>&nbsp;2642</td> <td>&nbsp;2489</td> <td>&nbsp;5131</td> <td>&nbsp;10.34</td> <td>&nbsp;5.98</td> <td>&nbsp;3</td> </tr> </tbody>";

来源:python脚本自动迁移

posted @ 2020-06-29 11:06  jiangcheng_15  阅读(248)  评论(0编辑  收藏  举报