<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WEB頁面導出為EXCEL文檔的方法</title>
</head>
<body>
<table id="tableExcel" width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td colspan="5" align="center">
WEB頁面導出為EXCEL文檔的方法
</td>
</tr>
<tr>
<td>
列標題1
</td>
<td>
列標題2
</td>
<td>
列標題3
</td>
<td>
列標題4
</td>
<td>
列標題5
</td>
</tr>
<tr>
<td>
aaa
</td>
<td>
</td>
<td>
ccc
</td>
<td>
ddd
</td>
<td>
eee
</td>
</tr>
<tr>
<td>
AAA
</td>
<td>
</td>
<td>
CCC
</td>
<td>
DDD
</td>
<td>
EEE
</td>
</tr>
<tr>
<td>
FFF
</td>
<td>
GGG
</td>
<td>
HHH
</td>
<td>
III
</td>
<td>
JJJ
</td>
</tr>
</table>
<input type="button" onclick="javascript:method1('tableExcel');" value="第一種方法導入到EXCEL">
<script language="javascript">
function method1(tableid) {//整個表格拷貝到EXCEL中
var curTbl = document.getElementById(tableid);
var oXL = new ActiveXObject("Excel.Application"); //創建AX對象excel
var oWB = oXL.Workbooks.Add(); //獲取workbook對象
var oSheet = oWB.ActiveSheet; //激活當前sheet
var sel = document.body.createTextRange();
sel.moveToElementText(curTbl); //把表格中的內容移到TextRange中
sel.select(); //全選TextRange中內容
sel.execCommand("Copy"); //復制TextRange中內容
oSheet.Paste(); //粘貼到活動的EXCEL中
oXL.Visible = true; //設置excel可見屬性
}
</script>
</body>
</html>
