这个应该是很容易，会者不难，难者不会，就是VB在生成，改写文件后，总是询问我
要不要覆盖和保存这个文件，
同名的文件存在，询问要不要覆盖
文件改写了想退出，询问要不保存
有什么函数设定一下

這個 ```可能要用別 的 方法叻```代碼肯定不行的 ``

如果是你自己开发的产品 当然可以实现这个开关
存盘的时候 先判断一下文件是否存在 如果存在就删除 然后再保存; 退出的时候也一样.不弹出任何msgbox.

当然如果你使用了系统的控件 或者ole对象 那就没办法了

BTW: 楼上的签名...恩恩 ...是以偏概全...所谓一叶障目 不见泰山 呀

感谢版主的回答，就是我自己的写的程序，存盘解决了，
但是如果一个Execl的模版文件，内容是空的，如果我改写文件的内容，打印出来以后
然后需要这个文件保持原貌，不保存修改的内容，怎么不让系统弹出是否保存的对话框

If MsgBox("您是否要保存该文件?", vbYesNo + vbQuestion, "系统提示") = vbYes Then
'保存的代码
Else
'不保存的代码
End If

没看清楚,我再想想

还是那句话 看你是否使用了系统提供的组件

也就是说 假如你用自己设计的编辑器来读取,修改 Excel模板,退出时想怎么都可以控制;
如果你是调用了Excel 或者别的什么Microsoft的东东来编辑这个模板 那么退出的时候弹不弹对话框就由不得你了....

这段程序，根据数据库的内容每一页打印三张凭证，hz1_file_path 变量就是凭证的模版，改写完毕，打印，当关闭的时候，就提示文件内容已改写，是否保存！

If Dir(hz1_file_path) = "" Then
Call MsgBox("对不起，当前找不到" + hz1_file_path + "这个模版文件，不能打印这个凭证！", vbExclamation, "警告")
Exit Sub
End If
Label2.Caption = "←"
Label2.Refresh
Text2.Text = "正在启动Excel程序引擎启动......" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
Dim xlexcel1 As New Excel.Application '定义EXECL类
Dim xlBook1 As New Excel.Workbook
Dim xlsheet1 As New Excel.Worksheet
xlexcel1.Visible = False '将EXECL设为不可见
Set xlBook1 = xlexcel1.Workbooks.Open(hz1_file_path) '打开EXCEL工作
Set xlsheet1 = xlBook1.Worksheets(1) '选择工作簿
xlsheet1.Activate '激活工作表
Text2.Text = "Excel程序引擎启动完毕！" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
Text2.Text = "正在启动数据库引擎......" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
Dim cnn1 As New ADODB.connection
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
sql1 = "select * from lp_zzpz where bz=1"
cnn1.Open connection
rs1.Open sql1, cnn1, 1, 1

allhs = rs1.RecordCount
zfjhs = 0
Text2.Text = "数据库引擎启动完毕！" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
Text2.Text = "正在打印汇总转帐凭证" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
ProgressBar1.Value = 0
If Not rs1.EOF Then
Do While Not rs1.EOF

xlsheet1.Cells(3, 3) = Left(Trim(system_xtrq), 4) + "年" + Left(Right(Trim(system_xtrq), 6), 2) + "月" + Right(Trim(system_xtrq), 2) + "日"
xlsheet1.Cells(3, 6) = "第" + Trim(CInt(rs1("pz_bh"))) + "号"
xlsheet1.Cells(5, 2) = Trim(rs1("zh1"))
xlsheet1.Cells(5, 4) = Trim(rs1("zy1"))
xlsheet1.Cells(5, 6) = Trim(rs1("je"))
xlsheet1.Cells(8, 6) = Trim(rs1("je"))
xlsheet1.Cells(10, 2) = "会计主管 授权 复核 录入"
zfjhs = zfjhs + 1
If zfjhs > allhs Then
zfjhs = allhs
End If
ProgressBar1.Value = zfjhs / allhs * 100
rs1.MoveNext
If rs1.EOF Then
xlsheet1.PrintOut
Exit Do
End If

xlsheet1.Cells(15, 3) = Left(Trim(system_xtrq), 4) + "年" + Left(Right(Trim(system_xtrq), 6), 2) + "月" + Right(Trim(system_xtrq), 2) + "日"
xlsheet1.Cells(15, 6) = "第" + Trim(CInt(rs1("pz_bh"))) + "号"
xlsheet1.Cells(17, 2) = Trim(rs1("zh1"))
xlsheet1.Cells(17, 4) = Trim(rs1("zy1"))
xlsheet1.Cells(17, 6) = Trim(rs1("je"))
xlsheet1.Cells(20, 6) = Trim(rs1("je"))
xlsheet1.Cells(22, 2) = "会计主管 授权 复核 录入"
rs1.MoveNext
zfjhs = zfjhs + 1
If zfjhs > allhs Then
zfjhs = allhs
End If
ProgressBar1.Value = zfjhs / allhs * 100
If rs1.EOF Then
xlsheet1.PrintOut
Exit Do
End If
xlsheet1.Cells(27, 3) = Left(Trim(system_xtrq), 4) + "年" + Left(Right(Trim(system_xtrq), 6), 2) + "月" + Right(Trim(system_xtrq), 2) + "日"
xlsheet1.Cells(27, 6) = "第" + Trim(CInt(rs1("pz_bh"))) + "号"
xlsheet1.Cells(29, 2) = Trim(rs1("zh1"))
xlsheet1.Cells(29, 4) = Trim(rs1("zy1"))
xlsheet1.Cells(29, 6) = Trim(rs1("je"))
xlsheet1.Cells(32, 6) = Trim(rs1("je"))
xlsheet1.Cells(34, 2) = "会计主管 授权 复核 录入"
xlsheet1.PrintOut
rs1.MoveNext
zfjhs = zfjhs + 1
If zfjhs > allhs Then
zfjhs = allhs
End If
ProgressBar1.Value = zfjhs / allhs * 100
Loop
End If
Text2.Text = "汇总转帐凭证打印完毕！" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
rs1.Close
Set rs1 = Nothing
Set cnn1 = Nothing
Text2.Text = "关闭数据库引擎！" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
xlexcel1.Quit '结束EXCEL对象
Set xlBook1 = Nothing
Set xlexcel1 = Nothing
Text2.Text = "关闭Execl程序引擎！" + Chr(13) + Chr(10) + Text2.Text
Text2.Refresh
Label2.Caption = "√"
Label2.Refresh

如果实在找不到方法，当然可以，把模版文件通过改写恢复原貌，保存，不弹出对话框，可以让程序运行，但是那样要在写程序行，如果能像Vf set safe off 这样的开关就好了

这个...你要失望了...