Para Fernando Ärroyo

"Amadeo Govoni" escribió en el mensaje news:%

Antes que nada,,,
Cómo estás?

Muy bien :-)

Esta es la n-1 veces que me tomo la atribución de molestarte con preguntas.

No es molestia... mientras conozca las respuestas :-)

Esta es la siguiente:

Vos has puesto esto:

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

Me gustaria saber como obtener el nombre de los archivos?

Los archivos que cumplen con el patrón de búsqueda (*.xls en el código que has puesto) quedarán almacenados en el objeto FoundFiles. Se puede averiguar el número de archivos mediante la propiedad Count de FoundFiles, y se pueden ir extrayendo según su número de Item (desde 1 hasta FoundFiles.Count)

Y donde puedo obtener bibliografía de este método en español

No es un método, sino un objeto y una propiedad del objeto Application.
Hay ayuda disponible en Excel, si preguntas desde el editor de VBA.

Saludos desde Argentina
Amadeo

Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando
Fijate en el lugar donde dice

['Lo que tengas que hacer con cada archivo]

For n = 1 To .FoundFiles.Count
'
'Lo que tengas que hacer con cada archivo
'
Next n

Escribi una sentencia como por ejemplo que en el archivo 'n' , 'hoja1'
range("A1") lo ingrese en una variable

Es que no se como escribirlo

y como recupero el nombre del archivo n

Esperando tu contestación
Saluldos
Amadeo

"Amadeo Govoni" escribió en el mensaje news:

Fernando
Fijate en el lugar donde dice

['Lo que tengas que hacer con cada archivo]

For n = 1 To .FoundFiles.Count
'
'Lo que tengas que hacer con cada archivo
'
Next n

Escribi una sentencia como por ejemplo que en el archivo 'n' , 'hoja1'
range("A1") lo ingrese en una variable

No entiendo bien qué quieres decir, pero si te refieres a recuperar el valor de Hoja1!A1 del fichero FoundFiles(n), eso no es posible con este código puesto que no abre los libros

Es que no se como escribirlo

y como recupero el nombre del archivo n

.FoundFiles(n) devolverá el nombre del archivo n, por ejemplo: strVariableString = .FoundFiles(n)

Estoy pensando que quizás te pueda interesar echar un vistazo a un mensaje que he puesto hace algunas horas en un hilo iniciado por o.q. cuyo asunto era "consolidar". En él hay un caso real de uso del objeto FileSearch.

Esperando tu contestación
Saluldos
Amadeo

Un saludo.


Fernando Arroyo
MS MVP - Excel