<input type="button" name="out_word1" οnclick="javascript:AutomateExcel()" value="导出到excel" class="btn01" />
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.list;
var hang = table.rows.length;
var lie = table.rows(1).cells.length; //获取第一行的列数
//oSheet.Cells(1,1).value = '涉路站点';
// oSheet.Cells(1,2).value = '涉路站点号';
// oSheet.Cells(1,3).value = '所属辖区';
// oSheet.Cells(1,4).value = '地址';
// oSheet.Cells(1,5).value = '联系人';
// oSheet.Cells(1,6).value = '类型';
//oSheet.Cells(1,7).value = '操作';
for (var i=1;i<hang;i++){
for (var j=1;j<lie;j++){
oSheet.Cells(i+1,j).value = table.rows(i).cells(j).innerText; //赋值
}
}
oXL.Selection.HorizontalAlignment = -4108; //'xlHAlignCenter 横向居中
oXL.Selection.VerticalAlignment = -4108; //'xlVAlignCenter 竖向居中
oSheet.Columns.AutoFit; //自动适应大小
oXL.Visible = true; //设置excel可见属性
oXL.UserControl = true; //excel交由用户控制
}