js format excel export control

Posted on 2009-10-12 filed under: AJAX (RSS) 79 views

&lt;html>
&lt;head>
&lt;meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
&lt;title>js to excel&lt;/title>
&lt;link href="css/style.css" rel="stylesheet" type="text/css">
&lt;style type="text/css">
.tit{
	font-size:25px;
}
&lt;/style>
&lt;script>
 function method1() {//整个表格拷贝到EXCEL中 
	//检索浏览器
	if(navigator.userAgent.indexOf("MSIE")&lt;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();//关闭当前窗口
	
 } 
&lt;/script>
&lt;/head>
&lt;body>
&lt;div >
	&lt;input type="button" value="export">
&lt;/div>
&lt;table width="1038" border=1 align="center" >&lt;!-- --> 
  &lt;tHead>
    &lt;tr>
      &lt;td colspan="8" >&lt;div align="center">&lt;strong>请示登记单 &lt;/strong>&lt;/div>&lt;/td>
    &lt;/tr>
    &lt;tr>
      &lt;td width="90">&lt;div align="center" width="90">&lt;strong>序号&lt;/strong>&lt;/div>&lt;/td>
      &lt;td width="121">&lt;div align="center" width="121">&lt;strong>文件序号&lt;/strong>&lt;/div>&lt;/td>
      &lt;td width="123">&lt;div align="center" width="123">&lt;strong> 文件编号 &lt;/strong>&lt;/div>&lt;/td>
      &lt;td width="123">&lt;div align="center">&lt;strong> 日期 &lt;/strong>&lt;/div>&lt;/td>
      &lt;td width="276">&lt;div align="center">&lt;strong> 标题 &lt;/strong>&lt;/div>&lt;/td>
      &lt;td width="85">&lt;div align="center"  width="85"">&lt;strong> 备注 &lt;/strong>&lt;/div>&lt;/td>
    &lt;/tr>
  &lt;/tHead>
  &lt;tbody>

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

  &lt;/tbody>
&lt;/table>
&lt;/body>
&lt;/html>