用delphi怎么执行excel的存盘操作

我在excel里写入一条信息后，要保存这个改动，然后继续写下一条信息。  
   
  我不想用saveas，我要在原文件中保存。 问题点数：30、回复次数：2Top

1 楼ljmanage（过客）回复于 2003-08-02 07:56:28 得分 30

var  
      pc_i:integer;  
      xlapp,sheet:   variant;  
      WBK:   OleVariant;  
  begin  
      xlapp   :=   createoleobject('excel.application');  
      if   Trim(Edit1.Text)=''   then  
      begin  
          Application.MessageBox('文件名不能为空','警告',MB_OK);  
          Exit;  
      end;  
      WBK   :=   xlapp.workbooks.Open(Edit1.Text);  
      sheet   :=   xlapp.workbooks[1].worksheets['sheet1'];  
      sheet.Cells.SpecialCells(XlCellTypeLastCell,EmptyParam).Activate;  
   
      showmessage(IntToStr(xlapp.ActiveCell.Row));  
      showmessage(IntToStr(xlapp.ActiveCell.Column));  
      //excelworksheet2.UsedRange[1].Rows.Count));  
      //excelworksheet2.UsedRange[1].Columns.Count));  
      pc_i:=1;  
      Edit2.Text   :=   sheet.cells[pc_i,1];           //写入的话用   sheet.cells[pc_i,1]   :=   Edit2.Tex;  
      WBK.Close(SaveChanges   :=   True);     //这句就是保存  
      xlapp.Quit;  
  end;Top

2 楼hongfeeling（无烟亦如烟）回复于 2003-08-02 09:26:47 得分 0

我想在不关闭文件的前提下保存Top

相关问题

• pc
• xlapp
• wbk
• sheet
• 保存
• edit
• cells
• text

• 帖主：hongfeeling
• ljmanage

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