//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.退出;
结尾;
结尾;
结尾;