Excel服务器云平台-E立方管理平台-低代码快速开发平台

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

日期:2018-03-26 19:03  |  分类:表间取数公式  |  人气:

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