EXCEL服务器云管理平台租赁服务-E立方管理平台-信息化管理软件

企业管理软件报错如何给出交互功能

日期:2017-11-22 09:59  |  分类:最新资讯  |  人气:

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