MACRO PARA DESPLIEGE DE DIRECTORIOS EN EXCEL

Hola a todos,

Estoy tratando de mejorar una aplicación hecha con anterioridad. En la
columna C tengo que desplegar la ruta de donde se encontran una lista de
archivos. En cada fila el archivo es diferente (es decir tiene diferente
nombre) pero se encuentra en la misma ruta. La razón por la que quiero

una macro es para hacerlo más amigable, y que al usuario no se le

localizar los archivos.

Esto es lo que debe ir en la columna C

C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-07 pm SLTO

C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-09 pm SCOA

C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-10 pm LMXA

Esto es un fragmento, ya que la lista es de 50 filas, pero por alguna

algunas veces hay que modificar los nombres de los archivos.

¿Alguien me puede ayudar?
Lyna

Hola a todos,

Estoy tratando de mejorar una aplicación hecha con anterioridad. En la
columna C tengo que desplegar la ruta de donde se encontran una lista de
archivos. En cada fila el archivo es diferente (es decir tiene diferente
nombre) pero se encuentra en la misma ruta. La razón por la que quiero

una macro es para hacerlo más amigable, y que al usuario no se le

localizar los archivos.

Esto es lo que debe ir en la columna C

C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-07 pm SLTO

C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-09 pm SCOA

C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-10 pm LMXA

Esto es un fragmento, ya que la lista es de 50 filas, pero por alguna

algunas veces hay que modificar los nombres de los archivos.

¿Alguien me puede ayudar?
Lyna

No se si te pueda servir este procedimiento que despliega los los archivos
del directorio Mis Documentos
Necesitas usar el separador de listas adecuado para tu configuracion
regional.



Sub despliegaarchivos()

Set fs = Application.FileSearch
With fs
.LookIn = "C:\Mis Documentos"
.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Hay " & .FoundFiles.Count & _
" Archivo(s) Encontrados."
For i = 1 To .FoundFiles.Count
Worksheets("Hoja1").Range("c1").Offset(i, 0).Value > ..FoundFiles(i)
Next i
Else
MsgBox "No se encontraron archivos"
End If
End With

End Sub
"Lyna" escribió en el mensaje
news:
> Hola a todos,
>
> Estoy tratando de mejorar una aplicación hecha con anterioridad. En la
> columna C tengo que desplegar la ruta de donde se encontran una lista de
> archivos. En cada fila el archivo es diferente (es decir tiene diferente
> nombre) pero se encuentra en la misma ruta. La razón por la que quiero
tener
> una macro es para hacerlo más amigable, y que al usuario no se le
complique
> localizar los archivos.
>
> Esto es lo que debe ir en la columna C
>
> C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-07 pm SLTO
2502.WAV
> C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-09 pm SCOA
2157.WAV
> C:\Documents and Settings\tamllopez\Mis documentos\VOCEO\2-10 pm LMXA
740.WAV
>
> Esto es un fragmento, ya que la lista es de 50 filas, pero por alguna
razón
> algunas veces hay que modificar los nombres de los archivos.
>
> ¿Alguien me puede ayudar?
> Lyna