拍拍尘土

<script language="javascript">
function AllAreaExcel(ID)
  {
    var oXL = new ActiveXObject("Excel.Application");
    var oWB = oXL.Workbooks.Add();
    var oSheet = oWB.ActiveSheet;
    var sel=document.body.createTextRange();
    sel.moveToElementText(ID);
    sel.select();
    sel.execCommand("Copy");
    oSheet.Paste();
    oXL.Visible = true;
  }
</script>
使用:利用<div id="test">要保存的页面内容</div><input type="button" OnClick="AllAreaExcel(test)" value="保存为Excel">点击按钮后即可.