Question

关于Delphi7的Excel保存问题。

比如我打开：ExcelApp.WorkBooks.Open('C:\abc.xls');进行了数据计算之后，想要直接保存到C:\abc.xls，怎么办？

用ExcelApp.SaveAs('C:\abc.xls');提示

用if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview;提示

我不想让它弹出任何对话框，直接保存，怎么办？





Answer 1

Excel := CreateOLEObject('Excel.Application');
Excel.WorkBooks.open(filename);
......
Excel.DisplayAlerts := false; //不提示任何警告信息
Excel.ActiveWorkbook.Save; // 保存
Excel.Quit; //退出