Question

delphi7 中把数据写入excel，如何不提示而自动保存？

try
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
ShowMessage('ÄúµÄ»úÆ÷Àïδ°²×°Microsoft Excel.');
Exit;
end;
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Open( 'E:\aba.xls ' );
......
excelapp.save;
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
end;
end;
end;
一运行完就提示在当前位置发现已经存在名为“RESUME.XLW”的文件。您希望将该文件替换掉吗？

Answer 1

1.在保存的时候先判断是否有此文件,如果有的话,先删除.然后再保存.
只是加了个判断而已.
2.使用ExcelApp.DisplayAlerts:=false;//不显示对话框
看看是否可以

Answer 2

加入:

ExcelApp.DisplayAlerts:=False;

Answer 3

支持楼上的 使用ExcelApp.DisplayAlerts:=false;//不显示对话框

Answer 4

用楼上说的第二点来解决更方便