Se requiere su ayuda para resolver este problema mundial (Excel VBA). Estoy usando un VBA para llenar un inmenso libro de trabajo (500 celdas por fila), de una carga de libros de trabajo (Cantidad = 96). El VBA que estoy usando fue creado por [@Kevin] [1] y funciona durante unos 20 archivos hasta que mi PC se queda sin memoria y bloquea Excel. Este tipo de trabajo funciona muy bien para trabajar con una cantidad tan inmensa de celdas por libro de trabajo, porque abrir y cerrar cada libro de trabajo se suma al proceso bastante. Abra cada libro de trabajo y copie las 500 celdas y cierre, luego continúe con la siguiente y así sucesivamente x ± 96 veces, pero eso sería más complicado que simplemente hacer que esto funcione, si tiene alguna de las 2 soluciones, ¡ayúdenos!

Aquí está el VBA que estoy usando:

Function GetField(Path As String, WorksheetName As String, CellRange As String) As Variant

Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range

Set wb = GetObject(Path)
Set ws = wb.Worksheets(WorksheetName)
Set rng = ws.Range(CellRange)

GetField = rng.Value

wb.close 

End Function