检查是否SaveAs是成功的VBA

我需要什么样的声明来检查SaveAs操作在vba中是否成功？

Sub saveBookAs() wb.SaveAs fileName:="newFile" End Sub 

Answer 1

您不需要一个语句来检查工作簿是否已保存:)如果Save As过程失败，则该行将自动出错:)

话虽如此，如果你想检查一个文件是否存在，你总是可以使用DIRfunction。 DIR返回一个string，表示与指定的模式或文件属性或驱动器的卷标相匹配的文件，目录或文件夹的名称。

句法

Dir [（pathname [，attributes]）]

查看VBA帮助以获取更多详细信息。

编辑

另一个提示。

如果你不想破解你的代码，那么你也可以使用适当的error handling。

例如

 Sub Sample() On Error GoTo Whoa ActiveWorkbook.Save SomeFilePathAndName Exit Sub Whoa: MsgBox Err.Description End Sub