vba打印出三维数据

Question

如何在不知道其精确尺寸的情况下显示三维数组？如果变量名是DataSet。但我不确定高度和长度。在宏中，

msgbox(DataSet) 'type mismatch
msgbox(DataSet(0,0,0))'subscript out of range

或举一般例子。感谢您的帮助，谢谢。

Answer 1

您始终可以嵌套For循环：

For d1 = 0 to Ubound(myArray,1)
    For d2 = 0 to UBound(myArray,2)
        For d3 = 0 to UBound(myArray, 3)
            sValue = sValue & vbNewLine & myArray(d1, d2, d3)
        Next
    Next
Next
MsgBox sValue