导出excle 高手能不能给个代码 我是新人第一次写..?

Question

//----------------------------------------------------------
// 生成Excel文件并保存
// 输入参数：
// formName：要生成的数据所在的form名称
// tableName：要生成的数据所在的table名称
//----------------------------------------------------------
function exportexcel(formName,tableName){
       var oXL = new ActiveXObject("Excel.Application");
       oXL.Visible = true;
       var oWB = oXL.Workbooks.Add();
       var oSheet = oWB.ActiveSheet;
      
       var div1=document.all.item(formName);
       var table1=div1.all.item(tableName);
       var table=new Array(); var retArr = getTableRowsCols(table1);
       var rlen=retArr[0];
       var clen=retArr[1];

       var flagTable=new Array(rlen);
       for(var i=0;i<rlen;i++){
       flagTable[i]=new Array(clen);
       for(var j=0;j<clen;j++){
       flagTable[i][j]=0;
       }
       } var rowBegin=1, colBegin=1; //导出的表格的起始位置

       var c1=oSheet.Cells(rowBegin,colBegin);
       var c2=oSheet.Cells(rlen+rowBegin-1,clen+colBegin-1);
       oSheet.Range(c1,c2).VerticalAlignment = -4108;
       oSheet.Range(c1,c2).HorizontalAlignment =  -4108;
      
   exportTable(oSheet, flagTable, table1, rowBegin, colBegin);    
           
        oSheet.Range(oSheet.Cells(rowBegin,colBegin),oSheet.Cells(rlen+rowBegin-1,clen+colBegin-1)).EntireColumn.AutoFit();
       oXL.UserControl = true;
       oXL.Quit();
}