企业管理软件程序运行错误的警告代码

一个好的企业管理软件，应该充分的达到交互的功能，要考虑到任何一个小错误都可能给企业带来巨大困难，要将客户的企业当成自己的企业来做管理系统，如何有任何报错的可能，要给出交互，防止程序继续进行，而实际用户不知道已经产生问题。比如 在执行表间更新公式的时候，受到网络原因等，导致程序运行出错，可以给予客户提醒警告，可用如下代码：

如果在代码执行报错后，给出相应操作，可以使用On Error GoTo 过程名 语句，如下：

Sub 追加二级部门编号()

On Error GoTo ErrorHandler

Dim obj As Object

Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

obj.execFormula_Update "更新公式;"

MsgBox "更新完成"

Exit Sub

Set obj = Nothing

ErrorHandler:

MsgBox "执行出错！"

End Sub

这样如果更新公式执行报错，可以跳转到“ErrorHandler”，提示“执行出错！”