excel導出

          Posted on 2007-08-27 09:54 冰江獨行 閱讀(263) 評論(0)  編輯  收藏
          function AllAreaExcel()
          {
          var oXL = new ActiveXObject("Excel.Application");
          var oWB = oXL.Workbooks.Add();
          var oSheet = oWB.ActiveSheet;
          var sel=document.body.createTextRange();
          sel.moveToElementText(bb);
          sel.select();
          sel.execCommand("Copy");
          oSheet.Paste();
          oXL.Visible = true;
          }
          function CellAreaExcel()
          {
          var oXL = new ActiveXObject("Excel.Application");
          var oWB = oXL.Workbooks.Add();
          var oSheet = oWB.ActiveSheet;
          var Lenr = bb.rows.length;
          for (i=0;i<Lenr;i++)
          {
          var Lenc = bb.rows(i).cells.length;
          for (j=0;j<Lenc;j++)
          {
          oSheet.Cells(i+1,j+1).value = bb.rows(i).cells(j).innerText;
          }
          }
          oXL.Visible = true;
          }


          要導出時調用以上JS就可以了,其中bb為table表單的id。
          還有要對瀏覽器進行設置:工具-internet選項-安全-自定義級別,對沒有標記為安全的ActiveX控件……這一項啟用。
          這樣就OK了。

          只有注冊用戶登錄后才能發表評論。


          網站導航:
           

          posts - 15, comments - 15, trackbacks - 0, articles - 2

          Copyright © 冰江獨行

          主站蜘蛛池模板: 出国| 凤翔县| 隆子县| 三门县| 南郑县| 镇巴县| 贡山| 赤峰市| 洪泽县| 云浮市| 买车| 库尔勒市| 大同县| 潞城市| 若羌县| 榆中县| 贵德县| 西昌市| 周口市| 丹东市| 龙泉市| 崇信县| 万州区| 漳州市| 香港| 景洪市| 汤阴县| 武乡县| 惠来县| 全椒县| 彩票| 丹寨县| 台中县| 鄄城县| 昂仁县| 牡丹江市| 金门县| 太和县| 邓州市| 长乐市| 东至县|