使用javascript导如到EXECL

//全部打印到excel表
function   AutomateExcelall()  
  {  
              var   i,j;   
                     var   oXL   =   new   ActiveXObject("Excel.Application");  
   
              oXL.Visible   =   true;   

                var   oWB   =   oXL.Workbooks.Add();  
              var   oSheet   =   oWB.ActiveSheet;   
             oSheet.Cells(1,   1).Value   =   "编号";  
             oSheet.Cells(1,   2).Value   =   "姓名";  
              oSheet.Cells(1,   3).Value   =   "地址"; 
         
    //tblout是<table>的id
          for(i=1;i<tblout.rows.length;i++)  
    {
          for(j=1;j<tblout.rows(i).cells.length;j++)  
    {
          oSheet.Cells(i+1,   j).Value   =   tblout.rows(i).cells(j).innerText 
    }
    }
              oXL.Visible   =   true;  
              oXL.UserControl   =   true;  
  }