Delphi_Excel の例: セルのコピーと貼り付け

//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.終了;

終わり;

終わり;

終わり;