我快气死了---为什么将ACCESS数据导入EXCEL后保存时会出现‘另存为’对话框

Question

我快气死了---为什么将ACCESS数据导入EXCEL后保存时会出现‘另存为’对话框,我已经给excel设置了文件名呀！这个问题已困扰了3天了，请高手指教!...
  Try
  ExcelApplication1.Connect;
  Except
  MessageDlg('Excel 可能没有安装', mtError, [mbOk], 0);
  exit;
  End;
 ExcelApplication1.Visible[0]:=True;
 ExcelApplication1.Caption:='ACCESS导入EXCEL';
 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
 Temp_Worksheet:=ExcelWorkbook1.Worksheets.add(EmptyParam,EmptyParam,
                                 EmptyParam,EmptyParam,0) as _WorkSheet;
 ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
 ExcelWorkSheet1.Name:='test';
 ExcelWorkSheet1.Activate;
...excelapplication1.Save('ymexcel.xls');
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;

Answer 1

方法一:
... ...
ExcelApplication1.DisplayAlerts:=wdalertsNone;
Excelapplication1.Save('ymexcel.xls');
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
方法二:
Findwindow(...
SendMessage(...
具体不是很记得了.

Answer 2

我想你的目的只是将Access中的数据保存为Execel文件。既然如此，为什么一定要打开Excel呢？直接导出Execel文件不就可以了吗？
(我在以前的帖子里看过)

Answer 3

zdcnow(磁效应):
  你的方法一我已经试过了，但ExcelApplication1.DisplayAlerts:=wdalertsNone;编译不能通过，
  会出现[Error] Unit8.pas(245): '[' expected but ':=' found
  
  Rijie(做人真难)：
  你的方法我也试了，可是还是会跳出‘另存为对话框’
 我已试过好多办法都没解决，请各位高手指点一下吧，高分奉送。  

Answer 4

不好意思，呵呵，那个是word下用的。
应该是：ExcelApplication1.DisplayAlerts:=false;就可以的。