Deklarasikan dan Inisialisasi String Array di VBA


126

Ini harus bekerja sesuai dengan posting stack overflow lain tetapi tidak:

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

Adakah yang bisa memberi tahu saya apa yang salah?


33
Catatan: Sintaks kurung kurawal TIDAK bekerja di dalam VBA, ini dirancang untuk VB.NET. Untuk kewarasan Anda sendiri, jangan bingung dua lingkungan ini.
boomer57

2
Jika Anda menggunakan Excel (dan Anda puas dengan array Variant), Anda dapat menggunakanDim x() As Variant: x = [{"Value1", "Value2"}]
ThunderFrame

1
Bagi siapa saja yang melihat komentar ini, hampir dua tahun kemudian (seperti saya). Tampaknya VBA / Excel TIDAK suka sintaks Dim x() As Variant: x = [{"Value1", "Value2"}] JIKA Anda menggunakan variabel ... yaitu jika v1 = "Value1"; v2 = "Value2", maka x = [{v1, v2}]akan menghasilkan kesalahan, sedangkan x = [{"Value1", "Value2"}]tidak akan.
Chip R.

Jawaban:


169

Coba ini:

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

20
secara teknis membuat array varian, bukan array string. Tentu saja array varian mungkin array hanya string, tetapi pendekatan ini juga akan memungkinkan tipe data non-string:myArray = Array("A", "B", 12345, "D"...)
David Zemens

10
Bagaimana dengan Dim myStringArray () As String ... myStringArray = Array ("Cat", "Dog", "Rabbit"). Varian - yuck!
Andez

30
jika Anda ingin memilikinya dalam satu baris, Anda dapat menggunakan titik dua setelah deklarasi: Dim arrWsNames() As String: arrWsNames = Split("Value1,Value2", ",") Inisialisasi dari komentar di atas tidak berfungsi untuk saya, karena Array () menciptakan Array of Variants dan bukan Strings
Andrej Sramko

6
bukan jawaban yang baik karena 1) itu adalah varian yang mengandung array dan 2) varian adalah tipe data paling lambat di VBA
stifin

4
@stifin dan 3) VBA tidak memiliki initializer array String. Tapi Anda bisa menggunakan Split misalnya.
Eldar Agalarov

141

Dalam kasus spesifik array String Anda dapat menginisialisasi array menggunakan Fungsi Split karena mengembalikan array String daripada array Variant:

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

Ini memungkinkan Anda untuk menghindari menggunakan tipe data Variant dan mempertahankan tipe yang diinginkan untuk arrWsNames.


3
Ini jelas membuat meneruskannya ke fungsi lain lebih bersih; belum lagi menghemat memori Anda ...
Jason R. Mick

23

Masalahnya di sini adalah bahwa panjang array Anda tidak terdefinisi, dan ini membingungkan VBA jika array secara eksplisit didefinisikan sebagai string. Varian, bagaimanapun, tampaknya dapat mengubah ukuran sesuai kebutuhan (karena mereka memiliki banyak memori, dan orang-orang umumnya menghindarinya karena banyak alasan).

Kode berikut berfungsi dengan baik, tetapi sedikit manual dibandingkan dengan beberapa bahasa lain di luar sana:

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)

Maka Anda dapat melakukan sesuatu yang statis seperti ini:

myStringArray = { item_1, item_2, ... }

Atau sesuatu yang berulang seperti ini:

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

contoh:

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

hasil:

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

Nikmati

sunting: saya menghapus fitur menghapus duplikat dan membuat kode lebih kecil dan lebih mudah digunakan.


1
Ini harus menjadi jawaban - meskipun tidak ada cara untuk menginisialisasi, pasti fungsi global untuk melakukan hal ini membuat kode tetap dapat dibaca dan tidak menimbulkan definisi Anda harus menjadivariant
Andez

-7

Menggunakan

Dim myarray As Variant

bekerja tetapi

Dim myarray As String

tidak jadi saya sitck ke Variant


8
Itu karena Anda harus menambahkan tanda kurung di akhir myarray. Tanda kurung memungkinkan VBA tahu bahwa itu adalah array. Peredupan sebagai string menjadikannya hanya array String.
PermaNoob

Anda harus mendeklarasikan batasan array. Entah Array dinamis: Dim MyArray() as String, atau ukuran Array tetap: Dim MyArray(1 to 10) as String.
Patrick Lepelletier
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.