VBA错误代码＆ldquo;运行时错误16，太复杂＆rdquo;
当运行填充的动态数组时，我试图获取元素的内容并收到以下错误
Run-Time Error '16': Expression too complex.
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
没有找到相关结果
已邀请:
2 个回复
凄挡
你节目中的某个地方。据报道，它与您的错误之间存在联系。 HTH！断跑胺弄萎
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