Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1260161
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-01-04 16:55:46



请问用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];



--------------------------
盛大招聘.Net开发工程师

新闻:2008年开源软件10大胜利
导航:博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看
阅读(1481) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~