Obtener valores de varios libros de Excel con Visual Basic para Aplicaciones

A continuación un script en VBA para obtener datos de los libros de excel localizados en una carpeta:

Sub extraeDatosLibrosYHojasExcel()
Dim ruta
Dim ruta2
Dim ruta3
Dim valor
Dim nombre
Dim i As Integer

ruta = “F:\DesarrolloS\excel\*.xlsx”
ruta2 = “F:\DesarrolloS\excel\”
nombre = Dir(ruta)
i = 1
Do While nombre <> “”
ruta3 = ruta2 & nombre
Workbooks.Open (ruta3)
Workbooks(nombre).Activate
valor = Workbooks(nombre).Application.Cells(1, 1).Value
Workbooks(nombre).Close
Cells(i, 1).Value = valor
i = i + 1
nombre = Dir
Loop
End Sub