Объявление и инициализация массива строк в VBA

126

Это должно работать в соответствии с другим сообщением о переполнении стека, но это не так:

Dim arrWsNames As String() = {"Value1", "Value2"}

Может ли кто-нибудь сообщить мне, что не так?

arrays vba initialization

— Кайран
источник

33

Примечание. Синтаксис фигурных скобок НЕ работает внутри VBA, он разработан для VB.NET. Для вашего собственного здравомыслия не путайте эти две среды.

— boomer57 08

2

Если вы используете Excel (и вас устраивает массив Variant), вы можете использоватьDim x() As Variant: x = [{"Value1", "Value2"}]

— ThunderFrame

1

Для всех, кто просматривает этот комментарий почти два года спустя (например, я). Кажется, что VBA / Excel НЕ нравится синтаксис, Dim x() As Variant: x = [{"Value1", "Value2"}] ЕСЛИ вы используете переменные ... то есть, если v1 = "Value1"; v2 = "Value2", то x = [{v1, v2}]выдаст ошибку, а x = [{"Value1", "Value2"}]не будет.

— Чип Р.

170

Попробуй это:

Dim myarray As Variant
myarray = Array("Cat", "Dog", "Rabbit")

— Эльдар Агаларов
источник

20

технически создает вариантный массив, а не строковый массив. Конечно, вариантный массив может быть массивом только строк, но этот подход также допускает myArray = Array("A", "B", 12345, "D"...)

— нестроковые

10

А как насчет Dim myStringArray () As String ... myStringArray = Array («Кот», «Собака», «Кролик»). Варианты - фу!

— Andez

30

если вы хотите разместить его в одной строке, вы можете использовать двоеточие после объявления: Dim arrWsNames() As String: arrWsNames = Split("Value1,Value2", ",") инициализация из приведенного выше комментария не работает для меня, потому что Array () создает массив вариантов, а не строки

— Андрей Срамко,

6

не лучший ответ, так как 1) это вариант, содержащий массив, и 2) варианты - самый медленный тип данных в VBA

— stifin

4

@stifin и 3) VBA не имеет инициализатора массива String. Но вы можете использовать, например, Split.

— Эльдар Агаларов

142

В конкретном случае массива String вы можете инициализировать массив с помощью функции Split, поскольку она возвращает массив String, а не массив Variant:

Dim arrWsNames() As String
arrWsNames = Split("Value1,Value2,Value3", ",")

Это позволяет избежать использования типа данных Variant и сохранить желаемый тип для arrWsNames.

— Aiken
источник

3

Это определенно делает передачу его другим чистящим функциям; не говоря уже о сохранении памяти ...

— Джейсон Р. Мик

23

Проблема здесь в том, что длина вашего массива не определена, и это сбивает VBA с толку, если массив явно определяется как строка. Однако варианты, кажется, могут изменять размер по мере необходимости (потому что они занимают много памяти, и люди обычно избегают их по ряду причин).

Следующий код работает отлично, но он немного ручной по сравнению с некоторыми другими языками:

Dim SomeArray(3) As String

SomeArray(0) = "Zero"
SomeArray(1) = "One"
SomeArray(2) = "Two"
SomeArray(3) = "Three"

— Дэвид Уилсон
источник

3

Dim myStringArray() As String
*code*
redim myStringArray(size_of_your_array)

Затем вы можете сделать что-то статичное, например:

myStringArray = { item_1, item_2, ... }

Или что-то итеративное вроде этого:

Dim x
For x = 0 To size_of_your_array
    myStringArray(x) = data_source(x).Name
Next x

— Эндрю Сленц
источник

3

Public Function _
CreateTextArrayFromSourceTexts(ParamArray SourceTexts() As Variant) As String()

    ReDim TargetTextArray(0 To UBound(SourceTexts)) As String

    For SourceTextsCellNumber = 0 To UBound(SourceTexts)
        TargetTextArray(SourceTextsCellNumber) = SourceTexts(SourceTextsCellNumber)
    Next SourceTextsCellNumber

    CreateTextArrayFromSourceTexts = TargetTextArray
End Function

пример:

Dim TT() As String
TT = CreateTextArrayFromSourceTexts("hi", "bye", "hi", "bcd", "bYe")

результат:

TT(0)="hi"
TT(1)="bye"
TT(2)="hi"
TT(3)="bcd"
TT(4)="bYe"

наслаждаться

edit: я удалил функцию удаления дублированных текстов и сделал код меньше и проще в использовании.

— Матан Джастме
источник

1

Это должно быть ответом - хотя нет никакого встроенного способа инициализации, конечно, глобальная функция как таковая для этого сохраняет код читабельным и не означает, что ваше определение должно бытьvariant

— Andez

-7

С помощью

Dim myarray As Variant

работает, но

Dim myarray As String

не так я сижу в варианте

— Кейт Кенни
источник

8

Это потому, что вы должны добавлять круглые скобки в конце myarray. Скобки позволяют VBA узнать, что это массив. Затемнение в виде строки делает его массивом только для строк.

— PermaNoob

вы должны объявить границы массива. Либо динамический массив: Dim MyArray() as Stringили массив фиксированного размера: Dim MyArray(1 to 10) as String.

— Патрик Лепеллетье,