我正在尝试编写一个函数,该函数接受一个变体数组(二维),然后遍历它并将所有日期更改为 long。
Private Function mlDateHelper(a As Variant)
Dim i, j As Integer
For i = 1 To UBound(a.value, 1)
For j = 1 To UBound(a.value, 2)
If IsDate(a(i, j)) Then
a(i, j) = CLng(a(i, j)) 'This line errors out
End If
Next j
Next i
mlDateHelper = a
End Function
基本上,我只是在两个维度上遍历数组,每当有日期时,我都会尝试将该日期重置为 long。
当我调试它时,我可以告诉它正确地计算CLng(a(i, j))
,但是当它试图将该值分配给 a(i, j) 时它会崩溃。
它给了我一个“应用程序定义或对象定义的错误”。想法?谢谢你的帮助!