WorkBook.SaveAs 当文件一存在时，弹出对话框窗口,怎么办“否”的情况，和点“取消”情况

WorkBook.SaveAs 当文件一存在时，弹出对话框窗口,怎么处理“否”的情况，和点“取消”情况！
如题，求高手指点

------解决方案--------------------------------------------------------
先做个判断，不就不会跳出这个对话框吗？

If Len(Dir("路径")) = 0 then
...
...
...
End If
------解决方案--------------------------------------------------------
Application.DisplayAlerts = False

WorkBook.SaveAs

Application.DisplayAlerts = True

这样就不会显示。
------解决方案--------------------------------------------------------
一般都是在存储前判断是否有重名文件，然后msgbox提示，按照返回值，来选择saveas的参数，来实现
------解决方案--------------------------------------------------------
楼上正解。

参考一下这个代码

VB code

Set NewBook = Workbooks.AddDo    fName = Application.GetSaveAsFilenameLoop Until fName <> FalseNewBook.SaveAs Filename:=fName