js导出Excel后如何指定文件名？

2011-01-19 02:36:31 1.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

全在这了！全国分省90米、30米、12.5米、5米DEM高程模型数据下载方式汇总全在这了！全国分省90米、30米、12.5米、5米DEM高程模型数据下载方式汇总 SRTM15（450米）免费下载 https://pan.baidu.com/s/1eO0U6wfzs7YSe2EQdxRJ2Q提取码：o7am GMTED(250米)免费下载 https://pan.baidu.com/share/init?surl=nrbbdbhyNVQV46XwqzqLlg 提取码：V7X9 SRTM3 （90米）免费下载 https://pan.baidu.com/share/.. 阅读详情

js导出没问题，但是每次导出默认的Excel文件名为“Book1.xls”，如何指定为我想要的文件名，比如指定为“数据表.xls”
我的导出js代码如下，高手帮帮忙。

                                        

        <input type="button" value="导出Excel" onclick="method();" />

        <script type="text/javascript">  

         function method() {//整个表格拷贝到EXCEL中    

            //检索浏览器   

            if(navigator.userAgent.indexOf("MSIE")<0){   

                alert('请用ie浏览器进行表格导出');   

                return ;   

            }   

          

            var tableid="excel";   

            var curTbl = document.getElementById(tableid);    

            var oXL = null;    

            try {   

                oXL = GetObject("", "Excel.Application");   

            }   

            catch (E) {   

                try {   

                    oXL = new ActiveXObject("Excel.Application");   

                }   

                catch (E2) {   

                    alert("请确认:\n1.Microsoft Excel已被安装.\n2.工具 => Internet 选项=> 安全 => 设置 \"启用不安全的 ActiveX\"");   

                    return;   

                }   

            }   

          

            //创建AX对象excel    

            var oWB = oXL.Workbooks.Add();    

             //获取workbook对象    

            var oSheet = oWB.ActiveSheet;    

                   

            //在此进行样式控制   

            oSheet.Rows(1+":"+35).RowHeight =25;//定义行高

            oSheet.Rows(36+":"+37).RowHeight =15;

            //定义列宽   

            oSheet.Columns('A:K').ColumnWidth = 10;

            

            oSheet.Rows(1).HorizontalAlignment=3;      

          

            var sel = document.body.createTextRange(); //激活当前sheet    

            sel.moveToElementText(curTbl); //把表格中的内容移到TextRange中            

            sel.select();  //全选TextRange中内容    

            sel.execCommand("Copy"); //复制TextRange中内容    

            oSheet.Paste(); //粘贴到活动的EXCEL中    

            oXL.Visible = true; //设置excel可见属性   

            oXL.document.execcommand('saveas', true, "test");

            oSheet.Application.Quit();   //结束当前进程   

          

            window.opener=null;   

            //window.close();//关闭当前窗口   

               

         }    

        </script>