导出Excel脚本

function ExportExcel()
{                     
     try
     {
          var oXL = new ActiveXObject("Excel.Application");
          var oWB = oXL.Workbooks.Add();
          var oSheet = oWB.ActiveSheet; 
          var sel=document.body.createTextRange();
          sel.moveToElementText(ListPage1_Table);
          sel.select();
          sel.execCommand("Copy");
          oSheet.Paste();
          oXL.Visible = true;
     }
     catch(e)
     {
          alert('导出失败!请调整您的IE安全设置。');
          return false;
     }
     return false;
}
posted @ 2011-04-09 15:02  玉门关内客  阅读(281)  评论(0编辑  收藏  举报