裘静娴 发表于 2013-12-8 22:31:07

通过Javascript将数据导出到外部Excel文档的函数代码

通过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");
        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; i0 && views.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

前排，哇咔咔
页: [1]
查看完整版本: 通过Javascript将数据导出到外部Excel文档的函数代码