With CommonDialog1
.InitDir = CurDir
.Filter = "所有文件(*.*)|*.*"
.DialogTitle = "另存为"
.ShowSave
If Dir(.FileName) <> "" Then
Dim IsReplace As Integer IsReplace = MsgBox(.FileTitle + "已经存在,覆盖它吗?", vbYesNo, "警告")
'相应的处理代码
End If
End With
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024