Question

我有一个数据对象

我也有这些数据对象的数组

我想将这些数据对象数组放入另一个数组

Dim ArrayOfDataObjects1(10) as new DataObject
Dim ArrayOfDataObjects2(10) as new DataObject
Dim ArrayOfDataObjects3(10) as new DataObject

'Now, I want to put all of these into another array, how can I?

谢谢！

编辑：我知道我需要创建另一个大小为3的数组，但是我将该数组定义为什么类型？

Answer 1

如果您不关心类型安全，可以使用Variant。 Excel VBA中的示例：

Sub a()
Dim ArrayOfDataObjects1(10) As Worksheet
Dim ArrayOfDataObjects2(10) As Worksheet
Dim ArrayOfDataObjects3(10) As Worksheet

Dim arr(3) As Variant

Set ArrayOfDataObjects1(1) = ActiveSheet

arr(1) = ArrayOfDataObjects1

arr(2) = ArrayOfDataObjects2

arr(3) = ArrayOfDataObjects3

MsgBox arr(1)(1).Name

End Sub

创建数据对象数组的数组？

1 个答案: