delphi_excel例子:单元格拷贝粘贴_delphi教程

//Excel的单元格拷贝粘贴
procedure Excel_copyCells;
var
  sheet,XLApp,workbook,myRange1 ,myRange2: variant;
begin
  try
    //创建对象
    XLApp:=createOleObject(Excel.Application);
      XLApp.displayAlerts:=true;
      XLApp.ScreenUpdating:=true;
    XLApp.visible:=true;
    XLApp.WorkBooks.Add(D:\Test.xls);
    workbook := XLApp.workbooks[1];
    sheet:=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) ;
  finally
    if not VarIsEmpty(XLApp) then begin
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
  end;
end;