excel VBA -检测编译失败的方法

yrefmtwq 于 2023-03-04 发布在其他

关注(0)|答案(1)|浏览(160)

下面的代码：

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的建议非常相似，但它不起作用。如果您在应用程序的其余部分引入错误并运行它，每次都会得到"成功编译"（在单击跳过错误消息后）。
如果文件无法编译，是否有办法让方法返回"无法编译"？

excel

来源：https://stackoverflow.com/questions/55621735/vba-method-to-detect-compilation-failure

1条答案

按热度按时间

dldeef671#

我的解决方案（返回true/false）：

Public Function func_app_compile() As Boolean
   On Error GoTo err_proc
   Dim cmd As Object
   Set cmd = Application.VBE.CommandBars.FindControl(Type:=msoControlButton, id:=578)
   If cmd.Enabled Then cmd.Execute
exit_proc:
   On Error GoTo 0
   DoEvents
   func_app_compile = Not cmd.Enabled
   Exit Function
err_proc:
   Err.Raise vbObjectError - 1000, , "Project failed to compile!"
End Function

然后您可以使用：

If Not func_app_compile Then End

赞(0）回复(0）举报 2023-03-04

我来回答

excel VBA -检测编译失败的方法

1条答案

相关问题

热门标签

最新问答