Delphi_Excel 예: 셀 복사 및 붙여넣기

//Excel의 单元格拷贝粘贴

PROcedure Excel_copyCells;

var

sheet,XLApp,workbook,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;

끝;

끝;

끝;