Delphi_Excel例子:单元格拷贝粘贴

2019-11-18 18:35:03

字体：大中小

来源：转载

供稿：网友

//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;

上一篇：华为CMPP源码delphi6版

下一篇：《Delphi面向对象编程思想》前言

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注