Saber dimensiones de una matriz de dos dimensiones

[Sergestux]

Hola colegas estoy haciendo un procedimiento que me va a rellenar un grid pasandole los datos en una matriz dimensional (columnas y renglones). La pregunta es como puedo saber cuantas columnas y cuantyos renglones tiene esa matriz, para poder hacer los bucles correspondientes de llenado.

Gracias por la posible ayuda que me puedan dar

Código vb:

'Rellena el grid con los datos (Matriz) que se le pasen sentencia que se le pase
Public Sub RellenaGrid(Grid As Variant, Datos As Variant)
Dim Renglon As Integer, Columna As Integer
 
        'Recorro el grid
        With Grid
            
                .MaxRows = Result
                For Renglon = 1 To Result
                    .Row = Renglon
                    For Columna = 1 To .MaxCols
                        .Col = Columna
                        .Text = IIf(IsNull(Datos(Renglon, Columna)), "", Datos(Renglon, Columna))
                    Next Columna
                Next Renglon
                '.Col = 1: .Row = 1
                '.Col2 = .MaxCols: .Row2 = .MaxRows
                .BlockMode = True
        '        '.Lock = True
                '.BlockMode = False
        End With
    End If
    
End Sub
 

[David]

Con Ubound(Variable) te dirá cuántos índices tiene, y con UBound(Variable, 2) sabrás cuánto tiene la segunda dimensión.

[Sergestux]

Excelente ayuda me ha servido de mucho tu aporte, ya no me acordaba cual eran las funciones, asi quedo mi codigo corregido:

Código vb:

'Rellena el Grid con los datos (Matriz) que se le pasen
Public Sub RellenaGrid(Grid As Variant, Datos As Variant)
Dim Renglon As Variant, Columna As Variant
Dim Cols As Variant, Rows As Variant
 
    Cols = UBound(Datos, 2)
    Rows = UBound(Datos)
    
    If Rows > 0 Then        'Si hay datos
        'Recorro el grid
        With Grid
            .MaxRows = Rows
            For Renglon = 1 To Rows
                .Row = Renglon
                For Columna = 1 To Cols
                    .Col = Columna
                    .Text = IIf(IsNull(Datos(Renglon, Columna)), "", Datos(Renglon, Columna))
                Next Columna
            Next Renglon
            .BlockMode = True
            .Lock = True
        End With
    End If
End Sub
 

Por cierto no es el grid estandar, si no que es un control que la empresa compro de nombre Spread 3.0