美文网首页
将表格以Excel导出

将表格以Excel导出

作者: blank的小粉er | 来源:发表于2017-07-12 21:43 被阅读0次
          <button type="button" class="btn btn-success" onclick="method5('tab')">
           将表格用Excel表格导出
         </button>
    
            <table class="table table-bordered" id="tab"></table>
    
    
            var idTmr;  
            function  getExplorer() {  
                var explorer = window.navigator.userAgent ;  
                //ie  
                if (explorer.indexOf("MSIE") >= 0) {  
                    return 'ie';  
                }  
                //firefox  
                else if (explorer.indexOf("Firefox") >= 0) {  
                    return 'Firefox';  
                }  
                //Chrome  
                else if(explorer.indexOf("Chrome") >= 0){  
                    return 'Chrome';  
                }  
                //Opera  
                else if(explorer.indexOf("Opera") >= 0){  
                    return 'Opera';  
                }  
                //Safari  
                else if(explorer.indexOf("Safari") >= 0){  
                    return 'Safari';  
                }  
            }  
            function method5(tableid) {  
                if(getExplorer()=='ie')  
                {  
                    var curTbl = document.getElementById(tableid);  
                    var oXL = new ActiveXObject("Excel.Application");  
                    var oWB = oXL.Workbooks.Add();  
                    var xlsheet = oWB.Worksheets(1);  
                    var sel = document.body.createTextRange();  
                    sel.moveToElementText(curTbl);  
                    sel.select();  
                    sel.execCommand("Copy");  
                    xlsheet.Paste();  
                    oXL.Visible = true;  
      
                    try {  
                        var fname = oXL.Application.GetSaveAsFilename("Excel.xls", "Excel Spreadsheets (*.xls), *.xls");  
                    } catch (e) {  
                        print("Nested catch caught " + e);  
                    } finally {  
                        oWB.SaveAs(fname);  
                        oWB.Close(savechanges = false);  
                        oXL.Quit();  
                        oXL = null;  
                        idTmr = window.setInterval("Cleanup();", 1);  
                    }  
      
                }  
                else  
                {  
                    tableToExcel(tableid)  
                }  
            }  
            function Cleanup() {  
                window.clearInterval(idTmr);  
                CollectGarbage();  
            }  
            var tableToExcel = (function() {  
                var uri = 'data:application/vnd.ms-excel;base64,',  
                        template = '<html><head><meta charset="UTF-8"></head><body><table>{table}</table></body></html>',  
                        base64 = function(s) { return window.btoa(unescape(encodeURIComponent(s))) },  
                        format = function(s, c) {  
                            return s.replace(/{(\w+)}/g,  
                                    function(m, p) { return c[p]; }) }  
                return function(table, name) {  
                    if (!table.nodeType) table = document.getElementById(table)  
                    var ctx = {worksheet: name || 'Worksheet', table: table.innerHTML}  
                    window.location.href = uri + base64(format(template, ctx))  
                }  
            })()
    

    相关文章

      网友评论

          本文标题:将表格以Excel导出

          本文链接:https://www.haomeiwen.com/subject/cprihxtx.html