VBA使用vbObjectError时应搭配什么数值作为自定义错误码？

VBA自定义错误码区间问题 #

现有文档说明矛盾 #

目前可查询到的自定义错误码规则存在不一致表述：

如果你要生成自定义错误，应将你的错误码数值加在vbObjectError常量后，例如Err.Raise Number = vbObjectError + 1000。513-65535范围可用作用户自定义错误码。
可用的自定义错误码范围为vbObjectError + 512 到 vbObjectError + 65535
用户自定义错误码应大于vbObjectError常量数值。

问题复现 #

按照上述规则执行时，触发了系统原生错误而非自定义错误：

Err.Raise vbObjectError + 515
Automation error
A syntax error occurred trying to evaluate a query string

该错误对应的系统内置常量为EVENT_E_QUERYSYNTAX As Long = &H80040203，VBA立即窗口验证结果如下：

?&H80040203
-2147220989  <-- 等于 vbObjectError + 515

目前存在的疑问点：

• 若按要求加vbObjectError前缀，vbObjectError+515属于文档标注的可用范围，却触发原生系统错误
• 若不加前缀直接使用513-65535区间，该区间内520、521、部分700+、31000+数值也属于原生错误码
• 官方文档未给出明确无冲突的自定义错误码可用区间
  请问是否可以从vbObjectError + 1开始使用自定义错误码？

更新1：原生错误实测 #

以下过程可枚举指定范围内所有唯一错误：

Sub ListErrs()
          Dim lRow As Long, lCol As Long, lErr As Long, sError As String
          lCol = 4
          Application.ScreenUpdating = False

          For lErr = -2000000 To 1000000
                    Application.StatusBar = lErr
                    On Error Resume Next
                    Err.Raise lErr
                    If (Error <> sError) Then
                              lRow = lRow + 1
                              If lRow > 1048576 Then
                                        lRow = 1
                                        lCol = lCol + 1
                              End If
                              sError = Error
                              Cells(lRow, lCol) = lErr & " : " & sError
                              Windows(1).ScrollRow = lRow
                    End If
                    On Error GoTo 0
                    DoEvents
          Next lErr


          Application.ScreenUpdating = True
End Sub

测试范围覆盖了-2000000到1000000全量数值，以及vbObjectError（约-20亿）到-2000000的部分数值，全量测试该区间需耗时一周，暂未完成。实测到的已占用错误码如下，与公开文档说明存在冲突：

-2147221504 Automation error
-2147221230 ActiveX component can't create object
-2147221229 Automation error
-2147221164 ActiveX component can't create object
-2147221163 Automation error
-2147221021 ActiveX component can't create object
-2147221020 Automation error
-2147221018 File name or class name not found during Automation operation
-2147221017 Automation error
-2147221014 File name or class name not found during Automation operation
-2147221013 Automation error
-2147221006 Automation error
-2147221005 ActiveX component can't create object
-2147221004 Automation error
-2147221003 ActiveX component can't create object
-2147221002 Automation error
-2147220994 ActiveX component can't create object
-2147220993 Automation error
-2000000    Automation error
0   Invalid procedure call or argument
1   Application-defined or object-defined error
3   Return without GoSub
4   Application-defined or object-defined error
5   Invalid procedure call or argument
6   Overflow
7   Out of memory
8   Application-defined or object-defined error
9   Subscript out of range
10  This array is fixed or temporarily locked
11  Division by zero
12  Application-defined or object-defined error
13  Type mismatch
14  Out of string space
15  Application-defined or object-defined error
16  Expression too complex
17  Can't perform requested operation
18  User interrupt occurred
19  Application-defined or object-defined error
20  Resume without error
21  Application-defined or object-defined error
28  Out of stack space
29  Application-defined or object-defined error
35  Sub or Function not defined
36  Application-defined or object-defined error
47  Too many DLL application clients
48  Error in loading DLL
49  Bad DLL calling convention
50  Application-defined or object-defined error
51  Internal error
52  Bad file name or number
53  File not found
54  Bad file mode
55  File already open
56  Application-defined or object-defined error
57  Device I/O error
58  File already exists
59  Bad record length
60  Application-defined or object-defined error
61  Disk full
62  Input past end of file
63  Bad record number
64  Application-defined or object-defined error
67  Too many files
68  Device unavailable
69  Application-defined or object-defined error
70  Permission denied
71  Disk not ready
72  Application-defined or object-defined error
74  Can't rename with different drive
75  Path/File access error
76  Path not found
77  Application-defined or object-defined error
91  Object variable or With block variable not set
92  For loop not initialized
93  Invalid pattern string
94  Invalid use of Null
95  Application-defined or object-defined error
96  Unable to sink events of object because the object is already firing events to the maximum number of event receivers that it supports
97  Can not call friend function on object which is not an instance of defining class
98  A property or method call cannot include a reference to a private object, either as an argument or as a return value
99  Application-defined or object-defined error
321 Invalid file format
322 Can't create necessary temporary file
323 Application-defined or object-defined error
325 Invalid format in resource file
326 Application-defined or object-defined error
380 Invalid property value
381 Invalid property array index
382 Set not supported at runtime
383 Set not supported (read-only property)
384 Application-defined or object-defined error
385 Need property array index
386 Application-defined or object-defined error
387 Set not permitted
388 Application-defined or object-defined error
393 Get not supported at runtime
394 Get not supported (write-only property)
395 Application-defined or object-defined error
422 Property not found
423 Property or method not found
424 Object required
425 Application-defined or object-defined error
429 ActiveX component can't create object
430 Class does not support Automation or does not support expected interface
431 Application-defined or object-defined error
432 File name or class name not found during Automation operation
433 Application-defined or object-defined error
438 Object doesn't support this property or method
439 Application-defined or object-defined error
440 Automation error
441 Application-defined or object-defined error
442 Connection to type library or object library for remote process has been lost. Press OK for dialog to remove reference.
443 Automation object does not have a default value
444 Application-defined or object-defined error
445 Object doesn't support this action
446 Object doesn't support named arguments
447 Object doesn't support current locale setting
448 Named argument not found
449 Argument not optional
450 Wrong number of arguments or invalid property assignment
451 Property let procedure not defined and property get procedure did not return an object
452 Invalid ordinal
453 Specified DLL function not found
454 Code resource not found
455 Code resource lock error
456 Application-defined or object-defined error
457 This key is already associated with an element of this collection
458 Variable uses an Automation type not supported in Visual Basic
459 Object or class does not support the set of events
460 Invalid clipboard format
461 Method or data member not found
462 The remote server machine does not exist or unavailable
463 Class not registered on local machine
464 Application-defined or object-defined error
481 Invalid picture
482 Printer error
483 Application-defined or object-defined error
735 Can't save file to TEMP
736 Application-defined or object-defined error
744 Search text not found
745 Application-defined or object-defined error
746 Replacements too long
747 Application-defined or object-defined error
65536   Invalid procedure call or argument

更新2：.Source属性解决方案 #

更为合理的实现逻辑是允许不同应用定义重叠的错误码，搭配专属标识区分歧义，可使用Err对象的.Source属性作为区分标识避免冲突。

内容的提问来源于stack exchange，提问作者johny why