Ошибка типа и несоответствие для функции разделения VBA

Question

У меня есть переменная, определенная в строке, как показано ниже

Dim stringValue As String
Dim stringArray As String

stringValue = "3,4,5"
stringArray = Split(stringValue,",")

Я не уверен, что здесь происходит не так, но когда она проходит через функцию Split, она выдает

ошибка ["Ошибка типа 13, тип несоответствия"]

Answer 1

Вы хотите определить stringArray как Variant, чтобы он мог принимать свойства массива.

Dim stringValue As String
Dim stringArray As Variant

stringValue = "3,4,5"
stringArray = Split(stringValue,",")

или определять его как строковый массив с самого начала:

Dim stringValue As String
Dim stringArray() As String

stringValue = "3,4,5"
stringArray = Split(stringValue,",")

и в этом отношении, поскольку ваш пример очень прост, вы также можете сделать это так:

Dim stringArray As Variant
stringArray = Array("3", "4", "5")