列表数据转换Excel

1,为页面加脚本
<script language="javascript">
function preview(obj) {
window.clipboardData.setData("Text",document.all(obj).outerHTML);
try
{
var ExApp = new ActiveXObject("Excel.Application")
var ExWBk = ExApp.workbooks.add()
var ExWSh = ExWBk.worksheets(1)
ExApp.DisplayAlerts = false
ExApp.visible = true
} 
catch(e)
{
alert("您的电脑没有安装Microsoft Excel软件\n或是没有将本网站添加到安全站点中！")
return false
}
 ExWBk.worksheets(1).Paste; 
 }
</script>

2,添加转换按钮
<tr>
   <td>
         <INPUT class="btn_Xp_Bg2" id="btnExcel" onclick="preview('divOutExcel') ;return false; "
        type="button" value="转换Excel" name="button_Excel" runat="server">
   </td>
</tr>

3,把要转换的部分用
<div id="divOutExcel">.......</div>扩起来