js将表格内容导出到excel

<input type="button" name="out_word1" onclick="javascript:AutomateExcel()" value="导出到excel" class="btn01" />

 

function AutomateExcel(){ 
  // 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 = document.all.list;
  var hang = table.rows.length;
  var lie = table.rows(1).cells.length;  //获取第一行的列数

  //oSheet.Cells(1,1).value = '涉路站点';
 // oSheet.Cells(1,2).value = '涉路站点号';
 // oSheet.Cells(1,3).value = '所属辖区';
 // oSheet.Cells(1,4).value = '地址';
 // oSheet.Cells(1,5).value = '联系人';
 // oSheet.Cells(1,6).value = '类型';
  //oSheet.Cells(1,7).value = '操作';
  
  for (var i=1;i<hang;i++){ 
   for (var j=1;j<lie;j++){ 
    oSheet.Cells(i+1,j).value = table.rows(i).cells(j).innerText;  //赋值
   } 
  } 
        
       oXL.Selection.HorizontalAlignment = -4108;        //'xlHAlignCenter   横向居中
       oXL.Selection.VerticalAlignment = -4108;          //'xlVAlignCenter   竖向居中
       oSheet.Columns.AutoFit; //自动适应大小
   oXL.Visible = true;   //设置excel可见属性
   oXL.UserControl = true;  //excel交由用户控制
}