[实用技巧] 通过Javascript将数据导出到外部Excel文档的函数代码

[复制链接]
裘静娴 2013-12-8 22:31:07
通过Javascript将数据导出到外部Excel文档的函数代码,需要的朋友可以参考下

        代码如下:       
        function AutomateExcel() {
        try {
        //Start Excel and get Application object.
        var oXL;
        try
        {
        oXL = new ActiveXObject("Excel.Application");
        }
        catch(e)
        {
        alert("无法启动Excel!nn如果您确信您的电脑中已经安装了Excel," + "那么请调整IE的安全级别。nn具体操作:nn" + "工具 → Internet选项 → 安全 → 自定义级别 → 对没有标记为安全的ActiveX进行初始化和脚本运行 → 启用");
        return false;
        }
        //Get a new workbook.
        var oWB = oXL.Workbooks.Add();
        var oSheet = oWB.ActiveSheet;
        var table = $("#GridView1")[0];
        var rows = table.rows;
        var columns = table.rows(0).cells;
        var codes = "";
        //设置标题
        var name = "第  页";
        oXL.Caption = name;
        oSheet.Name = name;
        //设置表头
        oSheet.Cells(1, 1).Value = "申请单编号";
        oSheet.Cells(1, 2).Value = "出货金额";
        oSheet.Cells(1, 3).Value = "营销部门";
        oSheet.Cells(1, 4).Value = "业务人员";
        oSheet.Cells(1, 5).Value = "内部合同号";
        oSheet.Cells(1, 6).Value = "客户名称";
        oSheet.Cells(1, 7).Value = "币种";
        oSheet.Cells(1, 8).Value = "客户船期";
        oSheet.Cells(1, 9).Value = "国别";
        oSheet.Cells(1, 10).Value = "核销单号";
        oSheet.Cells(1, 11).Value = "发票号码";
        oSheet.Cells(1, 12).Value = "报关日期";
        //获取当前页申请单编号
        for (var i = 2; i  0 && views[i - 1].SACode == views.SACode) {
        oSheet.Range(oSheet.Cells(beginindex, 1), oSheet.Cells(endindex, 1)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 2), oSheet.Cells(endindex, 2)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 3), oSheet.Cells(endindex, 3)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 4), oSheet.Cells(endindex, 4)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 5), oSheet.Cells(endindex, 5)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 6), oSheet.Cells(endindex, 6)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 7), oSheet.Cells(endindex, 7)).Merge();
        oSheet.Range(oSheet.Cells(beginindex, 8), oSheet.Cells(endindex, 8)).Merge();
        beginindex = endindex;
        }
        else {
        beginindex++;
        }
        }
        }
        }, "json");
        //设置自动列宽
        oSheet.Columns.AutoFit();
        //设置excel为可见
        oXL.Visible = true;
        //将Excel交由用户控制
        oXL.UserControl = true;
        //禁止提示
        oXL.DisplayAlerts = false;
        //释放资源
        //oXL = null;
        //oWB = null;
        //oSheet = null;
        }
        catch (e) {
        }
        }
欧阳彦芝 2013-12-9 07:05:19
顶起出售广告位
回复

使用道具 举报

顾菱凡 2013-12-20 13:31:45
鄙视楼下的顶帖没我快,哈哈
回复

使用道具 举报

穆野雪 2013-12-29 18:58:49
我是个凑数的。。。
回复

使用道具 举报

景绮玉 2014-1-22 12:43:59
占位编辑
回复

使用道具 举报

柏嘉言 2014-1-23 19:36:28
鼎力支持!!
回复

使用道具 举报

锺楠楠 2014-2-22 16:58:33
路过的帮顶
回复

使用道具 举报

姜震 2014-3-4 06:54:11
支持,楼下的跟上哈~
回复

使用道具 举报

蔡海溪 2014-3-7 15:48:16
路过的帮顶
回复

使用道具 举报

陶云溪 2014-3-20 16:59:37
支持,楼下的跟上哈~
回复

使用道具 举报

郜文姝 2014-3-24 17:28:09
我是个凑数的。。。
回复

使用道具 举报

梁飞雪 2024-12-20 19:09:17 来自手机
求沙发
回复

使用道具 举报

陶金枝 2025-1-26 15:56:41
前排,哇咔咔
回复

使用道具 举报

刘吉帆 2025-2-24 16:38:50
好,很好,非常好!
回复

使用道具 举报

詹柔妙 2025-4-7 20:13:21 来自手机
前排,哇咔咔
回复

使用道具 举报

手机版

GMT+8, 2025-6-2 00:58

Copyright © 2012 技术派 | 技术支持:技术派设计

Powered by Discuz! X3.4