Delphi_Excel例子:单元格拷贝粘贴
2003-06-17 11:21
369 查看
//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例子:单元格拷贝粘贴
- excel表格中如何将内容粘贴到筛选后的可见单元格[转]
- 如何用Delphi在Excel文件中的某个单元格加个下拉框
- delphi 知道excel选中的单元格的行号
- 使用VSTO复制部分Excel单元格(带格式),粘贴并保存到另一Excel文件中
- Delphi Excel操作,写了个ADODataSet转Excel的函数作为后期学习的例子
- delphi 知道excel选中的单元格的行号
- 在Excel中数据筛选后如何拷贝粘贴
- excel 2013复制任何单元格, 粘贴是会非常慢
- c# Aspose 图片处理(将Excel单元格中的图片拷贝到另一个Excel文件中)
- 如何用Delphi在Excel文件中的某个单元格加个下拉框
- delphi控制excel ,在指定单元格后插入行
- Excel如何复制粘贴筛选后的单元格
- DELPHI中控制EXCEL的一个例子
- Delphi调用Excel设置单元格的格式
- Excel学习笔记002-002:工作表内及工作表间、工作簿间单元格数据的复制、剪切、粘贴;如何进行成绩排序。
- 将Excel单元格复制后,通过剪切板然后粘贴到页面上的table表中
- 用Delphi获取Excel工作表中单元格对象的属性
- DELPHI中控制EXCEL的一个例子