Delphi_Excel例子:单元格拷贝粘贴
来源:互联网 发布:mac口红所有色号图片 编辑:程序博客网 时间:2024/05/21 02:35
//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拷贝和粘贴文本
- Delphi与XML
- Delphi与Excel
- (Delphi)Excel的快速导入
- 读取硬盘的物理序列号
- Delphi与Word例1
- Delphi_Excel例子:单元格拷贝粘贴
- Delphi组件与属性编辑器
- INI文件的操作(ASP.NET+C#)
- IIS控制管理(Web虚拟目录的创建及管理)
- 解决.NET(WebApplication)安装部署的不能选择安装路径的问题
- 在Windows下使用GCJ+SWT的实例
- Changes in PHP 5/Zend Engine 2.0
- AMFPHP支持中文的方法(原创,嘿嘿)
- 网页编辑器 DIY