将数据导入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;