Visual Basic传递数组作为属性参数导致Excel崩溃的问题咨询

有一个VBA模块和两个类（Test、Test2），代码如下：

模块Module1代码 #

Sub testf()
    Dim s() As String
    ReDim s(0) As String
    s(0) = "value"
    Dim t As New Test
    t.first = s
End Sub

Test类代码 #

Property Let first(s() As String)
    Debug.Print "first"
    Dim t As New Test2
    t.second = s
End Property

Test2类代码 #

Property Let second(s() As String)
    Debug.Print "second"
End Property

运行testf过程时，Excel会直接关闭重启，无任何错误弹窗。代码能执行到输出"first"，说明问题出在调用t.second = s的环节，添加常规On Error错误处理也无法捕获错误。将second的参数改为Variant类型后问题消失，但无法理解原问题的根源——调用前确认s是类型为8200的字符串数组，为何second接收数组参数会引发崩溃？

问题根源 #

这是VBA运行时的底层Bug：当在Property Let过程内部，将数组作为参数传递给另一个Property Let时，VBA的类型解析机制会触发内存访问错误。这种错误发生在VBA内核层面，不属于常规运行时错误范畴，因此无法通过On Error语句捕获，直接导致宿主程序（Excel）崩溃。

解决方案 #

可以通过以下几种方式规避这个Bug：

• 方案1：将接收数组的Property Let参数改为Variant
  在Test2类中修改属性定义，内部可按需将Variant转为字符串数组：

  Property Let second(v As Variant)
      Debug.Print "second"
      Dim s() As String
      If IsArray(v) Then s = v
      ' 后续逻辑处理
  End Property
  

• 方案2：用普通Sub方法替代Property Let传递数组
  把Test2的属性改为Sub过程，避免Property Let的数组传递问题：

  ' Test2类代码
  Sub SetSecond(s() As String)
      Debug.Print "second"
  End Sub
  
  ' Test类中调用改为
  t.SetSecond s
  

• 方案3：先将数组赋值给Variant变量再传递
  在Test类的first属性中，先把数组转存到Variant变量，再传给second：

  Property Let first(s() As String)
      Debug.Print "first"
      Dim t As New Test2
      Dim tempVar As Variant
      tempVar = s
      t.second = tempVar
  End Property
  

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