检查 SaveAs 是否成功 VBA

Question

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

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

End Sub

Answer 1

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

话虽如此，如果你想检查文件是否存在，你可以随时使用该DIR函数。DIR返回一个字符串，表示与指定模式或文件属性或驱动器卷标匹配的文件、目录或文件夹的名称。

句法

目录[(路径名[,属性])]

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

编辑

另一个提示。

如果您不希望代码被破坏，那么您还可以使用适当的错误处理。

例如

Sub Sample()
    On Error GoTo Whoa

    ActiveWorkbook.Save SomeFilePathAndName

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub