点击(此处)折叠或打开

  1. <html>
  2.     <body>
  3.     <script language="javascript">
  4.     //导出excel
  5.     function exportExcel(DivID){
  6.      //先声明Excel插件、Excel工作簿等对像
  7.      var jXls, myWorkbook, myWorksheet;
  8.      try {
  9.       //插件初始化失败时作出提示
  10.       jXls = new ActiveXObject('Excel.Application');
  11.      }catch (e) {
  12.       alert("无法启动Excel!\n\n如果您确信您的电脑中已经安装了Excel,"+"那么请调整IE的安全级别。\n\n具体操作:\n\n"+"工具 → Internet选项 → 安全 → 自定义级别 → 对没有标记为安全的ActiveX进行初始化和脚本运行 → 启用");
  13.       return false;
  14.      }
  15.      
  16.      //不显示警告
  17.      jXls.DisplayAlerts = false;
  18.      
  19.      //创建AX对象excel
  20.      myWorkbook = jXls.Workbooks.Add();
  21.      //myWorkbook.Worksheets(3).Delete();//删除第3个标签页(可不做)
  22.      //myWorkbook.Worksheets(2).Delete();//删除第2个标签页(可不做)
  23.      
  24.      //获取DOM对像
  25.      var curTb = document.getElementByIdx_x(DivID);
  26.      
  27.      //获取当前活动的工作薄(即第一个)
  28.      myWorksheet = myWorkbook.ActiveSheet;
  29.      
  30.      //设置工作薄名称
  31.      myWorksheet.name="NP统计";
  32.      
  33.      //获取BODY文本范围
  34.      var sel = document.body.createTextRange();
  35.      
  36.      //将文本范围移动至DIV处
  37.      sel.moveToElementText(curTb);
  38.      
  39.      //选中Range
  40.      sel.select();
  41.      
  42.      //清空剪贴板
  43.      window.clipboardData.setData('text','');
  44.      
  45.      //将文本范围的内容拷贝至剪贴板
  46.      sel.execCommand("Copy");
  47.      
  48.      //将内容粘贴至工作簿
  49.      myWorksheet.Paste();
  50.      
  51.      //打开工作簿
  52.      jXls.Visible = true;
  53.      
  54.      //清空剪贴板
  55.      window.clipboardData.setData('text','');
  56.      jXls = null;//释放对像
  57.      myWorkbook = null;//释放对像
  58.      myWorksheet = null;//释放对像
  59.     }
  60.     </script>
  61.     <input type="button" onClick="exportExcel('tabEnterNpDiv')" value="导出表格">


09-21 12:42