老大们，excel自动存盘咋写？！在线等！

Question

这一句老是报错！Myworkbook.WorkBooks.SaveAs(GetCurrentDir()+'\2007年'+Month_Edit.Text+'月份收入表(6张).xls');

Answer 1

procedure   TForm1.CreatOleClick(Sender:   TObject);  
  var  
      i,j,Num:   integer;  
      str:char;  
  begin  
      try  
          MsExcel   :=   CreateOleObject('Excel.Application');  
          WorkBook   :=   MsExcel.WorkBooks.Add;  
          WorkSheet   :=   MsExcel.WorkSheets.Add;  
      except  
          MessageDlg('Can   nott   creat   Excel!',   mtWarning,   [mbOK],   0);  
          exit;  
      end;  
      MsExcel.Visible   :=   True;  
      for   j:=1   to   10   do   begin  
          str:=chr(64+j);  
      for   i   :=   1   to   20   do   begin  
          num:=i*j;  
          WorkSheet.Range[str   +   IntToStr(i)].Value   :=num   ;  
      end;  
      end;  
      try  
          WorkSheet.SaveAs(ExtractFilePath(Application.EXEName)   +   'TEMP.XLS');  
      except  
          MessageDlg('Can   not   save   as   TEMP.XLS!',   mtInformation,   [mbOK],   0);  
      end;  
  end;

Answer 2

正解：
Myworkbook.ActiveWorkBook.saveas(GetCurrentDir()+'\2007年'+Month_Edit.Text+'月份收入表(6张).xls');请L*失踪的月亮速来领分！