excel y VB 6.0 error 381 El subindice esta fuera de intervalo

[LuZbA]

hola buen dia...

aqui de nuevo con una duda... esta parte de codigo que pongo es parte de una funcion que agrega a una grilla una hoja de excel previamente capturada... mi duda esta en la parte que se encuentra en negritas... esa parte me truena la aplicacion y me indica un error y dice q el subindice esta fuera de intervalo... los valores que indican que columna y que fila si me los asigna correctamente pero el valor de esa celda es lo que quiero obtener

¿¿¿alguna idea de por que puede ser???... se los agradesco de antemano

contador = 0

With xLibro

' Hacemos referencia a la Hoja
With .Sheets(1)
contador = .Cells(1, 1).Value
contador1 = contador + 1
'Recorremos las celdas
For Fila = 2 To contador1
For Col = 1 To 6
'Agregamos el valor de la celda a la grilla
fil = Fila - 1
co = Col - 1
frmBitacora.MSFlexGrid1.TextMatrix(fil, co) = Cells(Fila, Col).Value
' frmBitacora es el formulario donde esta el flex grid

Next Col
Next Fila

End With
End With


frmBitacora.MSFlexGrid1.TextMatrix(fil, co) = .Cells(Fila, Col).Value

tambien lo he puesta con el punto en cells y nada help...

[Avellaneda]

Mira, inténtalo con este ejemplo comentado:

Código:

Private Sub Command1_Click()
Dim oExcel As Excel.Application
Dim xLibro As Excel.Workbook
Dim xHoja As Excel.Worksheet
Dim Columnas As Integer, Filas As Integer
Dim i As Integer, j As Integer
Screen.MousePointer = vbHourglass
    
Set oExcel = CreateObject("Excel.Application")
' Si el libro no se encuentra en el mismo directorio de la aplicación, cámbiale la ruta
Set xLibro = oExcel.Workbooks.Open(App.Path & "\Libro1.xls")
Set xHoja = xLibro.Sheets(1)
' contar las filas y columnas de la Hoja Excel
Columnas = xHoja.Rows(1).Find("").Column
Filas = xHoja.Columns(1).Find("").Row

With MsFlexGrid1
    ' asignar al Grid las mismas filas y columnas que la Hoja Excel
    .Cols = Columnas
    .Rows = Filas
    ' guardar los datos en el Grid 
   For i = 1 To Columnas - 1
        .Col = i - 1
        For j = 1 To Filas - 1
            .Row = j
            .Text = xHoja.Cells(j, i)
        Next j
    Next i
End With
Screen.MousePointer = vbDefault
' cerrar el objeto Excel
oExcel.Quit
End Sub

Claro, al hacer referencia al Grid le antepones el nombre del formulario donde se encuentre.

Un saludo

[LuZbA]

eit Avellaneda muchas gracias por contestarme.... la verdad ya me estaba volviendo loca... jeje... si me funciono ... pero ahora tengo otra pequeña duda...


como le puedo hacer para que al guardar en excel, todas las celdas sean de tipo string... sabes que al abrir el documento de excel me muestra los datos tal y como los almacene... osea no hay problema... pero al vaciarlos en la grilla me muestra los datos como que los tomo de otro tipo por ejemplo un campo es 13:00:05 y me muestra 0,468877314814815 ó 1,15740740740741E-05......

yo pienso que es por el tipo de dato que tiene la celda de excel.... alguna idea???...

de nuevo gracias...

[David]

Creo que como los datos que quieres almacenar son pocos, lo mejor es que hagas como te recomendaron en el otro tema, guardar los datos en un archivo de texto... (Hasta ahorrarías espacio en disco... y otros errores como el que mencionaste)

[Avellaneda]

Hola LuZbA, mira este post aver si te resuelve el problema


http://www.forosdelweb.com/f69/como-...-6-0-a-574963/

Un saludo