Delphi_Excel例子:单元格拷贝粘贴
来源:互联网 发布:ubuntu 文件夹路径 编辑:程序博客网 时间:2024/05/10 21:33
//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;
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;
- Delphi_Excel例子:单元格拷贝粘贴
- Delphi_Excel例子:单元格拷贝粘贴
- Delphi_Excel例子:单元格拷贝粘贴
- Android 拷贝与粘贴
- 自定义拷贝粘贴窗口
- android 剪贴板 拷贝 粘贴
- ios 拷贝 粘贴
- 自定义拷贝粘贴窗口
- 自定义拷贝粘贴窗口
- 自定义拷贝粘贴窗口
- VMRC开启拷贝粘贴
- VBA单元格拷贝
- C#中的拷贝与粘贴
- 评价技术文章的拷贝粘贴
- Android 拷贝/粘贴(Copy/Paste)
- 虚拟机之间拷贝粘贴问题
- 禁用右键,禁止拷贝,粘贴
- Java拷贝和粘贴文本
- 免费发布一个简单而有趣的计算工具
- 困倦,因为9/11报告
- C#里的委托和事件实现Observer
- BBS 设计思路系列 ---- 逐步完善的道具中心
- 没有这个东东真的不行
- Delphi_Excel例子:单元格拷贝粘贴
- 用ADox获得表的唯一索引
- Luky Day!
- An Introduction to Programming Using Microsoft Visual C# 2005 Express Edition
- 一個成功的項目必勝的條件
- [创业]创业流程
- 重阅穆斯林葬礼--读书笔记
- 言论收集
- tomcat5中的无法调用WEB-INF/lib/中j2ee.jar包的怪问题的解决