delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
如何在Excel中插入一行 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061221143745213.html
请问用TExcelApplication、TExcelWorkbook和TExcelWorkSheet如何去操作Excel,使其可以在指定位置插入一行。以下为网上给出的办法,可是根本无法运行:  
   
  ExcelApplication1.ActiveSheet.Rows[2].Insert;   //在第二行处插入一空行  
   
  本人使用的环境为Delphi7+Office   2003。

 
  可以这样处理:  
  如想在第I   +   1   行插入一空白行  
  if   row   :=   i   +1   then    
  for   j   :=   0   to   lcol   do  
  TempWorkSheet.Cells[row,   J]   :=   '';  
   
  这样不就插入一空白行了吗?

樓主太小氣。。。只有5分。  
  插入一行或一列:  
  a.   ExcelApp.ActiveSheet.Rows[2].Insert;  
  b.   ExcelApp.ActiveSheet.Columns[1].Insert;  
  删除一行或一列:  
  a.   ExcelApp.ActiveSheet.Rows[2].Delete;  
  b.   ExcelApp.ActiveSheet.Columns[1].Delete;  
 

按照ghtghtmalone的方法,第i+1行的内容将会被清空,而maming2003得方法是目前网上普遍流行的方法,只可惜,Delphi7下根本无法编译。我目前最头疼的是不知如何将某一行或列作为一个对象返回。还请各位赐教。

不知道你想干吗?  
  if   row   :=   i   +1   then    
  for   j   :=   0   to   lcol   do  
  TempWorkSheet.Cells[row,   J]   :=   '';  
  EXCEL不就是一个二维数组吗?  
   
  把想插入的数据放在数组中不就可以赋值了?  
   
  你想插入的值直接用下面的语句不就行了?  
  TempWorkSheet.Cells[row,   J]   :=   arr[rol,j];

posted on 2009-01-04 16:52 delphi2007 阅读(381) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。