var

　　v:variant;

　　sheet:variant;

　　begin

　　v:=createoleobject('Excel.Application');//创建OLE对象

　　v.visible:=true;

　　v.workbooks.add(-4167); //添加工作表

　　v.workbooks[1].sheets[1].name:='test';

　　sheet:=v.workbooks[1].sheets['test'];

　　return v;

　　end;

　　var

　　I,j:integer;

　　v:variant;

　　var

　　v,sheet,range:variant;

　　begin

　　v:=createExecl;

　　sheet:= v.workbooks[1].sheets[1];

　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格

　　range.select;

　　range.merge; //合并单元格

　　range.borders.linestyle:=xlcontinuous; //置边框线可见

　　range.font.size:=9; //改变表格内文本字体大小

　　end;