- //将指定table复制到excel中
- function AllAreaExcel(tableid)
- {
- try{
- var oXL = new ActiveXObject("Excel.Application");
- var oWB = oXL.Workbooks.Add();
- var oSheet = oWB.ActiveSheet;
- var sel=document.body.createTextRange();
- sel.moveToElementText(eval(tableid));
- //alert(sel.htmlText);
- sel.select();
- sel.execCommand("Copy");
- oSheet.Paste();
- oXL.Visible = true;
- }catch (e) {alert("确保将当前网站加入到安全站点,并各种启动设置。详情咨询管理员。")}
- }
- //指定页面区域内容导入Word
- function AllAreaWord()
- {
- var oWD = new ActiveXObject("Word.Application");
- var oDC = oWD.Documents.Add("",0,1);
- var oRange =oDC.Range(0,1);
- var sel = document.body.createTextRange();
- sel.moveToElementText(PrintA);
- sel.select();
- sel.execCommand("Copy");
- oRange.Paste();
- oWD.Application.Visible = true;
- //window.close();
- }
- //该片段来自于http://www.codesnippet.cn/detail/190720134706.html
来源: http://www.codesnippet.cn/detail/190720134706.html