Khai báo và khởi tạo chuỗi chuỗi trong VBA

Điều này sẽ hoạt động theo một bài viết tràn ngăn xếp khác nhưng nó không:

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

Bất cứ ai có thể cho tôi biết những gì là sai?

Thử cái này:

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

Trong trường hợp cụ thể của mảng Chuỗi, bạn có thể khởi tạo mảng bằng Hàm Chia vì nó trả về mảng Chuỗi thay vì mảng Biến:

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

Điều này cho phép bạn tránh sử dụng kiểu dữ liệu Biến thể và giữ nguyên kiểu mong muốn cho ArrayWsNames.

Vấn đề ở đây là độ dài của mảng của bạn không được xác định và điều này làm VBA nhầm lẫn nếu mảng được xác định rõ ràng là một chuỗi. Các biến thể, tuy nhiên, dường như có thể thay đổi kích thước khi cần thiết (vì chúng có rất nhiều bộ nhớ và mọi người thường tránh chúng vì một loạt lý do).

Đoạn mã sau hoạt động tốt, nhưng nó hơi thủ công so với một số ngôn ngữ khác ngoài kia:

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)

Sau đó, bạn có thể làm một cái gì đó tĩnh như thế này:

myStringArray = { item_1, item_2, ... }

Hoặc một cái gì đó lặp đi lặp lại như thế này:

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

thí dụ:

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

kết quả:

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

thưởng thức

chỉnh sửa: tôi đã loại bỏ tính năng xóa trùng lặp và làm cho mã nhỏ hơn và dễ sử dụng hơn.

Sử dụng

Dim myarray As Variant

hoạt động nhưng

Dim myarray As String

không phải vì vậy tôi ngồi đến biến thể