Asociar archivos de una carpeta

Prueba con el siguiente código:

Sub Prueba()
Dim fsB As FileSearch
Dim n As Long

Set fsB = Application.FileSearch

With fsB

.NewSearch
.LookIn = "C:\Directorio\Subdirectorio" 'Directorio donde comenzará la búsqueda
.SearchSubFolders = False 'Si se buscará en los subdirectorios
.Filename = "*.xls" 'Patrón a buscar

If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then

For n = 1 To fsB.FoundFiles.Count
Worksheets("Hoja1").Cells(n, 1) = .FoundFiles(n) 'Sustituir Hoja1 por el nombre de la hoja donde se pondrán los datos
Worksheets("Hoja1").Cells(n, 2).Formula = "='" & Left(.FoundFiles(n), InStrRev(.FoundFiles(n), "\")) & "[" & Mid(.FoundFiles(n), InStrRev(.FoundFiles(n), "\") + 1) & "]Hoja1'!$A$1" 'Suponiendo que se quisiera el dato de Hoja1!A1 de cada libro
Next n

End If

End With

Set fsB = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Gandalflc" escribió en el mensaje news:

Igual no es posible pero por preguntar creo que no voy a perder nada.

Tengo en una carpeta varios archivos de Excel, lo que me gustaría saber es
si hay alguna forma de que en un documento nuevo me copie el contenido de
una de las celdas de todos los archivos pero sin tener que ir abriendo de
uno en uno cada archivo. Seleccionar la carpeta donde están los archivos y
que Excel se encargue de ir asociando la casilla correspondiente de cada
archivo.

No sé si me he explicado bien.

Gracias.