Loading

JS将Table导出到Excel

<script type="text/javascript" language="javascript">
        var idTmr;
        function method1(tableid) {//整个表格拷贝到EXCEL中

            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可见属性

            var company = document.getElementById("DropDownList_fac").value;
            if (company == "Baidu") {
                company = "百度";
            }
            else if (company == "Google") {
                 company = "谷歌";
            }
            else {
                company = "晴琦专属";
            }

            try {
                var fname = oXL.Application.GetSaveAsFilename(company+"将Table导出到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进程,退出完成
                //window.setInterval("Cleanup();",1);
                idTmr = window.setInterval("Cleanup();", 1);

            }
        }
        function Cleanup() {
            window.clearInterval(idTmr);
            CollectGarbage();
        }
    </script>

 

 

====================================================

<input id="Button1" type="button" value="轉出EXCEL"
        onclick="javascript:method1('Tabel_Id')" />

posted @ 2012-01-09 09:18  GerryGe  阅读(15690)  评论(2编辑  收藏  举报