excel - 检查 SaveAs 是否成功 VBA

Question

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

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

End Sub

Answer 1

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

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

语法

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

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

编辑

另一个提示。

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

例如

Sub Sample()
    On Error GoTo Whoa

    ActiveWorkbook.Save SomeFilePathAndName

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub