引言: 請教各位,在DELPHI中使用SAVEAS的指令將資料存入EXCEL中,若重覆存入相同檔名,會出現一個是否要覆蓋的詢問提示框,有何方法可以不要出現該提示框,直接寫入..請各位幫忙,謝謝

procedure TForm1.Button1Click(Sender: TObject);
var a : Variant;
begin
   a := CreateOleObject('Excel.Application');
   a.Visible := True;
   a.DisplayAlerts := False;
   a.Workbooks.Open('c:\Book1.Xls');
   a.ActiveWorkbook.SaveAs('c:\Book2.Xls');
   a.ActiveWorkbook.SaveAs('c:\Book1.Xls');
end;