redimensionar una array tipo type

[ebu]

buenas, haber si me pueden ayudar con esto.
he diseñado una matriz tipo type de esta manera:
Private Type datos
nombre As String
cantidad As Integer
confi As String
End Type

Dim matrix() As datos

el diferentes procedimientos voy llenando la matriz:
ReDim Preserve matrix(k)
matrix(k).nombre = variable
k = k + 1

.....


ReDim Preserve matrix(k)
matrix(k).cantidad = can
...
For i = 0 To UBound(vConfigName)
ReDim Preserve matrix(i)
matrix(i).confi = vConfigName(i)
Next i

y cuando lo voy a visualizarlo en la hoja excel la matriz, matrix se encuentra vacio.
xq puede ser?? el fallo puede estar a la hora de redimensionar la matriz. gracias!


Dim i As Integer, j As Integer, cont As Integer, cont2 As Integer

For i = 0 To UBound(matrix)'matrix vacio
cont = matrix(i).cantidad
Range("A2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(0, 1).Select
Loop
Do Until cont = cont2
ActiveCell.FormulaR1C1 = matrix(i).nombre
ActiveCell.Offset(0, 1).Select
cont2 = cont2 + 1
Loop

For j = 1 To cont
Range("B2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.FormulaR1C1 = matrix(j).confi
Next j
Next i

otra cosita saben si existe algun otro modo para escribir en una celda de excel aparte de este modo ActiveCell.FormulaR1C1 = matrix(j).confi. sq a veces se me para ai.

[David]

¿Podrías poner el código completo donde redimensionas el array?. Porque vas redimensionando con diferentes valores con lo que si se reduce el array los demás índices se pierden.

[ebu]

Sub deitura(neremodel As object)

Dim a As String
Dim aText() As String, s As String, variable As String
Dim k As Long

a = neremodel.GetPathName 'a es un array de objetos


aText = Split(a, "\")
s = aText(UBound(aText))
variable = Left(s, InStr(s, ".") - 1)

ReDim Preserve matrix(k)
matrix(k).nombre = variable
k = k + 1

End Sub


Sub contar(neremodel As object)
Dim i As Integer, cop As Integer
Dim vConfigName As Variant

cop = neremodel.GetConfigurationCount'cop as integer
ReDim Preserve matrix(k)
matrix(k).cantidad = cop

vConfigName = neremodel.GetConfigurationNames 'array tipo string

For i = 0 To UBound(vConfigName)
ReDim Preserve matrix(i)
matrix(i).confi = vConfigName(i)
Next i

End Sub

[David]

Es como te dije, al principio estás redimensionando con k que va incrementándose, pero después lo redimensionas en un bucle que empieza con 0, por lo que al primer paso del bucle se perderán todos los valores que almacenaste.

[ebu]

y como lo tengo q hacer??
la teoria dice q cada vez q vaya a redimensionar un array y quiera mantener los datos ya almacenados hay q poner redim preserve. y poniendo:
ReDim Preserve matrix.(k)nombre
ReDim Preserve matrix(k).cantidad
ReDim Preserve matrix(i).confi

valdria?? sq necesito usar las variables k e i para poner los datos en una posicion concreta.

[David]

Un ejemplo para que entiendas mejor:

Código vb:

Dim vArray() As String
ReDim vArray(5)
Array(0) = "Valor0"
Array(1) = "Valor1"
Array(2) = "Valor2"
Array(3) = "Valor3"
Array(4) = "Valor4"
Array(5) = "Valor5"
 
'Si yo hago algo como esto
ReDim Preserve vArray(6)
'Todos los índices anteriores preservan el contenido y se expande el array
vArray(6) = "Valor6"
 
'Pero si hago esto
ReDim Preserve vArray(0)
'Todo mi contenido fue se perdió
MsgBox vArray(1) 'Provocará un error, el índice 1 ya no existe
 

Por eso, depende del caso, si no quieres realmente perder los datos cada vez que haces ReDim Preserve debes expandir el array porque si haces al revés se perderán los datos que no estén dentro del nuevo rango de índices.

[ebu]

ok, gracias x el ejemplo! como el array coge una unica longitud para todos sus datos es absurdo poner ReDim Preserve matrix(k).cantidad.
entonces, con esto tendria q funcionar:
ReDim matrix(k)
matrix(k).nombre = variable
k = k + 1

cop = neremodel.GetConfigurationCount
ReDim Preserve matrix(k)
matrix(k).cantidad = cop


vConfigName = neremodel.GetConfigurationNames
ReDim Preserve matrix(i)
For i = 0 To UBound(vConfigName)
matrix(i).confi = vConfigName(i)'pero ahora aqui me dice:error9:subindice fuera del intervalo??what?no lo pillo.
Next i

[David]

Si "lees" el código entenderás qué pasa:

Código vb:

ReDim Preserve matrix(i)
' ¿Qué valor tiene i?. Si no le has dado otro valor será 0
' Por lo que tu array quedaría con un único elemento, matrix(0)
For i = 0 To UBound(vConfigName)
    '¿Cuánto vale i?. 0, así que en la primera repetición, todo bien
    matrix(i).konfi = vConfigName(i)
    'Aquí está el problema, al volver a repetir el código "i" valdrá 1
    'Por lo que al tratar de colocar un valor en matrix(1) provocará un error.
Next i
 

P.S.: Ejecutar paso a paso es muy útil para detectar esta clase de errores, para depurar el código.

[ebu]

gracias, sq yo no lo veia asi.entonces no puedo cargar todos los datos en un mismo array, xq tanto k como i van a ir cogiendo los mismos valores (del 0 para rriba...) y entonces si pongo ReDim matrix(i) no me tendra en cuenta los valores de matrix (k) y si pongo ReDim Preserve matrix(i) ira a 0 y me borrara los datos anteriormente cargados.
no hay opcion de hacer redim matrix(i).konfi???
he leido x ai q el redim/redim preserve es un adelanto pero lo estoy poniendo en duda...

[David]

No, no se puede, como te había contestado en tu otro tema.

Claro, si konfi fuera otro array sería otra historia, pero en fin, no es el caso.

[ebu]

pues konfi tendre q definirlo como otro array si no va a ser imposible hacer lo q tenia pensado.
pensaba q se podia hacer de este modo y tenia escrito los comandos para visualizar la matrix en el excel, tendre q modificar todo.
mil gracias, david!