vba - VBA 错误代码“运行时错误 16，太复杂”

Question

运行填充的动态数组时，我试图获取元素的内容并收到以下错误Run-Time Error '16': Expression too complex.The expression that is to complex？

Impactdays 很长，我通过简单地将范围填充到数组中来填充电子表格

ReportArray = Impact_Chart.Range("Data.EventNumber").CurrentRegion.Value

For i = LBound(ReportArray) + 1 To UBound(ReportArray)

If ReportArray(i, iImpactCol) > 0 Then
        iImpactDays = ReportArray(i, iImpactCol)<-- Tosses error here

        'more stuff

任何想法哦，一切的大师？:) 哦，这是 2007 年

Answer 1

检查您是否没有使用类似的东西

   If (Not MyArray) = -1  

在你的程序的某个地方。据报道，这与您的错误之间存在联系。

！

Answer 2

我确实删除了有问题的堆栈指针并使用以下内容进行检查

Function IsArrayDimensioned(TargetArray() As Variant) As Boolean
Dim s As Integer
On Error Resume Next
s = UBound(TargetArray, 1)
If Err.Number = 0 Then
    IsArrayDimensioned = True
Else
    IsArrayDimensioned = False
End If
End Function

像宣传的那样工作