WEB页面导出为EXCEL并控制格式(ie only)

最新推荐文章于 2020-10-22 15:03:00 发布

freego1026

最新推荐文章于 2020-10-22 15:03:00 发布

阅读量860

点赞数

分类专栏： js 文章标签： excel ie web div xhtml 浏览器

js 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>WEB页面导出为EXCEL并控制格式</title>
</head>
<body>
<style type="text/css">
.tit{
font-size:25px;
}
</style>
<script>
function method1() {//整个表格拷贝到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("Please confirm:/n1.Microsoft Excel has been installed./n2.Internet Options=>Security=>Setting /"Enable unsafe ActiveX/"");
return;
}
}

//创建AX对象excel
var oWB = oXL.Workbooks.Add();
// 获取workbook对象
var oSheet = oWB.ActiveSheet;

//在此进行样式控制
oSheet.Rows(1+":"+1).RowHeight =20;//定义行高
oSheet.Rows(2+":"+2).RowHeight =30;
//定义列宽
oSheet.Columns('A:A').ColumnWidth = 5;
oSheet.Columns('B:B').ColumnWidth = 10;
oSheet.Columns('C:C').ColumnWidth = 15;
oSheet.Columns('D:D').ColumnWidth = 15;
oSheet.Columns('E:E').ColumnWidth = 38;
oSheet.Columns('F:F').ColumnWidth = 12;
oSheet.Columns('G:G').ColumnWidth = 10;
oSheet.Columns('H:H').ColumnWidth = 15;

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可见属性

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

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

}
</script>
</head>
<body>
<div >
<input type="button" value="export" οnclick="method1();">
</div>
<table width="1038" border=1 align="center" id="excel" >
<tHead>
<tr>
<td colspan="8" ><div align="center" class="tit"><strong>请示登记单 </strong></div></td>
</tr>
<tr>
<td width="90"><div align="center" width="90"><strong>序号</strong></div></td>
<td width="121"><div align="center" width="121"><strong>文件序号</strong></div></td>
<td width="123"><div align="center" width="123"><strong> 文件编号 </strong></div></td>
<td width="123"><div align="center"><strong> 日期 </strong></div></td>
<td width="276"><div align="center"><strong> 标题 </strong></div></td>
<td width="85"><div align="center" width="85""><strong> 备注 </strong></div></td>
</tr>
</tHead>
<tbody>

<tr>
<td align="center"> 1</td>
<td align="center">2008-0202-请示</td>
<td align="center"> </td>
<td align="center"> 2009-5-14 21:38</td>
<td align="center"> gggggg</td>
<td align="center"> </td>
</tr>

<tr>
<td align="center"> 1</td>
<td align="center">2008-0202-请示</td>
<td align="center"> </td>
<td align="center"> 2009-5-14 21:38</td>
<td align="center"> gggggg</td>
<td align="center"> </td>
</tr>

</tbody>
</table>
</body>
</html>

freego1026

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
WEB页面导出为EXCEL并控制格式(ie only)

<br /><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"<br />"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><br /><html xmlns="http://www.w3.org/1999/xhtml"><br /><head><br /><meta http-equiv="Content-Type" content="text/html; chars
复制链接

扫一扫