Exemple Delphi_Excel : copier-coller de cellule

//Excel的单元格拷贝粘贴

PROcédure Excel_copyCells ;

var

feuille,XLApp,classeur,myRange1 ,myRange2 : variante ;

commencer

essayer

//创建对象

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

XLApp.displayAlerts :=true ;

XLApp.ScreenUpdating :=true ;

XLApp.visible :=true ;

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

classeur := XLApp.workbooks[1];

feuille:=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]];

maPlage1.Copy(maPlage2) ;

enfin

sinon VarIsEmpty (XLApp), alors commencez

XLApp.displayAlerts :=false ;

XLApp.ScreenUpdating :=true ;

XLApp.quit ;

fin;

fin;

fin;