Delphi_Excel-Beispiel: Zelle kopieren und einfügen

//Excel的单元格拷贝粘贴

PROcedure Excel_copyCells;

var

sheet,XLApp,workbook,myRange1 ,myRange2: Variante;

beginnen

versuchen

//创建对象

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

XLApp.displayAlerts:=true;

XLApp.ScreenUpdating:=true;

XLApp.visible:=true;

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

Arbeitsmappe := XLApp.workbooks[1];

sheet:=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) ;

Endlich

Wenn nicht VarIsEmpty(XLApp), dann beginnen

XLApp.displayAlerts:=false;

XLApp.ScreenUpdating:=true;

XLApp.quit;

Ende;

Ende;

Ende;