Declarar e inicializar matriz de seqüência de caracteres no VBA

126

Isso deve funcionar de acordo com outro post de estouro de pilha, mas não é:

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

Alguém pode me informar o que está errado?

arrays vba initialization

— Kairan
fonte

33

Nota: A sintaxe entre chaves NÃO funciona no VBA, ela foi projetada para o VB.NET. Para sua própria sanidade, não confunda esses dois ambientes.

— boomer57

2

Se você estiver usando o Excel (e estiver satisfeito com uma matriz Variant), poderá usarDim x() As Variant: x = [{"Value1", "Value2"}]

— ThunderFrame

1

Para quem está olhando para esse comentário, quase dois anos depois (como eu). Parece que o VBA / Excel NÃO gosta da sintaxe Dim x() As Variant: x = [{"Value1", "Value2"}] SE você estiver usando variáveis ... ou seja v1 = "Value1"; v2 = "Value2", se , então x = [{v1, v2}], gerará um erro, enquanto x = [{"Value1", "Value2"}]que não.

— Chip R.

169

Tente o seguinte:

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

— Eldar Agalarov
fonte

20

tecnicamente cria uma matriz variante, não uma matriz de strings. É claro que a matriz variante pode ser uma matriz apenas de seqüências de caracteres, mas essa abordagem também permitiria tipos de dados que não sejam de sequência:myArray = Array("A", "B", 12345, "D"...)

— David Zemens

10

Que tal Dim myStringArray () como String ... myStringArray = Array ("Cat", "Dog", "Rabbit"). Variantes - eca!

— Andez 19/09/14

30

se você quiser tê-lo em uma linha, poderá usar os dois pontos após a declaração: Dim arrWsNames() As String: arrWsNames = Split("Value1,Value2", ",") A inicialização do comentário acima não funciona para mim, porque Array () cria uma matriz de variantes e não seqüências de caracteres

— Andrej Sramko

6

não é uma boa resposta como 1) é uma variante contendo uma matriz e 2) variantes são o tipo de dados mais lenta em VBA

— stifin

4

@ stifin e 3) O VBA não possui um inicializador de array de String. Mas você pode usar Split, por exemplo.

— Eldar Agalarov

141

No caso específico de uma matriz String, você pode inicializar a matriz usando a Função Split , pois retorna uma matriz String em vez de uma matriz Variant:

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

Isso permite evitar o uso do tipo de dados Variant e preservar o tipo desejado para arrWsNames.

— Aiken
fonte

3

Definitivamente, isso facilita a transferência para outras funções; para não mencionar poupando-lhe a memória ...

— Jason R. Mick

23

O problema aqui é que o comprimento da sua matriz é indefinido e isso confunde o VBA se a matriz for definida explicitamente como uma sequência. As variantes, no entanto, parecem capazes de redimensionar conforme necessário (porque elas consomem muita memória, e as pessoas geralmente as evitam por várias razões).

O código a seguir funciona muito bem, mas é um pouco manual comparado a alguns dos outros idiomas por aí:

Dim SomeArray(3) As String

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

— David Wilson
fonte

3

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

Então você pode fazer algo estático assim:

myStringArray = { item_1, item_2, ... }

Ou algo iterativo como este:

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

— Andrew Slentz
fonte

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

exemplo:

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

resultado:

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

desfrutar

edit: removi o recurso de exclusão de duplicadostextos e tornei o código menor e mais fácil de usar.

— matan justme
fonte

1

Essa deve ser a resposta - embora não exista nenhuma maneira de inicializar, certamente uma função global como tal mantém o código legível e não inflige que sua definição variant

— deva

-7

Usando

Dim myarray As Variant

funciona mas

Dim myarray As String

não, então eu sitck para Variant

— Keith Kenny
fonte

8

Isso ocorre porque você deve adicionar parênteses no final de minha matriz. Os parênteses informam ao VBA que é uma matriz. Escurecer como uma string torna uma matriz apenas de String.

— PermaNoob

você deve declarar os limites da matriz. Ou uma matriz dinâmica: Dim MyArray() as Stringou uma matriz de tamanho fixo: Dim MyArray(1 to 10) as String.

— Patrick Lepelletier 31/03