// قم بإنشاء ملف 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.quit;
نهاية؛
نهاية؛
نهاية؛