Ваш aData
является массивом вариантов. И вы пытаетесь присвоить ему вариант (а не массив).
Попробуйте объявить переменную aData следующим образом:
Dim aData As Variant
Если вы действительно хотите присвоить весь массив aData
, aData
все еще является массивом. вы должны сделать это так:
aData = MyData
И если вы просто хотите поместить все, что находится в MyData(i)
, в то же место в aData
. Вы можете сделать:
aData(i) = aData(i)
Но убедитесь, что они имеют одинаковый размер, если вы это сделаете.