//Excel ของ Excel
กระบวนการ Excel_copyCells;
var
แผ่นงาน, 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.แผ่นงาน[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.ออก;
จบ;
จบ;
จบ;