Delphi_Excel例子:单元格拷贝粘贴

//Excel的单元格粘贴粘贴

过程Excel_copyCells；

变量

工作表，XLApp，工作簿，myRange1，myRange2：变体；

开始

尝试

//创建对象

XLApp:=createOleObject('Excel.application');

XLApp.displayAlerts:=true;

XLApp.ScreenUpdating:=true;

XLApp.visible:=true;

XLApp.WorkBooks.Add('D:/Test.xls');

工作簿 := XLApp.workbooks[1];

工作表：=workbook.worksheets[1]；

myRange1:=sheet.Range[sheet.cells[39,1],sheet.cells[79,16]];

myRange2:=sheet.Range[sheet.cells[80,1],sheet.cells[120,16]];

myRange1.Copy(myRange2) ;

最后

如果不是 VarIsEmpty(XLApp) 则开始

XLApp.displayAlerts:=false;

XLApp.ScreenUpdating:=true;

XLApp.退出；

结尾;

结尾;

结尾;