Delphi_Excel例子:单元格拷贝粘贴

原创 2003年06月17日 11:21:00
//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;

delphi 操作excel复制sheet

procedure TForm1.FormCreate(Sender: TObject);  var   wb1 : Variant;  wb2 : Variant;   vsheet1 : ...
  • zang141588761
  • zang141588761
  • 2016年08月10日 10:32
  • 1007

Delphi操作EXCEL复制Sheet到另一个XLS文件中

用途:取excel模板文件中的某个sheet,合并到另一个已存在的excel文件中 var excel, src, dst, act: OleVariant; begin exc...
  • cmd9x
  • cmd9x
  • 2012年07月26日 10:26
  • 2317

Delphi对Excel的所有操作

学完这个你就成为excel高手了!(Delphi对Excel的所有操作)逐个试试!   一) 使用动态创建的方法  首先创建 Excel 对象,使用ComObj:  var ExcelApp: Va...
  • qingfeng45697
  • qingfeng45697
  • 2016年02月01日 16:16
  • 1557

Delphi_Excel例子:单元格拷贝粘贴

//Excel的单元格拷贝粘贴procedure Excel_copyCells;var  sheet,XLApp,workbook,myRange1 ,myRange2: variant;begin...
  • LuckyJan
  • LuckyJan
  • 2003年06月17日 11:21
  • 2516

delphi对Excel拷贝及粘贴

  • 2013年08月04日 14:35
  • 585KB
  • 下载

Windows下MINGW的复制与黏贴

MINGW没有相应的复制黏贴键,所以在Windows下复制黏贴是比较郁闷的事情。 下面就将我的经验分享出来,希望对大家有用: 1)鼠标右键点击Mingw32 title Bar区域,点击属...
  • z497544849
  • z497544849
  • 2017年03月22日 22:14
  • 407

datagridview复制粘贴行与单元格内容

最近遇到一个关于datagridview快捷键复制、粘贴、剪切、删除等操作的问题:在一个主菜单中定义了Ctrl+C、Ctrl+V、Ctrl+T、Delete等快捷键操作的主界面中,MDI子窗体的dat...
  • YoungProgrammer
  • YoungProgrammer
  • 2015年07月01日 16:15
  • 3258

Delphi excel 复制粘贴到dbgrid

uses   Clipbrd function SplitString(const Source,ch:String):TStringList; var temp:String; i:In...
  • whf96998
  • whf96998
  • 2015年06月29日 16:51
  • 271

Delphi对Excel的所有操作

学完这个你就成为excel高手了!(Delphi对Excel的所有操作)逐个试试!   一) 使用动态创建的方法  首先创建 Excel 对象,使用ComObj:  var Excel...
  • zisongjia
  • zisongjia
  • 2017年03月01日 09:45
  • 313

EXCEL所有单元格加减乘除一个数 -- 选择性粘贴的用法

原文链接: http://blog.sina.com.cn/s/blog_4e2dab170100lkrq.html 前些日子堂哥问我如何把一个表中的某一列数据全部除以2,万能的EXC...
  • vernice
  • vernice
  • 2016年02月23日 06:16
  • 1151
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi_Excel例子:单元格拷贝粘贴
举报原因:
原因补充:

(最多只允许输入30个字)