将数据导入excel表格
var oExcel = new ActiveXObject("Excel.application"); //创建Excel对象
var oWork =oExcel.Workbooks.Add(); //新建一个Excel工作簿
var oSheet =oWork.ActiveSheet; //指定要写入内容的工作表为活动工作表
var table =document.all.table1; //指定要写入的数据源的id
var myRow =table.rows.length; //取数据源行数
var myCell =table.rows(0).cells.length; //取数据源列数
for(i=0;i<myRow;i++){ //在Excel中写行
for(j=0;j<myCell;j++){ //在Excel中写列
//定义格式
if ((i==0) | (i==myRow-1)){
oSheet.Cells(i+1,j+1).Font.Bold =true; //加粗
oSheet.Cells(i+1,j+1).Font.Size =12; //字体大小
}else{
oSheet.Cells(i+1,j+1).Font.Bold =false;
oSheet.Cells(i+1,j+1).Font.Size =10; //字体大小
}
oSheet.Cells(i+1,j+1).value =table.rows(i).cells(j).innerText; //向单元格写入值
}
}
oExcel.Visible = true;
oExcel.UserControl = true;