Extraer solo los nombres de los archivos directamente de la carpeta del explorador

mira a ver si te sirve mi humilde ejemplo

Const My_Folder = XXXX 'aqui va el nombre de tu carpeta
Sub listar_files()
Dim FSO As Object
Dim FSOFolder As Object
Dim FSOfile As Object
Dim i As Long ' en carpetas con muchos archivos me daba error con el tipo
integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSOFolder = FSO.GetFolder(My_Folder)
i = 1
With ActiveSheet
For Each FSOfile In FSOFolder.Files
.Range("a" & i) = FSOfile.Name
i = i + 1
Next
End With
End Sub



zz [MX]
cuasi-musico,semi-poeta y loco



"Murphy" wrote in message
news:
Deseando que esten teniendo un excelente inicio de año, les envio
saludos coordiales!

Tengo una carpeta con ams de 100 archivos en excel, debo capturar en
una hoja de excle el nombre de cada archivo.La unica manera que conozco
de hacerlo es dentro de la carpeta del explorador, F2, copiar y pegar.

Habra alguna manera de hacerlo que sea menos manual, ya sea en excel o
en algun otro programa???

Agradezco de antemano su atencion y ayuda

hola, Juan !

El punto 2 de tus comentarios ha despertado mi curiosidad.
Te iba a pedir mas explicaciones al respecto pero haciendo uso de 'San Google' lo he encontrado.
http://www.jkp-ads.com/Articles/ExcelNames08.htm
y alguna que otra de las conversaciones que has sugerido en otras ocasiones...

'san google' y la web... [como que no hay mucho que 'agregar']
existen aun bastantes 'genialidades' por ahi... [entre ocultas y a la vista al mismo tiempo] :))

saludos,
hector.