HTML Table表格導出為EXCEL表格（只能保存為XLS文件）

本文轉載自查看原文 2018-01-15 14:51 1575 JavaScript

//HTMLtable表格拷貝到EXCEL中(引用自：https://www.cnblogs.com/zhj-Acmen/p/7298936.html)
//判斷瀏覽器
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';
    }
}
//整個表格拷貝到EXCEL中
function method1(tableid) {
    if($$(tableid).rows.length>2){
        var tbCells=removeCol(tableid);
        $$("btnOutputExcel").disabled="true";
        if(tbCells<15){
            if(getExplorer()=='ie'){
                var curTbl = document.getElementById(tableid);
                var oXL = new ActiveXObject("Excel.Application");
                //創建AX對象excel
                var oWB = oXL.Workbooks.Add();
                //獲取workbook對象
                var xlsheet = oWB.Worksheets(1);
                //激活當前sheet
                var sel = document.body.createTextRange();
                sel.moveToElementText(curTbl);
                //把表格中的內容移到TextRange中
                sel.select;
                //全選TextRange中內容
                sel.execCommand("Copy");
                //復制TextRange中內容 
                xlsheet.Paste();
                //粘貼到活動的EXCEL中      
                oXL.Visible = true;
                //設置excel可見屬性
                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);
                    //xls.visible = false;
                    oXL.Quit();
                    oXL = null;
                    //結束excel進程，退出完成
                    idTmr = window.setInterval("Cleanup();", 1);
                }
            }
            else
            {
                tableToExcel('ta');
            }
        }
    }else{
        statusHandle("表內有內容才能導出。");
    }
}
function Cleanup() {
    window.clearInterval(idTmr);
    CollectGarbage();
}
var tableToExcel = (function() {
      var uri = 'data:application/vnd.ms-excel;base64,',
      template = '<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40"><head><!--[if gte mso 9]><xml><x:ExcelWorkbook><x:ExcelWorksheets><x:ExcelWorksheet><x:Name>{worksheet}</x:Name><x:WorksheetOptions><x:DisplayGridlines/></x:WorksheetOptions></x:ExcelWorksheet></x:ExcelWorksheets></x:ExcelWorkbook></xml><![endif]--></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("OwnerSummaryTable")
        var ctx = {worksheet: name || 'Worksheet', table: table.innerHTML}
        window.location.href = uri + base64(format(template, ctx))
      }
    })()
//刪除操作列
function removeCol(tbName){
    var tb=$$(tbName);
    var tr=tb.insertRow(0);
    tr.innerHTML="<th colspan='14'>"+tb.rows[2].cells[2].innerHTML+"年"+tb.rows[2].cells[3].innerHTML+"表標題</th>";
    var colLen=14;//tb.rows.item(0).cells.length-1;
    for(i=1;i<tb.rows.length;i++){
        tb.rows[i].deleteCell(colLen);
    }
    return tb.rows.item(1).cells.length;
}

//$$
function $$(id) {
    return document.getElementById(id);
}

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 Qt將表格table保存為excel（odbc方式）將Excel表格保存為圖片 matlab數據保存為excel文件 Angular純前端實現table表格導出excel的xls格式 R 畫圖保存為文件 MATLAB——將變量保存為.mat文件多頁Excel轉換成PDF時如何保存為單獨文件 Java爬蟲一鍵爬取結果並保存為Excel excel讀取表，並將結果保存為鍵值對的字典列表； Java的Apache的POI Excel中保存為PDF