表格到Excel

我已经测试过了，应该没有问题！<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>a</title>
</head>
<body><span id=report1><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="20%">a</td>
    <td width="20%">werwerwe</td>
    <td width="20%">werwerwer</td>
    <td width="20%">f</td>
    <td width="20%">afdasdf</td>
  </tr>
  <tr>
    <td width="20%">x</td>
    <td width="20%">b</td>
    <td width="20%">a</td>
    <td width="20%">a</td>
    <td width="20%">a</td>
  </tr>
  <tr>
    <td width="20%">asdffdsa</td>
    <td width="20%">sadf</td>
    <td width="20%">werwerw</td>
    <td width="20%">f</td>
    <td width="20%">fd</td>
  </tr>
  <tr>
    <td width="20%">asdfsadfasdfasf</td>
    <td width="20%">swerw</td>
    <td width="20%">werwe</td>
    <td width="20%">f</td>
    <td width="20%">f</td>
  </tr>
</table></span>
<script>
  function bringToExcel(){   // get all the text
   var pasteText = document.all.report1.innerHTML;   // copy all the text to clipboard
   window.clipboardData.setData ("Text", pasteText);     // Start Excel and get Application object.     
     var oXL = new ActiveXObject("Excel.Application");     
     oXL.Visible = true;   
     // Get a new workbook.     
     var oWB = oXL.Workbooks.Add();     
     var oSheet = oWB.ActiveSheet;     
     oSheet.Paste();     
     oXL.Visible = true;     
     oXL.UserControl = true;
  } 
</script>
<input type="button" onclick="bringToExcel()" value="导出到Excel"></body>
</html>