<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>js to excel</title>
<link href="css/style.css" rel="stylesheet" type="text/css">
<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 = 120;
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" onclick="method1();">
</div>
<div >
<table>
<tr>
<td colspan="6" style="font-size:xx-large; background-color:Gray;">请示登记单请示登记单请示登记单请示登记单</td>
</tr>
</table>
<table width="100%" border="1" align="center" id="excel" ><!-- style="visibility:hidden;" -->
<tr>
<td colspan="6" ><div align="center" class="tit"><strong>请示登记单 </strong></div></td>
</tr>
<tr>
<td style="width:100px;">序号</td>
<td style="width:100px;">文件序号</td>
<td style="width:100px;"> 文件编号 ></td>
<td style="width:100px;"> 日期 ></td>
<td style="width:100px;"> 标题 </td>
<td style="width:400px;" > 备注 </td>
</tr>
<tr>
<td align="center"> 0000001</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" style="width:400px;"> </td>
</tr>
<tr>
<td colspan="6" style="font-size:x-large">
fdsafdsfdsfdsfsdfsdfsd
</td>
</tr>
<tr style="height:200px;">
<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" style="background-color:Red; width:400px;" > //把表格中的内容移到TextR中</td>
<td align="center" style="width:400px; text-align:left;" ><img src="tfs2010.png" width="100" height="100" /></td>
</tr>
</table>
</div>
</body>
</html>
