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.退出；

結尾;

結尾;

結尾;