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

          雪山飛鵠

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

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

           核心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 雪山飛鵠 閱讀(2195) 評論(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  回復  更多評論
            

          主站蜘蛛池模板: 额尔古纳市| 大洼县| 平顺县| 陵川县| 晋城| 大埔县| 财经| 中方县| 东乌| 云和县| 青铜峡市| 定南县| 谷城县| 揭东县| 汕头市| 开封县| 龙州县| 光泽县| 杭州市| 新竹县| 新河县| 吴旗县| 古丈县| 虹口区| 长丰县| 弥勒县| 明光市| 城口县| 阿荣旗| 墨脱县| 姜堰市| 佛冈县| 黑龙江省| 防城港市| 邢台市| 抚顺县| 筠连县| 忻州市| 宜春市| 陇川县| 青神县|