Excel VBA：类模块调用用户窗体公共子过程报错求助

核心原因 #

你遇到的运行时错误91，本质是类模块调用用户窗体时，窗体对象的引用状态不一致：

• 正常运行时，直接用窗体名ScanTool调用方法会触发VBA隐式创建窗体实例，但这个实例可能未完成初始化，或因流程速度快导致动态控件尚未生成，最终引发引用失效；
• 单步调试时，调试器会维持窗体实例的存在，且停顿时间给了控件生成的缓冲，因此能正常执行。
  另外，你的代码中还存在一个易忽略的细节：Label控件的文本属性是Caption而非Text，这也可能是触发错误的诱因。

解决方法 #

方法1：使用显式窗体实例引用 #

避免依赖VBA的隐式实例化，在类模块中保存窗体的显式引用：

1. 在类模块中添加模块级变量：

Private m_ScanTool As ScanTool

2. 在类初始化（或传递窗体实例的逻辑中），赋值已初始化的窗体实例：

Private Sub Class_Initialize()
    ' 如果窗体已通过ScanTool.Show显示，直接赋值当前实例
    Set m_ScanTool = ScanTool
    ' 若窗体未显示，先实例化再显示：
    ' Set m_ScanTool = New ScanTool
    ' m_ScanTool.Show
End Sub

3. 调用方法时使用这个显式引用：

Private Sub MinEvents_click()
    Dim MinArt As MSForms.TextBox

    ' 运行正常的代码片段

    m_ScanTool.CheckPickingCompleet ' 替换原Call语句

    ' 运行正常的其他代码
End Sub

方法2：修复用户窗体Sub中的控件引用问题 #

修改CheckPickingCompleet，确保控件引用有效并修正属性错误：

Public Sub CheckPickingCompleet()
    Dim targetLabel As MSForms.Label
    ' 先获取目标标签并检查是否存在
    Set targetLabel = Me.Controls("Label_AantalArtikelen_" & GescandArtikel)
    
    If targetLabel Is Nothing Then
        MsgBox "未找到目标标签控件"
        Exit Sub
    End If
    
    ' Label控件用Caption属性，且数值比较需转成数值类型
    If ArtScan.Text = targetLabel.Caption Then
        ' 执行所需操作
    ElseIf Val(ArtScan.Text) > Val(targetLabel.Caption) Then
        ' 执行其他操作
    End If
End Sub

额外注意事项 #

• 动态生成控件的逻辑要放在窗体的Initialize或Activate事件中，确保在调用CheckPickingCompleet前控件已生成完成；
• 确保GescandArtikel变量始终有有效值，避免拼接后的控件名称不存在。

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