首页 > Windows开发 > 详细

delphi 操作excel复制区域功能呢

时间:2020-04-29 16:54:45      阅读:100      评论:0      收藏:0      [点我收藏+]

uses ComObj;

代码很简单就不用备注了吧

var
ExcelApp:Variant;
c1,c2,r1,r2:Variant;
begin
try
ExcelApp := CreateOleObject(‘Excel.Application‘);
ExcelApp.WorkBooks.Open(‘C:\Users\Administrator\Desktop\ceshi.xlsx‘);
c1 := ExcelApp.ActiveWorkBook.Sheets[1];
c2 := ExcelApp.ActiveWorkBook.Sheets[1];
r1 := c1.range[c2.cells[1, 1], c1.cells[1, 2]];
r1.select;
r1.copy;
r2 := c2.range[c2.cells[10, 10], c2.cells[10, 11]];
r2.select;
c2.paste;
finally
ExcelApp.ActiveWorkBook.Saved := true;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
end;
end;

delphi 操作excel复制区域功能呢

原文:https://www.cnblogs.com/zyb2016/p/12803050.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!