Question

我有一个excel宏，这个变量在Sub（）中声明：

Dim ACAD As AcadApplication

如果计算机没有AutoCAD，我会收到编译错误。然后，我想要做的是管理此错误，以便向用户显示消息，如：

MsgBox "You have to install AutoCAD 2013 or later", vbCritical, "APPLICATION ERROR"

我google了很长时间没有回答。也许我没有正确使用关键词。

任何人都可以帮助我吗？

Answer 1

您可以使用create object而不是添加引用并使用dim声明它以下是示例

    On Error Goto AppNotfound 
    Set Web = CreateObject("InternetExplorer.Application")
    On Error Goto 0
    'Your Code here
    Exit Sub
    AppNotfound:
Msgbox("You have to install AutoCAD 2013 or later")

Exit Sub
End Sub

如何在VBA中管理编译错误

1 个答案: