从多维数组中提取

Question

我有一个数组dat ，显示Type = Variant/Variant(0 to 500, 0 to 0, 0 to 1)

有一个“列”日期：

dat(0, 0, 0) = #1/1/2013#
dat(1, 0, 0) = #1/2/2013#

我要提取这组日期。 我试过了：

Dim dat As Variant
Dim dt As Variant
'stuff gets dat in the format described above
dt = Application.Index(dat, 0, 1, 1)

不幸的是，这给我一个错误13类型不匹配。 我究竟做错了什么？

Answer 1

使用循环

Sub dural()
    Dim dat(0 To 500, 0 To 1, 0 To 1) As Variant

    dat(0, 0, 0) = #1/1/2013#
    dat(1, 0, 0) = #1/2/2013#

    Dim dt(0 To 500) As Variant

    For i = 0 To 500
        dt(i) = dat(i, 0, 0)
    Next i

End Sub