专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > Web前端

IE网页导出word跟excel

发布时间:2010-05-20 14:01:29 文章来源:www.iduyao.cn 采编人员:星星草
<script language="javascript">c_a_3();</script>
IE网页导出word和excel
function exportAsWord() {
		var flag = 1;
		try {
			var oWord = new ActiveXObject("Word.Application");
		} catch (e) {
			flag = 2;
			alert("请改变IE浏览器的安全设置!将'对没有标记为安全的ActiveX控件进行初始化和脚本运行'设为'启用'。");
		}
		if (flag == 1) {
			oWord.Application.Visible = true;
			var mydoc=oWord.Documents.Add('',0,1);
			myRange =mydoc.Range(0,1);
			//指定文件编辑位置
			var sel=document.body.createTextRange();
			var obj=document.getElementById("dataTable");
			try {
				if (obj) {
					sel.moveToElementText(obj);
				}
			} catch (e) {
			}
			sel.select();
			document.execCommand('Copy');
			sel.moveEnd('character');
			myRange.Paste();
			//设置页边距
			oWord.ActiveDocument.PageSetup.TopMargin = 60;
			oWord.ActiveDocument.PageSetup.BottomMargin = 60;
			oWord.ActiveDocument.PageSetup.LeftMargin = 50 ;
			oWord.ActiveDocument.PageSetup.RightMargin = 50 ;
			//设置页面方向
			oWord.ActiveDocument.PageSetup.Orientation = 0;
			oWord.Selection.Font.Size=20;
			document.execCommand('unselect');
			//设置文档为页面视图
			oWord.ActiveWindow.ActivePane.View.Type= 3;
		}
	}
 
	function exportAsExcel() {
		var oXL = new ActiveXObject("Excel.Application");
		var oWB = oXL.Workbooks.Add();
		var oSheet = oWB.ActiveSheet;
		var sel=document.body.createTextRange();
		sel.moveToElementText(dataTable);
		sel.select();
		sel.execCommand("Copy");
		oSheet.Paste();
		oXL.Visible = true;
		document.execCommand('unselect');
	}
	

 

友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: