<SCRIPT LANGUAGE="javascript">
//指定页面区域内容导入Excel
function AllAreaExcel(xxid)
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(xxid);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
</SCRIPT>
<input type="button" onClick="AllAreaExcel(dynr_id)" value="导到Excel">
<div id=dynr_id>
……
……
</div>