Динамический массив! HelP!

[Anat]

Всем привет!

Dim arrayname() as string
sub main()
'varname = Ubound(arrayname) 'для отладки
ReDim preserve arrayname(Ubound(arrayname)+1)
end sub

Выдает ошибку: subscript out of range в строке ReDim...
Подскажите, плиз

[EducatedFool]

Вы не задали размерность массива, и пытаетесь получить свойство UBound(arrayname)
Из-за этого и ошибка.

Попробуйте так:

Код: Выделить всё

[color=darkblue]Dim[/color] arrayname() [color=darkblue]As[/color] [color=darkblue]String[/color]

[color=darkblue]Sub[/color] main()
    [B][color=darkblue]ReDim[/color] arrayname(0)[/B]
    [color=green]' Debug.Print UBound(arrayname)[/color]
    [color=darkblue]ReDim[/color] [color=darkblue]Preserve[/color] arrayname(UBound(arrayname) + 1)
    [color=green]' Debug.Print UBound(arrayname)[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]