arrays - multidimensionales - Acceda al bucle VBA a través de la lista de elementos seleccionados y agréguelo a la matriz

vb6 array

Question

Estoy intentando recorrer un cuadro de lista y agregar el contenido a una matriz ...

Mi código es este:

Private Sub exportfolders_Click()
Dim list As String
Dim folderlist As String
Dim folderarray() As String
''Dim i As Interger
For i = 0 To Me.selectedfolders.ListCount - 1
''folderlist = (Me.selectedfolders.Column(0, i))
''folderarray() = Join(Me.selectedfolders.Column(0, i), ",")
list = (Me.selectedfolders.Column(0, i))
folderarray() = Join(list, ",")
ReDim Preserve folderarray(i)
Next i
folderlist = folderarray
''folderarray() = Join(folderlist, ",")
MsgBox (folderlist)
End Sub

Puedes ver los bits que he comentado, intentando todo para que funcione. Pero sigo recibiendo el mensaje "No se puede asignar a la matriz" en folderarray(i) = Join(list, ",") . ¿Alguna sugerencia sobre dónde estoy fallando?

Answer 1

1) declara la matriz. Eche un vistazo a https://msdn.microsoft.com/en-us/library/wak0wfyt.aspx

2) Sin necesidad de variable de soporte

3) Asigne los valores a su matriz con la sintaxis correcta

Private Sub exportfolders_Click()
Dim folderarray() As String
Dim i As Interger
Redim folderarray (Me.selectedfolders.ListCount-1)
For i = 0 To Me.selectedfolders.ListCount - 1
folderarray(i) = Me.selectedfolders.Column(0, i)
Next i
'' Write here what you want to do with your array
End Sub

Answer 2

Podrías probar algo como esto:

Private Sub ListToArray()
Dim folderArray() As Variant
Dim currentValue As String
Dim currentIndex As Integer
Dim topIndex As Integer
topIndex = Me.selectedfolders.ListCount - 1
ReDim folderArray(0 To topIndex, 0 To 1)
For i = 0 To topIndex
currentValue = Me.selectedfolders.Column(0, i)
folderArray(i, 0) = i
folderArray(i, 1) = currentValue
Next i
End Sub

Tenga en cuenta que mi ejemplo es una matriz multidimensional que le dará la posibilidad de agregar más de un elemento si así lo desea. En este ejemplo, agregué el valor de "i" como marcador de posición / índice.

Answer 3

Puede concatenar los elementos del cuadro de lista en una cadena y luego usar Split() para cargar su matriz. De esta forma, la matriz se dimensiona de forma automática sin que necesite ReDim .

Probé este código en Access 2010:

Dim folderarray() As String
Dim i As Long
Dim strList As String
For i = 0 To Me!selectedfolders.ListCount - 1
strList = strList & "," & Me!selectedfolders.Column(0, i)
Next
'' use Mid() to exclude the first comma ...
folderarray = Split(Mid(strList, 2), ",")

Tenga en cuenta que no sé qué quiere hacer con la matriz después de cargarla. MsgBox folderarray lanzaría Error de discrepancia de tipo . MsgBox Mid(strList, 2) sería válido, pero si eso es lo que desea, no necesitaría la matriz.