Debug.Print

要将错误代码描述列表打印到立即窗口，请将其传递给 Debug.Print 函数：

Private Sub ListErrCodes()
    Debug.Print "List Error Code Descriptions"
    For i = 0 To 65535
        e = Error(i)
        If e <> "Application-defined or object-defined error" Then Debug.Print i & ": " & e
    Next i
End Sub

你可以通过以下方式显示立即窗口：

• 选择 V IEW | 我从菜单栏中修改了窗口
• 使用键盘快捷键 Ctrl-G