`
sun201200204
  • 浏览: 303251 次
  • 性别: Icon_minigender_1
  • 来自: 深圳
社区版块
存档分类
最新评论

js制作导出excel数据

    博客分类:
  • j2ee
阅读更多
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>

<body>
<table border='1' id="viewtable">
<tr>
 <td>1</td>
 <td>2</td>
 <td>3</td>
 <td>4</td>
 <td>5</td>
</tr>
<tr>
 <td>6</td>
 <td>7</td>
 <td>8</td>
 <td>9</td>
 <td>10</td>
</tr>
<tr>
 <td>11</td>
 <td>12</td>
 <td>13</td>
 <td>14</td>
 <td>15</td>
</tr>
<tr>
 <td>16</td>
 <td>17</td>
 <td>18</td>
 <td>19</td>
 <td>20</td>
</tr>
</table>
<form method=post action="">
<input type="button" value='导出到EXCEl' onclick="AutomateExcel(viewtable)">
</form>
</body>
</html>
<script language="JavaScript">
<!--
  function   AutomateExcel(viewtable)     
  {     
      //Start   Excel   and   get   Application   object.     
      var   oXL   =   new   ActiveXObject("Excel.Application");     
      //Get   a   new   workbook.     
      var   oWB   =   oXL.Workbooks.Add();     
      var   oSheet   =   oWB.ActiveSheet;     
      var   table   =   viewtable;     
      var   hang   =   table.rows.length;     
    
      var   lie   =   table.rows(0).cells.length;     
    
      //   Add   table   headers   going   cell   by   cell.     
      for   (i=0;i<hang;i++){     
          for   (j=0;j<lie;j++)   {     
              oSheet.Cells(i+1,j+1).value   =   table.rows(i).cells(j).innerText;   }     
      }     
      oXL.Visible   =   true;     
      oXL.UserControl   =   true;     
  }
/*
function  printToExcel()  {  
window.clipboardData.setData("Text",document.all('viewtable').outerHTML); 
try 
{ 
var  ExApp  =  new  ActiveXObject( "Excel.Application"); 
var  ExWBk  =  ExApp.workbooks.add() ;
var  ExWSh  =  ExWBk.worksheets(1) ;
ExApp.DisplayAlerts  =  false ;
ExApp.visible  =  true ;
}  
catch(e) 
{ 
alert( "您的电脑没有安装Microsoft  Excel软件! ") ;
return  false ;
}  
ExWBk.worksheets(1).Paste;  
} 

 

  function AutomateExcel() 
{ var oXL = new ActiveXObject("Excel.Application"); 
var oWB = oXL.Workbooks.Add(); 
var oSheet = oWB.ActiveSheet; 
var table =  viewtable; 
var hang = table.rows.length; 
var lie = table.rows(0).cells.length; 
for (i=0;i<hang;i++) 
{ for (j=0;j<lie;j++) 
{ oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; 
}} oXL.Visible = true; 
oXL.UserControl = true; 
} 
*/
//-->
</script>

 

分享到:
评论
1 楼 jiaxun2008 2009-02-23  
朋友你的代码没有注释..能给个注释吗?我QQ18830325 谢谢

相关推荐

Global site tag (gtag.js) - Google Analytics