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

    • Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano     Adjunto también la macro. MEvento.zip
    • No debe importarnos que el usuario que abrió el tema no vuelva a consultarlo porque nuestras respuestas le llegaron demasiado tarde... Lo importante es poder ayudar a otros usuarios que tengan un problema similar en el futuro...
    • Es una opción original e ingeniosa pero creo que difícil de comprender para un usuario que sepa fórmulas sencillas... Adjunto otra opción con fórmulas desbordadas que puede que sea más fácil de comprender para un usuario que esté aprendiendo a formular, pues hay 3 pasos separados: Columna D : A cada valor se le añade 1> a la izquierda, se sustituye el primer + por 2> y el segundo + por 3>. De paso se quitan los signos , y . para convertir los valores en números. Todo ello con la función SUSTITUIR. ="1>"&SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR($C2;",";"");".";"");"+";"2>";1);"+";"3>";1)   Columna E (desbordada hacia la derecha en las columnas F y G): Extrae los valores y letras de 1>, 2> y 3>. Todo ello con una versión matricial de la función EXTRAE, con la ayuda de la función ENCONTRAR. =SI.ERROR(SUSTITUIR(EXTRAE($D2;ENCONTRAR({"1>"\"2>"\"3>"};$D2);SI.ERROR(ENCONTRAR({"2>"\"3>"\"0>"};$D2);100)-ENCONTRAR({"1>"\"2>"\"3>"};$D2));{"1>"\"2>"\"3>"};"");"")   Sumas de C, T y V: Suma las cantidades consumidas de cada letra con la función SUMAPRODUCTO. Salu2, Pedro Wave Sumar Letras PW1.xlsx
    • Hola,  Estoy intentando vía InputBox rellenar con el dato introducido una columna. Pero no consigo que lo haga desde la primera fila libre de A. Sería pegar el dato a partir de la primera celda libre de la columna A (está en verde), en función del Nº de filas de la columna B No consigo modificarla y se pega desde el comienzo.  Podéis echarle un vistazo? La macro está en el ejemplo. ¡Muchísimas gracias!      ej_InputBox.xlsm
    • La mía. Sub Mostrar() Application.ScreenUpdating = False Range("B:CM").EntireColumn.Hidden = False End Sub '-- Sub Ocultar() Dim Filtro As Range Application.ScreenUpdating = False Mostrar For y = 2 To Columns("CM").Column If WorksheetFunction.CountIf(Cells(8, y).Resize _ (Range("A" & Rows.Count).End(xlUp).Row, 1), "<>" & Empty) = 0 Then Columns(y).Hidden = True End If Next End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy