VBAで文字列配列を宣言して初期化する

これは別のスタックオーバーフローポストに従って動作するはずですが、そうではありません。

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

誰かが私に何が悪いのか教えてもらえますか？

これを試して：

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

String配列の特定のケースでは、Variant配列ではなくString配列を返すため、Split関数を使用して配列を初期化できます。

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

これにより、Variantデータ型の使用を回避し、arrWsNamesに必要な型を保持できます。

ここでの問題は、配列の長さが未定義であり、配列が文字列として明示的に定義されている場合、VBAを混乱させることです。ただし、バリアントは必要に応じてサイズを変更できるように見えます（大量のメモリを占有するため、多くの理由で一般的に回避されます）。

次のコードは問題なく動作しますが、他のいくつかの言語と比較すると少し手作業です。

Dim SomeArray(3) As String

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

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

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"

楽しい

編集：重複したテキストを削除する機能を削除し、コードを小さくして使いやすくしました。

使用する

Dim myarray As Variant

動作しますが

Dim myarray As String

そうではないので、バリアントに座っています