讨论：错误集中处理sub 写入log，获取出错sub的名称！？
Public Sub AddData()
On Error GoTo ErrHandle
A=10/0
Exit Sub
ErrHandle:
CatchErr (thisSub.getSubName) 'thisSub.getSubName 为获得当前sub名称的一个方法。是否存在这样的方法能获得当前sub的名称
End Sub
'错误截获:
Public Sub CatchErr(SubName As String)
Dim LogFile As String
On Error Resume Next
If ErrMode = 1 Then
'text
LogFile = App.Path & "\log "
Open LogFile For Append As #1
Print #1, Now, SubName, Err.Description, Err.Number, Err.Source, Err.LastDllError
Close #1
End If
End Sub
[解决办法]
没有这样的现成方法,但是你可以考虑写一个IDE插件，插件中是可以得到当前所在行函数名字的，这样就可以自动帮你在代码中插入模块及函数的名。
[解决办法]
VBFRIEND2006 你下载能替代你的功能哦
