Delphi操作Excel

操作一个已存在Excel文件，里面有多个Sheet，利用Delphi打开这个Excel文件，在每个Sheet中的最后增加一行（每个Sheet行数不确定）Delphi里如何操作？  
   
  谢谢！ 问题点数：50、回复次数：1Top

1 楼xymao123（）回复于 2005-11-19 16:42:14 得分 50

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
          i,m:integer;  
          excelapp,book,sheet:variant;  
  begin  
          excelapp:=createoleobject('excel.application');  
          excelapp.visible:=false;  
          excelapp.DisplayAlerts:=False;  
          try  
   
                  excelapp.workbooks.open('d:\123.xls');  
                  book:=excelapp.workbooks[1];  
   
                  i:=book.worksheets.count;  
                  showmessage(inttostr(i));  
   
                  for   i:=1   to     book.worksheets.count   do  
                  begin  
                          sheet:=excelapp.worksheets[i];  
                          m:=sheet.usedrange.rows.count;  
                          showmessage(inttostr(m));  
                          sheet.cells[m+1,1].value:='new   new';  
                  end;  
   
                  book.save;  
                  excelapp.quit;  
          except  
                  excelapp.quit;  
          end;  
  end;Top

相关问题

• excel
• delphi
• excelapp
• sheet
• 操作
• worksheets
• book
• count

• 帖主：jy_1201
• xymao123

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载