Jump to content

Acelerar lectura de datos


Recommended Posts

Hola estoy cargando una hoja Excel a una grilla de VB6 y creo que el método que estoy empleando es lento, creo recordar que hay otros métodos mas rápidos, yo utilizo dos for X, y for Y recorriendo celda por celda y obtengo su valor (esto en 790 filas con 21 columnas me esta demorando 1 minuto), pero creo que había una forma de obtener un array de las celda lo cual es mas rápido

mi código actual

Private Sub Form_Load()
    Dim LastRow As Long
    Dim i As Integer
    Dim XL As Object, xlSpread As Object
    Const xlLastCell = 11
    Dim Row As Long, Col As Long

    Set XL = CreateObject("Excel.Application")
    XL.Workbooks.Open FileName:=App.Path & "\L1.xlsx", ReadOnly:=False
    
    Set xlSpread = XL.Application

    LastRow = xlSpread.ActiveCell.SpecialCells(xlLastCell).Row
    
    With ucGridPlus1
        .Redraw = False
        .ColsCount = 21
        .RowsCount = LastRow - 6 + 1
        
        'Encabesados
        For i = 0 To 20
            .ColumText(i) = xlSpread.Cells(5, i + 1).Value
        Next
        i = 0
        
        'Celdas/Tabla
        For Row = 6 To LastRow
            For Col = 0 To 20
                .CellValue(i, Col) = xlSpread.Cells(Row, Col + 1).Value
            Next
            i = i + 1
            'Debug.Print Row
        Next
        .Redraw = True
    End With
    
    XL.Application.DisplayAlerts = False
    XL.ActiveWorkbook.Close False 'Dont save changes (if any)
    XL.Quit
    Set XL = Nothing
End Sub

 

Link to comment
Share on other sites

Hace 1 minuto , Antoni dijo:

Después de crear la instancia a Excel:

XL.Application.ScreenUpdating =False

Hola Antoni, sigue con la misma velocidad, el libro de por si esta oculto, yo no estoy escribiendo en él, sólo estoy leyendo datos, por lo que ScreenUpdating no hace la diferencia

Link to comment
Share on other sites

Posted (edited)

solucionado, era mas facil de lo que esperaba

arRng = xlSpread.Range("A6:U796").Value

ahora que me recomiendan para suplantar hacer ese rango con letras, es decir valores numéricos   (row6,col1) to (row796,col21) 

Edited by LeandroA
Link to comment
Share on other sites

Yo en muchas ocasiones lo que hago es abrir el fichero Excel, paso el rango de datos a un array, cierro el fichero y por último recorro el array y voy haciendo operaciones, cálculos o lo que haga falta. El recorrer el array, al estar cargado en memoria, apenas consume tiempo.

En tu caso lo recorres con:

For i = 1 to ubound(arRng)

'Aquí haces las operaciones que necesites.

Next i

 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • La parte de intercalar no la había captado Adjunto de nuevo mi método Espero ahora si, quede listo   Saludos! Mover filas filtradas otra hoja_GP.xlsm
    • Buenas noches nuevamente a los Foristas. A sugerencia de JSD  de los problemas que le planteaba sobre el formulario, abro un nuevo tema. Ofrezco disculpas porque realmente es así como debe ser. El tema es el siguiente: Tengo en este formulario otros problemas que quizás puedan ayudarme: realmente he tratado de ver dónde está el error, pero mis conocimientos no alcanzan y ustedes son los MAESTROS. 1.- En el FrmPersonal trabajo lo que es el listado de Personal con todos los datos y las Nóminas de Salario. En la parte de las nóminas (LstNomina) ya lo configuré de tal manera que con el evento DobleClick pueda traer cualquier trabajador y poder modificar algún dato que por error se haya introducido. Este trabaja Bien, pero en el LstPersonal, estoy tratando de hacer lo mismo y no me está queriendo tomar los datos para su modificación. No me da error, pero no lo hace y he buscado, pero no encuentro el posible problema. 2.- En este mismo Formulario (FrmPersonal), no acabo de poner bien el código VBA para los OptionButton de Sexo. 3.- En este Proyecto también tengo o quiero en el FrmBuscarEntradas poder modificarlo y que a través de un ComboBox o de Botones de Opción poder hacer la búsqueda no sólo de las Entradas, sino también de las Salidas y la Existencia. Esto para evitarme tener que hacer uno para cada uno y reducir los Formularios. ¿Podrías ayudarme con estos temas? Un abrazo a todos. Espero puedas ayudarme y excelente semana para todos. Un abrazo caluroso y cordial. Pino.   Mi Negocio Foro.xlsm
    • Buenas Noches a todos los Foristas. Gracias JSD por su aporte. Revisaré dónde estaba el problema para evitar el mismo error en lo adelante y aprender. Gracias a los demás miembros del Foro también. Tema cerrado.
    • Hola, Gerson. Pues es que solo se mueven todas las salidas de golpe tanto si filtras a mano como si no y todos las referencias de producto a la vez de salidas. No es el ejemplo 2.. no sé... pensaba que la pregunta era clara y tendría fácil solución. El código de mi ejemplo es super sencillo y lo he explicado paso a paso en la macro. En el ejemplo 1 funciona y en el ejemplo 2 es exactamente igual solo que los registros están filtrados.  Comienzo siempre con una salida y luego se van alternando (una entrada, una salida... hay condiciones) hasta que ya no quedan datos en las hojas. Primero para Referencia 1 (filtrada). La idea es al terminar quitar el filtro y hacer lo mismo para referencia 2 (como en el ejemplo 1 que funciona). Gracias.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy