- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我一直在尝试在类模块中实现错误处理,这样我就可以记录用户是否遇到任何错误,以及它发生在哪个模块/类中。
我的方法是在调用子函数中处理错误报告,并在被调用子函数中使用 err.raise 将错误冒泡到调用子函数中。
这对于模块(从模块内调用模块)来说工作正常,但是当我测试从类模块内引发错误时,它给了我错误 #440 自动化错误而不是实际错误(比如 ex 的类型不匹配)。
我将(错误?)归结为在运行 class_Initialize 后由于某种原因未初始化 Err 对象的事实,我使用的是 Excel 2016;应用程序版本 = 16。例如,以下模块调用类属性:
Option Explicit
Private Sub TestCRef()
On Error GoTo ErrHandlr
Dim y As New CellRef
'Call y.SetRef 'normal behavior when Class_Initialize() is commented and this is used instead
Debug.Print y.CstOrdrNo
Exit Sub
ErrHandlr:
If Err.Source = ThisWorkbook.VBProject.Name Then
Err.Source = "Module1.TestCRef"
End If
Dim ErrStr As String
ErrStr = "Error # " & Str(Err.Number) & ", was generated by :" _
& Err.Source & ", Description : " & Err.Description
Debug.Print (ErrStr)
End Sub
类模块(CellRef):
Option Explicit
Public CstOrdrNo As Range
Private x As Integer
Sub Class_Initialize()
On Error GoTo ErrHandlr
x = "Bug" 'intentional
Set CstOrdrNo = ThisWorkbook.Worksheets(1).Range("A1")
Exit Sub
ErrHandlr:
Err.Raise vbObjectError + 5050, "CellRef.Class_Initialize", "Error While Initializing Class"
End Sub
'Used instead of Class_Initialize
Sub SetRef()
On Error GoTo ErrHandlr
x = "Bug" 'intentional
Set CstOrdrNo = ThisWorkbook.Worksheets(1).Range("A1")
Exit Sub
ErrHandlr:
Err.Raise vbObjectError + 5050, "CellRef.SetRef", "Error While Intializing x"
End Sub
第一种情况:Class_Initialize用于设置范围,第一次调用时出错。
预期行为:-错误 # -2147216454,由:CellRef.SetRef 生成,说明:初始化类时出错。
发生了什么:- 错误 # 440,由:Module1.TestCRef 生成,描述:自动化错误。
第二种情况: Class_Initialize 被注释掉,使用 SetRef 代替
行为:预期行为。
最佳答案
如您所知,Class_Initialize
引发错误
440: Automation error
当直接在其中引发任何错误时。
但是 Class_Initialize
可以像任何其他过程一样冒出任何错误。
所以我使用这个范式,我将 Class_Initialize
的代码放入一个新过程 ClassInitialize
并从 Class_Initialize
调用它:
Private Sub Class_Initialize()
ClassInitialize
End Sub
Private Sub ClassInitialize()
On Error GoTo Catch
Any code here ...
Done:
Exit Sub
Catch:
Err.Raise ...
End Sub
所以我可以在 ClassInitialize
中提出我需要的任何错误,Class_Initialize
会让它冒泡到它的调用者。
根据您的示例进行调整看起来像这样:
Private Sub Class_Initialize()
ClassInitialize
End Sub
Private Sub ClassInitialize()
On Error GoTo ErrHandlr
x = "Bug" 'intentional
Set CstOrdrNo = ThisWorkbook.Worksheets(1).Range("A1")
Exit Sub
ErrHandlr:
Err.Raise vbObjectError + 5050, "CellRef.Class_Initialize", "Error While Initializing Class"
End Sub
还要注意在 Class_Terminate
中处理运行时错误:
没有本地错误处理程序的类的过程 Class_Terminate
中的运行时错误(无论是否由 Err.Raise
本身引发)会导致无法捕获的运行时带有标准错误处理程序消息框的错误(行为与事件处理程序相同)。
所以在 Class_Terminate
中(就像在事件处理程序中一样)
总是必须启用“本地”错误处理程序!
并且由于此错误处理程序无法冒出错误,因此您必须在本地处理 Class_Terminate
中的运行时错误。
关于excel - VBA 从类模块中引发错误(使用 Class_Initialize)失败,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68517194/
我正在使用 SharePoint Online 并使用 Windows Azure 托管访问 SPO 的进程。 我们已将启动任务添加到 Azure 角色以安装 http://www.microsoft
我有一个函数,它获取包含时间的源文件(csv 文件),读取它,然后按顺序对行进行排序并将它们写入目标文件中。但是,如果源 csv 文件不存在,我需要引发 FileNotFoundError。我之前曾引
我试图在目录不存在时引发错误,然后再打开该目录中的文件。根据this response我应该为我的问题使用最具体的异常构造函数,我认为它是 NotADirectoryError。但是运行下面的代码我得
在编码/开发生命的一天或另一天,我们确实遇到了这个特殊的情况,这是最常见的异常(exception)之一。我的问题是关于的而不是。为什么(我知道当我们尝试访问实际上指向null的引用变量的属性时会引发
我想知道在 python 中是否可以在一个 except block 中引发异常并在稍后的 except block 中捕获它。我相信其他一些语言默认会这样做。 这是它的样子" try: som
我有以下代码: br = mechanize.Browser() br._factory.is_html = True br.form = mechanize._form.ParseString(''
我刚刚发现,如果您有一个引发 TOO_MANY_ROWS 异常的 SELECT INTO,该变量仍会从查询检索到的第一条记录中分配值。这是预期的行为吗? 这是我的例子: for co in my_cu
当 SSH 显示 WARNING: REMOTE HOST IDENTIFICATION HAS CHANGED! 我知道当您重新安装远程服务器时会发生这种情况,但我尝试列出 其他原因 . 我知道如何
我有一个枚举和一个 EnumMap . 我将 map 放入一个类中以隐藏“字节”值。所以我有一个set(Parameter, int)和set(Parameter, boolean)方法。 publi
在什么情况下会redis-py引发以下 AttributeError 异常? redis-py 不是设计来引发仅基于 redis.exceptions.RedisError 的异常吗? 什么是合理的处
可悲的是,对此异常的引用通常具有异国情调,并且可能发生在您例如通过 Assembly.GetTypes() 枚举类型- 举个例子,它发生在我们的一个部署上,但同一组程序集在集成服务器上运行良好。 为了
我正在为 Android 下的特定平板电脑克隆一个存储库并获取源代码,我必须执行一个 python 脚本。当我执行它时,我收到此错误消息: Traceback (most recent call la
首先,执行此操作(在运行 4.4.2 的 Nexus 5 上测试): 将 PRIORITY_LOW 通知传递给 Service.startForeground()。 观察通知不显示在状态栏中。 使用相
我尝试使用 AppEngine 的 python 模块 api 来获取使用基本缩放的模块的实例数。在我模块的 yaml 文件中,我明确设置了 max_instances 参数。我希望 get_num_
当我如下运行我的 spark python 代码时: import pyspark conf = (pyspark.SparkConf() .setMaster("local")
在我的系统上,一段适用于 Python 2 的代码不适用于 Python 3。 f = open("plotwidget.svg") svgData = f.read() xml_stream = Q
我是 PHP 和 SQL 的新手,但我正在创建一个登录系统。我遇到的问题是: You have an error in your SQL syntax; check the manual that c
我有一个使用 ebaysdk 库的 python 代码,当我运行代码并输入关键字进行搜索时,我得到了这个错误。 Traceback (most recent call last): File "eba
当我将表单数据发送到我的 Flask 应用程序时,出现以下错误。它说它将使用 UTF-8 编码,但语言环境已经是 UTF-8。这个错误是什么意思? /home/.virtualenvs/project
在python2.7中,跟随pympler example : from anotherfile import somefunction, somecustomclass from os import
我是一名优秀的程序员,十分优秀!