在VBA中声明和初始化字符串数组

Question

这应该根据另一个堆栈溢出帖子工作,但它不是:

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

任何人都可以让我知道什么是错的？

Answer 1

试试这个:

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

Answer 2

在String数组的特定情况下,您可以使用Split Function初始化数组,因为它返回String数组而不是Variant数组:

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

这允许您避免使用Variant数据类型并保留arrWsNames的所需类型.

Answer 3

这里的问题是数组的长度是未定义的,如果数组被明确定义为字符串,这会混淆VBA.然而,变体似乎能够根据需要调整大小(因为它们占用了大量内存,人们通常会因为一系列原因而避免使用它们).

以下代码工作正常,但与其他一些语言相比,它有点手册:

Dim SomeArray(3) As String

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

Answer 4

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"

享受！

编辑： 我删除了重复文本删除功能，并使代码更小且更易于使用。

Answer 5

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