Delphi_Excel例子:單元格複製貼上 (轉)

Delphi_Excel例子:單元格複製貼上 (轉)[@more@]//的單元格複製貼上
procedure Excel_copyCells;
var
  sheet,XLApp,workbook,myRange1 ,myRange2: variant;
begin
  try
  //建立
  XLApp:=createOle('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;