<script>

// 這個代碼可以大大減少IE下的當前頁面的Excel導出工作量
// 如果不能正確執行, 請把當前站點加入可信站點并調低安全級 參考圖片: IE添加可信站點.png
// 導出為Excel, 參數為 HTML 或者 表格代碼, 如: "A\tB", xxx.innerHTML
function printToExcel(html) {
? 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軟件！")
??? return false
? }
? window.clipboardData.setData("Text", html);?
? ExWBk.worksheets(1).Paste;
? ExWBk.worksheets(1).Columns.AutoFit;
? ExWBk.worksheets(1).Rows.AutoFit;
}
?? // 將 HTML 表格導出為 Excel
? function?? exportToExcel(table)???
? {
????? if(confirm("確認要導出嗎?")){
????? //?? Start?? Excel?? and?? get?? Application?? object.?
????? var?? oXL?? =?? new?? ActiveXObject("Excel.Application");???
????? //?? Get?? a?? new?? workbook.?
????? var?? oWB?? =?? oXL.Workbooks.Add();?
????? var?? oSheet?? =?? oWB.ActiveSheet;
????? var?? hang?? =?? table.rows.length;????
????? var?? lie?? =?? table.rows(0).cells.length;??????
????? //?? Add?? table?? headers?? going?? cell?? by?? cell.?
????? for?? (i=0;i<hang;i++)?
????? {?
????? for?? (j=0;j<lie;j++)?
????? {?
????? oSheet.Cells(i+1,j+1).Value?? =?? table.rows(i).cells(j).innerText;?
????? }????
????? }?
????? oXL.Visible?? =?? true;?
????? oXL.UserControl?? =?? true;??????
????? }
? }
//printToExcel("A\tB");
</script>
<!-- 以下為數據區 -->
<div id="dataArea">
<font color=red>2009年豬流感統計表</font>
??? <table border="1"? cellpadding="0" style="border-collapse: collapse; " bordercolor="#000000">
<tbody><tr>
<td>&nbsp;<b>編號</b></td>
<td>&nbsp;<b>用戶名</b></td></tr>
<tr>
<td>&nbsp;1</td>
<td>&nbsp;金正日</td></tr>
<tr>
<td>&nbsp;2</td>
<td>&nbsp;薩達姆</td></tr>
</tbody>

</table>

</div>
<script>
if(confirm("是否導出表格數據為 Excel?")) {
??? printToExcel(dataArea.innerHTML);
}
</script>

?

IE下用JavaScript動態生成excel