VBA валиться макрос ?

[Stem79]

При выполнении кода валиться приложение:

x() - это динамический массив

x = Split("~" & Join(x, "~|~") & "~", "|") - на этой строчке вылетает

когда, x был статическим массивом работало нормально.

В чем ошибка?

Спасибо.

[EducatedFool]

Ошибка в том, что вы, заранее не зная размерность массива, который получится в результате работы Split, зачем-то его записываете в массив в фиксированными размерами, без предварительного использования REDIM.

Напишите так:

y = Split("~" & Join(x, "~|~") & "~", "|")

А переменную y не определяйте никак
(или напишите Dim y As Variant)

А потом уже напишите Erase x: x = y
И все будет работать.

[Stem79]

EducatedFool, Спасибо!