在 Visual Basic 中将数组作为参数传递会导致 Excel 崩溃

Question

这是产生问题的最少代码量。 我有一个模块和两个类（“Test”和“Test2”）。 在 Module1 中，我有这个 function：

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

在 class 测试中，我有这个：

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

最后在 class Test2 中，我有：

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

运行 Sub testf将导致 Excel 关闭并重新打开。 我没有弹出窗口告诉我存在运行时错误，所以我不知道错误是什么。 它first到达，因此问题在于如何调用second 。 尝试first进行错误处理并没有帮助。 例如，在t.second = s之前放置一个“on error...”来获取错误描述是行不通的。

如果我们将second更改为接受一个变体参数，那么这就解决了问题并且没有崩溃。 但这并不能帮助我理解问题的根源。 在t.second = s s之前打印 s 的变量类型确认它是 8200，它是一个字符串数组。 那么second如何接受它的论点有什么问题呢？

Answer 1

提供的代码为我生成了 RTE 51：内部错误。 设置对我来说似乎很奇怪，但以下工作：

在 class Test中：

Private pFirst() As String

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

在Test2测试2：

Private pSecond() As String

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