<script type="text/javascript">
/**
* 读取表格中每个单元内容到EXCEL中
* author: martin
*/
function toExcel(tableid) {
//检索浏览器
if(navigator.userAgent.indexOf("MSIE") < 0){
alert('请用ie浏览器进行表格导出!');
return;
}
var curTbl = document.getElementById(tableid);
var oXL = null;
try {
oXL = GetObject("", "Excel.Application");
}catch(E){
try {
oXL = new ActiveXObject("Excel.Application");
}catch(E2) {
alert("无法启动Excel!/n/n请调整IE浏览器的安全级别。");
window.location.reload(true);
return;
}
}
var oWB = oXL.Workbooks.Add(); //创建AX对象excel
var oSheet = oWB.ActiveSheet; //获取workbook对象
//定义行高
oSheet.Rows(1+":"+1).RowHeight = 40;
//定义列宽
oSheet.Columns('A:A').ColumnWidth = 0;
oSheet.Columns('B:B').ColumnWidth = 4;
oSheet.Columns('C:C').ColumnWidth = 10;
oSheet.Columns('D:D').ColumnWidth = 4;
oSheet.Columns('E:E').ColumnWidth = 11;
oSheet.Columns('F:F').ColumnWidth = 30;
oSheet.Columns('G:G').ColumnWidth = 5;
//定义对齐方式
oSheet.Rows(1).HorizontalAlignment = 3;
/* //指定页面区域内容导入Excel
var sel = document.body.createTextRange(); //激活当前sheet
sel.moveToElementText(curTbl); //把页面区域内容移到TextRange中
sel.select(); //全选TextRange中内容
sel.execCommand("Copy"); //复制内容
oSheet.Paste(); //粘贴到活动的EXCEL中
oXL.Visible = true; //设置excel可见
oSheet.Application.Quit(); //结束当前进程 */
//指定页面区域"单元格"内容导入Excel
var Lenr = curTbl.rows.length; //取得表格行数
for(i=0; i<Lenr; i++){
var Lenc = curTbl.rows(i).cells.length; //取得每行的列数
for(j=0; j<Lenc; j++){
oSheet.Cells(i+1,j+1).value = "'" + curTbl.rows(i).cells(j).innerText; //赋值
}
}
oXL.Visible = true;
}
</script>
-------------------------------------程序调用-----------------------------------
<table id="tableExcel" align="center">*************</table>
<button οnclick="toExcel('tableExcel')">生成Excel报表</button>