码迷,mamicode.com
首页 > Web开发 > 详细

js 导出到word,excel

时间:2017-06-14 19:19:48      阅读:183      评论:0      收藏:0      [点我收藏+]

标签:tin   try   document   get   div   电脑   internet   files   reg   

1>js导出,原理:复制页面中的table,让后粘贴到excle中

function exportToWord(id) {
            //Scripting.FileSystemObject (FSO 文本文件读写)被关闭了,
            //开启FSO功能即可,在“运行”中执行regsvr32 scrrun.dll即可
            try {
                var oElement = document.getElementById(id);
                var word = new ActiveXObject("Word.Application");
                var doc = word.Documents.Add("", 0, 1); //不打开模版直接加入内容
                var Range = doc.Range();

                var sel = document.body.createTextRange();
                sel.moveToElementText(oElement);
                sel.select();
                sel.execCommand("Copy");
                Range.Paste();
                word.Application.Visible = true;
            }
            catch (e) {

                alert("无法启动Excel!\n\n" + e.message +
                "\n\n如果您确信您的电脑中已经安装了Excel," +
                "那么请调整IE的安全级别。\n\n具体操作:\n\n" +
                "工具 → Internet选项 → 安全 → 自定义级别 → 对没有标记为安全的ActiveX进行初始化和脚本运行 → 启用");
            }
        }
        function exportToExcel(id) {
            //Scripting.FileSystemObject (FSO 文本文件读写)被关闭了,
            //开启FSO功能即可,在“运行”中执行regsvr32 scrrun.dll即可
            try {
                var oElement = document.getElementById(id);
                var oRangeRef = document.body.createTextRange();
                oRangeRef.moveToElementText(oElement);
                oRangeRef.execCommand("Copy");

                var oXL = new ActiveXObject("Excel.Application")
                var oWB = oXL.Workbooks.Add;
                var oSheet = oWB.ActiveSheet;
                oSheet.Paste();
                oSheet.Cells.NumberFormatLocal = "@";
                oXL.Selection.ColumnWidth = 8;

                oXL.Visible = true;
                oSheet = null;
                oWB = null;
                appExcel = null;
            } catch (e) {
                alert("无法启动Excel!\n\n" + e.message +
                "\n\n如果您确信您的电脑中已经安装了Excel," +
                "那么请调整IE的安全级别。\n\n具体操作:\n\n" +
                "工具 → Internet选项 → 安全 → 自定义级别 → 对没有标记为安全的ActiveX进行初始化和脚本运行 → 启用");
            }

 

js 导出到word,excel

标签:tin   try   document   get   div   电脑   internet   files   reg   

原文地址:http://www.cnblogs.com/zhj-Acmen/p/7010335.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!