富贵资源网 Design By www.hznty.com

网上收集的代码

<input type="button" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint">

导出到Excel代码

<SCRIPT LANGUAGE="javascript"> 
<!-- 
function AutomateExcel() 
{ 
// Start Excel and get Application object. 
var oXL = new ActiveXObject("Excel.Application"); 
// Get a new workbook. 
var oWB = oXL.Workbooks.Add(); 
var oSheet = oWB.ActiveSheet; 
var table = document.all.data; 
var hang = table.rows.length;

var lie = table.rows(0).cells.length;

// Add table headers going cell by cell. 
for (i=0;i<hang;i++) 
{ 
for (j=0;j<lie;j++) 
{ 
//oSheet.Cells(i+1,j+1).Font.Bold = True 
//oSheet.Cells(i+1,j+1).Font.Size = 50 
//oSheet.Cells(i+1,j+1).Alignment = 2
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; 
}

} 
oXL.Visible = true; 
oXL.UserControl = true; 
} 
//-->
</SCRIPT>
<table border="1" width="100%" id="data">
<tr>
<td>&nbsp;姓名</td>
<td colspan="2">年龄</td>
<td>出生日期</td>
</tr>
<tr>
<td>6</td>
<td>25</td>
<td colspan="2">8</td>
</tr>
<tr>
<td height="22">1</td>
<td height="22">2</td>
<td colspan="2" height="22">4</td>
</tr>
</table>
富贵资源网 Design By www.hznty.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
富贵资源网 Design By www.hznty.com