Excel VBA自定义类调用方法触发“运行时错误438”求助

你的代码存在两个核心问题，导致运行时错误'438'，以下是具体问题和修复方案：

问题1：ArrayList未初始化 #

sTask类中仅声明了laborcharge_array变量，但未创建ArrayList实例。调用laborcharge_array.Add时，变量处于Nothing状态，触发对象不存在的错误。

问题2：方法调用的括号使用错误 #

调用task.AddLaborCharge (this_charge)时，括号会强制将sCharge对象转换为Variant类型，而方法参数要求的是sCharge对象，类型不匹配导致错误。

修复后的代码 #

修改sTask类（添加初始化事件） #

' Class Module: sTask
Public wbs As String

Dim laborcharge_array As ArrayList

Private Sub Class_Initialize()
    ' 创建ArrayList实例，确保对象可用
    Set laborcharge_array = New ArrayList
End Sub

Public Sub AddLaborCharge(charge As sCharge)
    Debug.Print "Adding to laborcharge_array..."
    laborcharge_array.Add charge
End Sub

修改调用过程（去掉参数括号） #

Sub DebugMethod()
    Dim task As New sTask
    Dim this_charge As New sCharge
    this_charge.element = "Testing"
    ' 去掉参数外的括号，正确传递对象引用
    task.AddLaborCharge this_charge
End Sub

关键说明 #

• ArrayList初始化：VBA中对象变量必须通过Set关键字创建实例，利用Class_Initialize事件可在sTask对象创建时自动完成ArrayList的初始化。
• Sub调用的括号规则：调用无返回值的Sub过程时，对象参数不需要加括号，否则会破坏对象引用的传递逻辑，触发类型不匹配错误。

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