function    toExcel(tablename){   //导出到excel
       var    mysheet=new    ActiveXObject("OWC.Spreadsheet");   
       with(mysheet){   
       DataType    =    "HTMLData";   
       HTMLData    =tablename.outerHTML;   
      try{   
          ActiveSheet.Cells(1,1).value="";   
          ActiveSheet.Cells(2,1).value="";   
          //        ActiveSheet.Cells(34,1).value="导出完毕";   
        ActiveSheet.Export("c:\\前6周发货预测系数表.xls",    0);   
        alert('导出完毕');   
        window.close();   
     }; catch    (e){   
         alert('导出Excel表失败，请确定已安装Excel2000(或更高版本),并且没打开同名xls文件');   
         window.close();  

本文转自 netcorner 博客园博客，原文链接：http://www.cnblogs.com/netcorner/archive/2007/04/02/2912401.html  ，如需转载请自行联系原作者