溫馨提示:您的每一次轉(zhuǎn)載,體現(xiàn)了我寫此文的意義!!!煩請(qǐng)您在轉(zhuǎn)載時(shí)注明出處http://www.aygfsteel.com/sxyx2008/謝謝合作!!!

          雪山飛鵠

          溫馨提示:您的每一次轉(zhuǎn)載,體現(xiàn)了我寫此文的意義!!!煩請(qǐng)您在轉(zhuǎn)載時(shí)注明出處http://www.aygfsteel.com/sxyx2008/謝謝合作!!!

          BlogJava 首頁(yè) 新隨筆 聯(lián)系 聚合 管理
            215 Posts :: 1 Stories :: 674 Comments :: 0 Trackbacks

           核心JavaScript代碼

          <script type="text/javascript">
                  
          function bringToExcel(){  
                       
          var pasteText="全部統(tǒng)計(jì)表 ";     
                       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;
                  }  
                  
          //導(dǎo)出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);//設(shè)定起始點(diǎn)    
                      var sel=document.body.createTextRange();
                      sel.moveToElementText(AoutWord);
          //設(shè)置要導(dǎo)出的表格名稱
                      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 雪山飛鵠 閱讀(2188) 評(píng)論(2)  編輯  收藏 所屬分類: js

          Feedback

          # re: js導(dǎo)出表格數(shù)據(jù)到word、excel 2016-08-12 09:53 21
          1地方  回復(fù)  更多評(píng)論
            

          # re: js導(dǎo)出表格數(shù)據(jù)到word、excel 2016-08-12 09:53 21
          1231  回復(fù)  更多評(píng)論
            

          主站蜘蛛池模板: 洪雅县| 高邑县| 和静县| 万盛区| 乐至县| 彭山县| 紫金县| 宁河县| 泸水县| 遂昌县| 榆林市| 安平县| 十堰市| 景宁| 大连市| 新巴尔虎右旗| 朝阳市| 方正县| 鄂托克前旗| 重庆市| 云龙县| 罗城| 西畴县| 隆林| 西林县| 广丰县| 肇源县| 霍林郭勒市| 齐河县| 兰坪| 咸宁市| 孟津县| 滦南县| 曲靖市| 苏尼特左旗| 呈贡县| 鸡西市| 吉安县| 凤庆县| 肃宁县| 永康市|