销售管理软件版1楼: 首先调用一个保存对话框输入保存的excel文件名，然后我用copyfile拷贝一个模板到这个文件中，然后我使用ADO连接数据库，将数据库里的内容写到这个excel文件中，写完后，系统会出现一个excel文件已改动，是否保存的对话框。
我的问题是怎样直接保存而不出现这个对话框，同时我不想使用自己加对话框的方式

2楼: 求高手解答 如管家婆软件下载

3楼: 帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

个人网站站长开发推广同盟，让所有人知道你的世界！

http://www.source520.com/search/search.asp

╰=========================================╯

4楼: 高手解答啊,一直没有解决

5楼: 看看这个代码吧
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var OLEExcel: Variant;
begin
copyfile(＇＇A.xls＇＇, ＇＇B.xls＇＇, TRUE);
try
OLEExcel := CreateOLEObject(＇＇Excel.Application＇＇);
OLEExcel.Visible := False;
OLEExcel.DisplayAlerts := FALSE; //加入这句，就不会提示保存了
OLEExcel.Workbooks.OPEN(ExtractFilePath(Application.ExeName) + ＇＇B.xls＇＇);
OLEExcel.Workbooks[1].worksheets[1].name := ＇＇新文件＇＇;
OLEExcel.Workbooks[1].worksheets[1].cells[1, 2] := ＇＇新数据A＇＇;
OLEExcel.Workbooks[1].worksheets[1].cells[2, 2] := ＇＇新数据B＇＇;
OLEExcel.Workbooks[1].Save;
OLEExcel.Quit;
except
OLEExcel.Quit;
MessageBox(Application.Handle, pchar(＇＇创建OLE对象失败,请确认已安装了EXCEL!＇＇),
＇＇提示＇＇, MB_OK + MB_ICONINFORMATION);
end;
end;

end.

6楼: 你在关闭的时候先保存一下再关闭就不会出现那个提示了

销售管理软件版7楼: 多人接受答案了。