溫馨提示:您的每一次轉載,體現了我寫此文的意義!!!煩請您在轉載時注明出處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 雪山飛鵠 閱讀(2188) 評論(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  回復  更多評論
            

          主站蜘蛛池模板: 毕节市| 宣恩县| 偏关县| 治县。| 淮安市| 新田县| 陆河县| 板桥市| 商丘市| 凯里市| 东辽县| 涡阳县| 台江县| 德江县| 石河子市| 上犹县| 敦化市| 舞阳县| 元谋县| 澄江县| 铜梁县| 内黄县| 菏泽市| 北宁市| 共和县| 湾仔区| 齐河县| 栖霞市| 洪洞县| 横山县| 泌阳县| 屏东市| 远安县| 通道| 乐陵市| 榕江县| 梨树县| 浠水县| 邻水| 马边| 安平县|