检查SaveAs是否成功VBA

Question

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

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

End Sub

Answer 1

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

如果你想检查文件是否存在，你可以随时使用DIR功能。 DIR返回一个String，表示与指定的模式或文件属性或驱动器的卷标签匹配的文件，目录或文件夹的名称。

<强>语法

Dir [（路径名[，属性]）]

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

修改

另一个提示。

如果您不希望代码中断，那么您也可以使用正确的错误处理。

例如

Sub Sample()
    On Error GoTo Whoa

    ActiveWorkbook.Save SomeFilePathAndName

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub