溫馨提示:您的每一次轉載,體現了我寫此文的意義!!!煩請您在轉載時注明出處http://www.aygfsteel.com/sxyx2008/謝謝合作!!!

          雪山飛鵠

          溫馨提示:您的每一次轉載,體現了我寫此文的意義!!!煩請您在轉載時注明出處http://www.aygfsteel.com/sxyx2008/謝謝合作!!!

          BlogJava 首頁 新隨筆 聯系 聚合 管理
            215 Posts :: 1 Stories :: 674 Comments :: 0 Trackbacks

          公告

          Locations of visitors to this page

          常用鏈接

          留言簿(18)

          隨筆分類(222)

          隨筆檔案(214)

          文章檔案(1)

          收藏夾(67)

          我的鏈接

          搜索

          最新評論

          閱讀排行榜

          評論排行榜

           核心JavaScript代碼

          <script type="text/javascript">
                  
          function bringToExcel(){  
                       
          var pasteText="全部統計表 ";     
                       pasteText
          =pasteText+document.all.ExcelBiao.innerHTML;
                       window.clipboardData.setData (
          "Text", pasteText);   
                       
          var oXL = new ActiveXObject("Excel.Application");     
                       oXL.Visible 
          = true;     
                       
          var oWB = oXL.Workbooks.Add();     
                       
          var oSheet = oWB.ActiveSheet;     
                       oSheet.Paste();     
                       oXL.Visible 
          = true;     
                       oXL.UserControl 
          = true;
                  }  
                  
          //導出word  
                  function OpenWord2(){  
                      ExcelSheet 
          = new ActiveXObject('Word.Application');
                      ExcelSheet.Application.Visible 
          = true;
                      
          var mydoc=ExcelSheet.Documents.Add('',0,0);
                      myRange 
          =mydoc.Range(0,1);
                      myRange 
          =mydoc.Range(myRange.End-1,myRange.End);//設定起始點    
                      var sel=document.body.createTextRange();
                      sel.moveToElementText(AoutWord);
          //設置要導出的表格名稱
                      sel.select();
                      document.execCommand('Copy');
                      sel.moveEnd('character');
                      myRange.Paste();
                      myRange 
          =mydoc.Range(myRange.End-1,myRange.End);
                      myRange.InsertAfter(
          "\n");
                      ExcelSheet.ActiveWindow.View.TableGridlines 
          = false;
                  } 
                  
          </script>

          具體看附件
          ExportWordAndExcel

          posted on 2011-12-13 11:51 雪山飛鵠 閱讀(2191) 評論(2)  編輯  收藏 所屬分類: js

          Feedback

          # re: js導出表格數據到word、excel 2016-08-12 09:53 21
          1地方  回復  更多評論
            

          # re: js導出表格數據到word、excel 2016-08-12 09:53 21
          1231  回復  更多評論
            

          主站蜘蛛池模板: 抚远县| 新乡市| 郧西县| 江安县| 黄平县| 普兰县| 武城县| 颍上县| 苗栗县| 汤原县| 吉安市| 合川市| 哈巴河县| 古浪县| 广州市| 日照市| 上栗县| 石城县| 措美县| 文化| 手游| 龙胜| 都昌县| 迁西县| 镇雄县| 遵义市| 栖霞市| 鸡泽县| 马鞍山市| 锡林郭勒盟| 遂昌县| 晋宁县| 丰县| 化隆| 济南市| 梓潼县| 临泽县| 绥德县| 双江| 合水县| 定州市|