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說明了文件保存過程中應該注意的問題：

文章來源于領測軟件測試網 http://www.kjueaiud.com/