请翻译成delphi语句

Question

Range("A39:P79").Select
    Selection.Copy
    Range("A80:O120").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.FillDown

Answer 1

是EXCEL的宏啊,要将选定区(一页),复制出一页.

Answer 2

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]];//.Select ;
    myRange2:=sheet.Range[sheet.cells[80,1],sheet.cells[120,16]];//.Select ;
    myRange1.Copy(myRange2) ;
  finally
    if not VarIsEmpty(XLApp) then begin
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
  end;
end;