1. HTML code 
  2.  
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"  
  4. "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
  5. <html xmlns="http://www.w3.org/1999/xhtml">  
  6. <head>  
  7.     <meta http-equiv="Content-Type" content="text/html; charset=gbk"/>  
  8.     <title>WEB页面导出为EXCEL文档的方法</title>  
  9. </head>  
  10. <body>  
  11. <table id="tableExcel" width="100%" border="1" cellspacing="0" cellpadding="0">  
  12.     <tr>  
  13.         <td colspan="5" align="center">WEB页面导出为EXCEL文档的方法</td>  
  14.     </tr>  
  15.     <tr>  
  16.         <td>列标题1</td>  
  17.         <td>列标题2</td>  
  18.         <td>列标题3</td>  
  19.         <td>列标题4</td>  
  20.         <td>列标题5</td>  
  21.     </tr>  
  22.     <tr>  
  23.         <td>aaa</td>  
  24.         <td>bbb</td>  
  25.         <td>ccc</td>  
  26.         <td>ddd</td>  
  27.         <td>eee</td>  
  28.     </tr>  
  29.     <tr>  
  30.         <td><div>AAA</div></td>  
  31.         <td>BBB</td>  
  32.         <td>CCC</td>  
  33.         <td>DDD</td>  
  34.         <td>EEE</td>  
  35.     </tr>  
  36.     <tr>  
  37.         <td>FFF</td>  
  38.         <td>GGG</td>  
  39.         <td>HHH</td>  
  40.         <td>III</td>  
  41.         <td>JJJ</td>  
  42.     </tr>   
  43. </table>  
  44. <input type="button" οnclick="javascript:method1('tableExcel');" value="导入到EXCEL">  
  45. <SCRIPT LANGUAGE="javascript">  
  46. var idTmr ; 
  47.  
  48.  
  49. function method1(tableid) {//整个表格拷贝到EXCEL中  
  50.  
  51.     var curTbl = document.getElementById(tableid);  
  52.     var oXL = new ActiveXObject("Excel.Application");  
  53.     //创建AX对象excel  
  54.     var oWB = oXL.Workbooks.Add();  
  55.     //获取workbook对象  
  56.     var xlsheet = oWB.Worksheets(1); 
  57.     //激活当前sheet  
  58.     var sel = document.body.createTextRange();  
  59.     sel.moveToElementText(curTbl);  
  60.     //把表格中的内容移到TextRange中  
  61.     sel.select();  
  62.     //全选TextRange中内容  
  63.     sel.execCommand("Copy");  
  64.     //复制TextRange中内容   
  65.     xlsheet.Paste();  
  66.     //粘贴到活动的EXCEL中        
  67.     oXL.Visible = true;  
  68.     //设置excel可见属性  
  69.  
  70.     try{ 
  71.         var fname = oXL.Application.GetSaveAsFilename("save.xls", "Excel Spreadsheets (*.xls), *.xls"); 
  72.     }catch(e){ 
  73.         print("Nested catch caught " + e); 
  74.     }finally{ 
  75.         oWB.SaveAs(fname); 
  76.  
  77.         oWB.Close(savechanges=false); 
  78.          //xls.visible = false; 
  79.         oXL.Quit(); 
  80.         oXL=null; 
  81.          //结束excel进程，退出完成 
  82.          //window.setInterval("Cleanup();",1); 
  83.         idTmr = window.setInterval("Cleanup();",1); 
  84.  
  85.     } 
  86. }  
  87. function Cleanup() { 
  88.     window.clearInterval(idTmr); 
  89.     CollectGarbage(); 
  90.   } 
  91. </SCRIPT>  
  92. </body>  
  93. </html>