js format excel export control

Oct 12 posted in AJAX (RSS), comments.

<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() {// Copy the entire table into Excel  
	// Retrieves the browser  
	if(navigator.userAgent.indexOf("MSIE")<0){
		alert(' Please use IE browser table export  ');
		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;
        }
    }

    // Create AX excel object  
    var oWB = oXL.Workbooks.Add(); 
     // Gets the workbook object  
    var oSheet = oWB.ActiveSheet; 
		
	// In this style control  
	oSheet.Rows(1+":"+1).RowHeight =20;// Define the height of a row  
	oSheet.Rows(2+":"+2).RowHeight =30;
	// Defines the width of the column  
	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(); // Activates the current sheet  
    sel.moveToElementText(curTbl); // The table of contents to a TextRange in  
    sel.select();  // Select all the contents in the TextRange  
    sel.execCommand("Copy"); // Copy the contents in the TextRange  
    oSheet.Paste(); // Paste into the activities of Excel  
    oXL.Visible = true; // Set the visible property of the excel  
	
	oSheet.Application.Quit();   // Ends the current process  

	window.opener=null;
	window.close();// Close the current window  
	
 } 
</script>
</head>
<body>
<div >
	<input type="button" value="export">
</div>
<table width="1038" border=1 align="center" ><!-- --> 
  <tHead>
    <tr>
      <td colspan="8" ><div align="center"><strong> The request for registration list  </strong></div></td>
    </tr>
    <tr>
      <td width="90"><div align="center" width="90"><strong> Ordinal number  </strong></div></td>
      <td width="121"><div align="center" width="121"><strong> File number  </strong></div></td>
      <td width="123"><div align="center" width="123"><strong>  File number  </strong></div></td>
      <td width="123"><div align="center"><strong>  Date  </strong></div></td>
      <td width="276"><div align="center"><strong>  Title  </strong></div></td>
      <td width="85"><div align="center"  width="85""><strong>  Note  </strong></div></td>
    </tr>
  </tHead>
  <tbody>

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

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