MACRO PARA DESPLIEGE DE DIRECTORIOS EN EXCEL

18/08/2005 - 17:46 por Lyna | Informe spam

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

Siga el debate

3 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 hector barajas

18/08/2005 - 18:57 | Informe spam

No se si este procedimiento te pueda servir.

Estoy usando como separador de listas la coma, si no es tu caso tienes que
cambiarlo.

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