Como hace lo siguente..

Puedes acceder a los archivos del objeto FileSearch mediante su método Execute, algo como:


Sub HacerAlgoConVariosArchivos()
Dim n As Long

With Application.FileSearch
.NewSearch
.LookIn = "C:\Test"
.SearchSubFolders = False
.Filename = "*.xls"

If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For n = 1 To .FoundFiles.Count
'
'Lo que tengas que hacer con cada archivo
'
Next n
End If
End With
End Sub


Lo del SortBy y SortOrder es para que los ficheros se puedan procesar en su orden alfabético, pero si no lo necesitas, lo puedes quitar.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"gema" escribió en el mensaje news:778b01c43115$cbbc0e30$

Hola a todos !

Tengo un una carpeta varios archivos que cambian cada
semana , desde el codigo tengo que abrir cada archivo y
trabajar con unos datos . EL problema que tengo es que no
se el nombre de los archivos ya que cambian y siempre son
distintos , estoy tratando de usar algo asi

With Application.FileSearch
.NewSearch
.LookIn = "C:\Test\"
.Filename> .SearchSubFolders = False
end with

pero necesito el nombre de los archivos .. como obtengo
el nombre de los archivos para abrirlos de a uno alguien
sabe?

gracias
gema