Delphi控制Excel自动生成报表

领测软件测试网

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;

 

（3）表格的复制与粘贴（copyandPaste）


procedure copyandPaste;
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.copy; //复制选定的表格
sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
sheet.paste； //粘贴表格
end; 

　　3 文件的保存

　　文件保存是在创建文件的基础上进行的，过程saveFile说明了文件保存过程中应该注意的问题：

文章来源于领测软件测试网 https://www.ltesting.net/