主题：杂项导入合并都没问题,自写导入提示错误

If Tables("订单").Cols(nms(m)).IsDate Then
    Dim d As Date
    If Date.TryParse(ary(n,m+1), d)
        r(nms(m)) = d
    End If
Else
    r(nms(m)) = ary(n,m+1)
End If

改成

If Tables("订单").Cols(nms(m)).IsDate Then
    Dim d As Date
    If Date.TryParse(ary(n,m+1), d)
        r(nms(m)) = d
    End If
ElseIf Tables("订单").Cols(nms(m)).Is IsNumeric Then
    r(nms(m)) = val(ary(n,m+1))
Else
    r(nms(m)) = ary(n,m+1)
End If