js excel 打印信息表

document.write('<a id="path" href="/jpas" style="display:none"></a>');

function test() {
 var ExcelSheet;
 ExcelApp = new ActiveXObject("Excel.Application");
 ExcelSheet = new ActiveXObject("Excel.Sheet");

 //使 Excel 通过 Application 对象可见。  
 ExcelSheet.Application.Visible = true;
 

 var m = 0;
 var n = 0;
 var colInt=3;//颜色
 
 
 
 for(var i = 0;i<6;i++){
  m = 0;
  for(var j = 0;j<3;j++){
   Chart(ExcelSheet,m,n,colInt);//打印一张表格
   m+=5;
   colInt++;
  }
  n+=16;
 }
 
 
 //关闭excel
 ExcelSheet.SaveAs("C:\\TEST.XLS");
 ExcelSheet.Application.Quit();
 
}

function Chart(ExcelSheet,num1,num2,colInt){//画一个表格
 var numCol=num1+65;
 var numLine=num2+1;
 
 //合并单元格
 MegCells(String.fromCharCode(numCol)+numLine,String.fromCharCode(numCol+3)+numLine);
 MegCells(String.fromCharCode(numCol)+(numLine+1),String.fromCharCode(numCol+1)+(numLine+6));
 MegCells(String.fromCharCode(numCol+2)+(numLine+1),String.fromCharCode(numCol+3)+(numLine+1));
 MegCells(String.fromCharCode(numCol+2)+(numLine+2),String.fromCharCode(numCol+3)+(numLine+2));
 MegCells(String.fromCharCode(numCol+2)+(numLine+3),String.fromCharCode(numCol+3)+(numLine+3));
 MegCells(String.fromCharCode(numCol+2)+(numLine+4),String.fromCharCode(numCol+3)+(numLine+4));
 MegCells(String.fromCharCode(numCol+2)+(numLine+5),String.fromCharCode(numCol+3)+(numLine+5));
 MegCells(String.fromCharCode(numCol+2)+(numLine+6),String.fromCharCode(numCol+3)+(numLine+6));
 MegCells(String.fromCharCode(numCol)+(numLine+13),String.fromCharCode(numCol+1)+(numLine+13));
 MegCells(String.fromCharCode(numCol+2)+(numLine+13),String.fromCharCode(numCol+3)+(numLine+13));
 
 
 for(var i=1;i<=14;i++)//画边框
  for(var j=1;j<=4;j++)
   rim(ExcelSheet,i+num2,j+num1);

 
 //插入单元格内容
 cellscolour(ExcelSheet,1+num2,1+num1,colInt,"员工信息表",31.8);   
 cellscolour(ExcelSheet,2+num2,3+num1,2,"部门：组装B线",18);   
 cellscolour(ExcelSheet,3+num2,3+num1,2,"姓名：",18);   
 cellscolour(ExcelSheet,4+num2,3+num1,2,"工号：",18);   
 cellscolour(ExcelSheet,5+num2,3+num1,2,"入社日：04.11.2",18);   
 cellscolour(ExcelSheet,6+num2,3+num1,2,"职位：班长",18);   
 cellscolour(ExcelSheet,7+num2,3+num1,2,"技能等级：一级",18);   
 cellscolour(ExcelSheet,8+num2,1+num1,2,"工程",18);   
 cellscolour(ExcelSheet,8+num2,2+num1,2,"评价",18);   
 cellscolour(ExcelSheet,8+num2,3+num1,2,"工程",18);   
 cellscolour(ExcelSheet,8+num2,4+num1,2,"评价",18);   
 cellscolour(ExcelSheet,14+num2,1+num1,2,"合格-",18);  
 
 
 //设置单元格的高度、、
 LineHeigh(ExcelSheet,1+num2,1+num2,31.8);
 LineHeigh(ExcelSheet,2+num2 ,2+num2 ,18);
 LineHeigh(ExcelSheet,3+num2 ,3+num2 ,17.4);
 LineHeigh(ExcelSheet,4+num2 ,4+num2 ,17.4);
 LineHeigh(ExcelSheet,5+num2 ,5+num2 ,17.4);
 LineHeigh(ExcelSheet,6+num2 ,6+num2 ,15.6);
 LineHeigh(ExcelSheet,7+num2 ,7+num2 ,16.2);
 LineHeigh(ExcelSheet,8+num2 ,8+num2 ,16.2);
 LineHeigh(ExcelSheet,9+num2 ,9+num2 ,16.2);
 LineHeigh(ExcelSheet,10+num2 ,10+num2 ,15.6);
 LineHeigh(ExcelSheet,11+num2 ,11+num2 ,15.6);
 LineHeigh(ExcelSheet,12+num2 ,12+num2 ,15.6);
 LineHeigh(ExcelSheet,13+num2 ,13+num2 ,15.6);
 LineHeigh(ExcelSheet,14+num2 ,14+num2 ,21);
 
 
 var toLef=118+(num1-1)*48;
 for(var i=0;i<2;i++){
  var toUp=170+(num2-1)*17.5;
  for(var j=0;j<=4;j++){
   InsertPicture(ExcelApp,toLef,toUp);
   toUp+=16;
  }
  toLef+=90;
 }
 
}

function MegCells(startcell,endcell){//合并单元格
 ExcelApp.Range(startcell+":"+endcell).MergeCells = true;
}
function rim(ExcelSheet,row,col){//画边框
  ExcelSheet.ActiveSheet.Cells(row,col).Borders.Weight = 2;
}
function cellscolour(ExcelSheet,row,col,colour,cel_value,lineHeigh){//单元格内容
   //设置单元格银颜色
    ExcelSheet.ActiveSheet.Cells(row,col).Interior.ColorIndex = colour;//颜色用数字表示 1-黑色，  2-白色，3-红色，4-绿色，5-蓝色，6-黄色，7-粉红色，8-天蓝色，9-酱土色
   
    ExcelSheet.ActiveSheet.Cells(row,col).Value = cel_value;
    ExcelSheet.ActiveSheet.Cells(row,col).HorizontalAlignment = 3;
    //字体设置
    ExcelSheet.ActiveSheet.Cells(row,col).Font.ColorIndex = 1;        //设置字体颜色*(与上相同)  
    ExcelSheet.ActiveSheet.Cells(row,col).Font.Size = 12;                //设置为10号字*  
    ExcelSheet.ActiveSheet.Cells(row,col).Font.Bold = true;  
    ExcelSheet.ActiveSheet.Cells(row,col).Font.Name = "宋体";
   
   
   
}
function InsertPicture(ExcelSheet,toLef,toUp){ //添加图片
    var msoShaoeRectangle = 1;//AddShape(透明度，左，上，宽度，高度)
    ExcelSheet.ActiveSheet.Shapes.AddShape(msoShaoeRectangle, toLef, toUp, 7, 7).Fill.UserPicture(gId("path").href+"/project/et/images/use/one.jpg");
   
}
function LineHeigh(ExcelSheet,row,col,num){
 //设置单元格行高
    ExcelSheet.ActiveSheet.Rows(row+":"+col).RowHeight = num;
}