模拟错误的发生。
语法
Errorerrornumber
必需的 errornumber 可以是任何有效的错误号。
备注
支持 Error 语句以实现向后兼容。 在新代码中，尤其是在创建对象时，使用 Err 对象的 Raise 方法生成 运行时错误。
如果定义了 errornumber，则 Error 语句在为 Err 对象的属性分配以下默认值后调用错误处理程序：
| 属性 | 值 |
|---|---|
| Number | 指定为 Error 语句的参数的值。 可以是任何有效的错误号。 |
| Source | 当前 Visual Basic 项目的名称。 |
| 说明 | 与指定的 Number 的 Error 函数的返回值对应的字符串表达式（如果此字符串存在）。 如果此字符串不存在，则 Description 包含零长度字符串 ("")。 |
| HelpFile | 相应的 Visual Basic 帮助文件的完全限定的驱动器、路径和文件名。 |
| HelpContext | 与 Number 属性对应的错误的相应 Visual Basic 帮助文件上下文 ID。 |
| LastDLLError | 零。 |
如果不存在错误处理程序或未启用任何错误处理程序，则将从 Err 对象属性创建并显示错误消息。
注意
并非所有 Visual Basic 主机应用程序都可以创建对象;例如，运行 4.0 之前的 Visual Basic for Applications 版本的主机无法创建对象。 由于 Err 是返回 ErrObject 实例的 函数，因此不能在这些早期版本中使用它。 若要了解主机应用程序运行的 VBA 版本，请参阅 Visual Basic 编辑器 (VBE) 的 关于 信息，并查看主机应用程序的文档以确定它是否可以创建 类 和对象。
示例
此示例使用 Error 语句模拟错误号 11。
On Error Resume Next ' Defer error handling.
Error 11 ' Simulate the "Division by zero" error.
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。