VBA-检测编译失败的方法

Question

我有以下代码：

Public Function Compiler()
    On Error GoTo ErrorHandler

    Compiler = "Successfully Compiled"

    Dim compileMe As Object
    Set compileMe = Application.VBE.CommandBars.FindControl(Type:=msoControlButton, ID:=578)

    If compileMe.Enabled Then
        compileMe.Execute
    End If

    Exit Function

ErrorHandler:

    Compiler = "Unable to Compile - " & Err.Description

End Function

它与建议posted here非常相似，并且不起作用。如果您将错误引入到应用程序的其余部分中并运行它，则每次（单击错误消息之后）您都将获得“成功编译”。

如果无法编译文件，是否可以让方法返回“无法编译”？