테스트 해본 코드는 아래와 같이 되있습니다.. 아래코드 보시고
답변 주시면 감사하겠습니다..
  어렵네요.. 먹고 살기심들어서.. ㅠㅠ


procedure TwDbToExl.Button2Click(Sender: TObject);
var
  MyExcel:variant;
  SaveExcel:variant;
begin
    if SaveDialog1.Execute then
    begin
     try
       MyExcel := CreateOleObject('Excel.Application');
       MyExcel.WorkBooks.Open('C:Test.xls');
       MyExcel.WorkBooks['Test.xls'].Sheets['Test'].select;

       if FileExists('C:Test.xls') then      
         DeleteFile('C:Test.xls');

      { 아래 코드를 실행하면 위에서 파일 지운후에 해도 메세지 박스가
       뜨는데..메세지 박스 안띄우고 그냥 저장 하고 싶거든요 .      
       또한가지는 저장 시점에서 파일형식에
       'Microsoft Excel 통합문서(.xls)', 택스트(텝으로분리)(.txt) .. 등등.
       이 있는데 이것도 바꿔서 저장 할수 있을까요?
       }
        
        MyExcel.WorkBooks['Test.xls'].Sheets['test'].SaveToSaveDialog1.FileName);
       MyExcel.WorkBooks.Close;
       MyExcel.quit;
       MyExcel := Unassigned;
     Except
       on E: Exception do
       begin
          ShowMessage(E.Message);
          MyExcel.WorkBooks.Close;
          MyExcel.quit;
          MyExcel := Unassigned;
          Exit;
       end;
     end;
end;