Déclarer et Initialiser le Tableau de Chaîne en VBA

Cela devrait fonctionner selon un autre débordement de pile post mais ses pas:

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

Quelqu'un peut-il me faire savoir quel est le problème?

Remarque: Les accolades de la syntaxe ne fonctionne PAS à l'intérieur de VBA, il est conçu pour VB.NET. Pour votre propre santé mentale, ne pas obtenir ces deux milieux confondus.
Si vous utilisez Excel (et vous êtes content avec un tableau de type Variant), vous pouvez utiliser Dim x() As Variant: x = [{"Value1", "Value2"}]
Pour toute personne qui s'intéresse à ce commentaire, presque deux ans plus tard (comme moi). Il semble que VBA/Excel n'aime PAS la syntaxe Dim x() As Variant: x = [{"Value1", "Value2"}] SI vous utilisez des variables... c'est à dire si v1 = "Value1"; v2 = "Value2", puis x = [{v1, v2}] va générer une erreur, alors que x = [{"Value1", "Value2"}] ne sera pas.

InformationsquelleAutor Kairan | 2013-10-14

158

Essayez ceci:
```
Dim myarray As Variant
myarray = Array("Cat", "Dog", "Rabbit")
```
- techniquement crée un tableau de type variant, pas un tableau de chaînes. Bien sûr, le tableau de variant à être un tableau de chaînes seulement, mais cette approche permettrait également de la non-types de données chaîne: myArray = Array("A", "B", 12345, "D"...)
- Ce sujet Dim myStringArray() as String ... myStringArray = Array( "Chat", "Chien" , "Lapin"). Variantes - beurk!
- si vous voulez l'avoir en une seule ligne, vous pouvez utiliser le côlon après la déclaration: Dim arrWsNames() As String: arrWsNames = Split("Value1,Value2", ",") L'initialisation à partir d'un commentaire ci-dessus ne fonctionne pas pour moi, parce que Array() crée un Tableau de Variantes et de ne pas les Chaînes
- pas une bonne réponse que 1) c'est une variante contenant un tableau et 2) les variantes sont les plus lentes de type de données en VBA
- et 3) VBA n'ont pas de tableau de Chaîne d'initialiseur. Mais vous pouvez utiliser Split par exemple.
- Cela crée une gamme de variantes à l'intérieur d'une autre variante. Pour aggraver les choses, que la variante, qui n'est pas un tableau, est nommé "montableau". N'est pas correcte, n'est pas recommandée.
- Cela ne crée pas un tableau mais une variante. Comme des variantes peuvent contenir toute sorte de types de variables (y compris les tableaux), il ne se plaint pas lorsque vous affectez un tableau dans la deuxième ligne, mais c'est mauvais style, et peut conduire à toutes sortes de confusions et d'autres problèmes si vous le faites. Je vous recommande d'être clairs et explicites, et d'utiliser Dim myStringArray() as String, comme il a déjà été proposé ici.
- ce serait formidable si Dim a() As String ... a = Array(...) travaillé, mais il n'est pas -- c'est une erreur d'incompatibilité de Type... Malheureusement il n'y a pas de bonne façon de le faire en VBA.
- En effet... Pas sûr de l'endroit où j'ai essayé il y a 4 ans. Bien que "matan justme" la réponse a été marqué vers le bas - c'est ce que je viens de le faire avant de lire en bas de cette. Sa réponse œuvres. Vous pourriez avoir une fonction globale pour ce faire initialisation sans l'aide de la Variante de votre défini le type qui le rend plus lisible mais je voudrais le nom de la fonction StringArray. Que serait ma réponse choisie.
- Je ne sais pas comment j'ai raté réponse, il ressemble beaucoup en effet, merci!
- Faire Dim montableau() as Variant, et je suis avec cette réponse. Pour ceux qui suggèrent des tableaux de rien, mais les Variantes, sachez que vous ne pouvez pas utiliser Array() pour affecter des valeurs à lui. Seules Variantes travail.
InformationsquelleAutor Eldar Agalarov
124

Dans le cas particulier d'un tableau de chaînes de vous pourrait initialiser le tableau à l'aide de la Fonction Split qu'elle retourne un tableau de chaînes plutôt qu'un tableau de type Variant:
```
Dim arrWsNames() As String
arrWsNames = Split("Value1,Value2,Value3", ",")
```
Cela vous permet d'éviter d'utiliser le type de données Variant et de préserver le type souhaité pour arrWsNames.
- Cela rend définitivement la transmettre à d'autres fonctions plus propre; pour ne pas mentionner vous sauver de la mémoire...
InformationsquelleAutor Aiken
20

Le problème ici est que la longueur de votre tableau n'est pas défini, et ce confond VBA si le tableau est explicitement définie comme une chaîne de caractères. Variantes, cependant, semblent être en mesure de redimensionner au besoin (parce qu'ils porc un tas de mémoire, et les gens en général éviter pour tout un tas de raisons).

Le code suivant fonctionne très bien, mais c'est un peu manuel par rapport à certains des autres langues:
```
Dim SomeArray(3) As String

SomeArray(0) = "Zero"
SomeArray(1) = "One"
SomeArray(2) = "Two"
SomeArray(3) = "Three"
```
InformationsquelleAutor David Wilson

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

Ensuite, vous pouvez faire quelque chose de statique comme ceci:

myStringArray = { item_1, item_2, ... }

Ou quelque chose itératif comme ceci:

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

InformationsquelleAutor Andrew Slentz

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

exemple:

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

résultat:

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

profiter de

edit:
j'ai enlevé le duplicatedtexts la suppression de fonctionnalité et faites le code plus compact et plus facile à utiliser.

Cela devrait être la réponse - bien qu'il n'y a pas construit de manière à initialiser, sûrement une fonction globale en tant que tel pour ce faire, conserve le code lisible et il n'a pas d'infliger que votre définition est d'être un variant

InformationsquelleAutor matan justme

-7

À l'aide de
```
Dim myarray As Variant
```
fonctionne mais
```
Dim myarray As String
```
n'a pas donc je sitck la Variante de la
- c'est bizarre...
- C'est parce que vous devriez être en ajoutant entre parenthèses à la fin de myarray. Les parenthèses permet VBA sais que c'est un tableau. De variation comme une chaîne de caractères rend une Chaîne de caractères seule matrice.
- vous devez déclarer le bounderies de la matrice. Soit un Tableau dynamique : Dim MyArray() as String, ou un Tableau de taille fixe : Dim MyArray(1 to 10) as String.
InformationsquelleAutor Keith Kenny

Vous devez vous connecter pour publier un commentaire.