Extracción de datos numéricos de una serie de libros cerrados con nombres consecutivos hacia otro abierto

[Micasa]

MrExcel:

He usado la sintaxis Workbook... para formar una columna de datos en el libro en que tengo la macro, usando los numeros que se encuentran en una celda fija de varios libros con nombres consecutivos.

PAra hacerlo, he tenido que abrir a la vez los 32 libros de origen.

Cómo puedo hacer para que esto ocurra sin necesidad de tener todos los libros abiertos sumiltaneamente? O sea, para que la macro incluya una etapa en que ella sola abra cada libro, le extraiga el numero que quiero y lo cierre, dejando el numero extraido grabado en mi libro?

Gracias de antemano,

 

[sergioMabres]

La macro que corre en el libro 1 debe abrir el libro i (tal que i va de 1 a n) copiar el valor de una celda y lo vuelve a cerrar
Y continua con i+1

Sub AbreCopiaCierraPega()
    Dim listaArchivos(100) As String
    Dim tempbook As Workbook
    Dim valor As String
    Dim desde As String
    Dim hasta As String
    ' Desde es el lugar donde esta el valor que se quiere copiar
    desde = "G120"
    ' Columna donde se van poniendo los valores
    hasta = "B"
    ' Llenar la lista de archivos
    listaArchivos(1) = "C:\Temp\suarchivo01.xls"
    listaArchivos(2) = "C:\Temp\suarchivo02.xls"
    ...
    ' Y así con todos los archivoslista
    For i = 1 To 100 ' Cambiar el 100 por el valor corecto
        Set tempbook = Workbooks.Open(listaArchivos(i))
        valor = Range(desde).Value
        tempbook.Close savechanges:=False
        Range(hasta & Format(i + 1, "0")).Formula = valor
     Next i
End Sub

O se podría hacer que recorra un directorio y abra todos los archivos de ese directorio

Sub LoopFolders() 'reference Microsoft Scripting Runtime under Tools > ReferencesDim fso As New FileSystemObject
Dim mFile As File
Dim mFolder As Folder
Dim folderPath as String
dim tempbook as Workbook

folderPath = "" 'Your folder goes here
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set mFolder = fso.GetFolder(folderPath)
 
For Each mFile In mFolder.Files
    Set tempbook = Workbooks.Open(mFile.Path)
     'Your Code goes here
    tempbook.Close savechanges:=False
Next mFile
End Sub

El codigo de copia es el mismo en ambos ejemplos
Sergio

 

[Micasa]

Sr. Sergio Mabres, mil gracias por tomar el tiempo para hacerme una respuesta. Voy a estudiar lo que me propone.
Otra vez muchísimas gracias,
Ivette