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