Duda sobre listar documentos y ficheros

Conviene consultar Google. Esto te puede servir para obtener los datos. Para
crear el enlace utiliza la función hiperlink de Excel
http://directory-list-print.softonic.com/


escribió en el mensaje de noticias
news:

Una pregunta. Tengo Excel 2007.

Es la siguiente: Quiero listar los datos de una carpeta, por ejemplo
"c:\jose"

Quiero que me salga a partir de la fila 5 una lista con la ruta completa
de cada fichero, teniendo en cuenta que en la carpeta de jose puede haber
50 subcarpetas y 100 archivos en cada subcarpeta, y a su vez que salga con
un hipervinculo al archivo que me escriba y me lleve al mismo.

EJEMPLO:
C:\JOSE\CARPETA1\JOSE.XLS
C:\JOSE\CARPETA1\JOSE2.XLS
C:\JOSE\CARPETA1\JOSE3.XLS
C:\JOSE\CARPETA10\JOSE.XLS
C:\JOSE\CARPETA10\JOSE10-1.XLS
C:\JOSE\CARPETA10\JOSE10-2.XLS
Y QUE AL PINCHAR EN UNO DE ESTOS FICHEROS ME LLEVE DIRECTAMENTE AL MISMO
ABRIENDOLO Y TRABAJANDO CON EL

GRACIAS

hola, chicos !

tambien resulta conveniente consultar los grupos por google (p.e.)
-> http://tinyurl.com/yafg93s

y/o consultar desde la interfaz web de los grupos (p.e.)
-> http://tinyurl.com/yb6sgg4
ya que con frecuencia se pierde la sincronia en los servidores :-((

saludos,
hector.

pepe escribio en el mensaje ...
Conviene consultar Google. Esto te puede servir para obtener los datos.
Para crear el enlace utiliza la función hiperlink de Excel
http://directory-list-print.softonic.com/

La verdad es que esta todo por ahi, pero en fin...

Aqui tienes una funcion que hace lo que pides, solo debes rellenar los
campos al principio de la funcion o vincularlos a las celdas que tu
prefieras.
carp = carpeta que quieres listar
ext = si quieres solo un tipo de archivos, sino pones 0 y listara
todos
nFilas = si quieres un numero determinado de archivos
nIniFil = fila donde quieres que empiece
nIniCol = columna donde quieres que empiece


aqui el codigo, son dos funciones:


Sub Funcion_listar()

Dim carp, exte, nFilas, nIniFil, nIniCol
carp = "c:\jose" ' O pones una celda
exte = "xls" ' O pones una celda
nFilas = 20 ' O pones una celda
nIniFil = 5 ' O pones una celda
nIniCol = 1 ' O pones una celda

Dim lista() As String
lista = ShowFolderList(carp, exte)

For i = 0 To nFilas
If UBound(lista) > i Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(nIniFil + i, 1),
Address:="file:///" & carp & lista(i), TextToDisplay:=carp & lista(i)
'Cells(nIniFil + i, 1) = carp & lista(i) 'Solo la direccion,
sin link
End If
Next i

End Sub

'Devuelve una lista de los archivos de cierta extension, si ext=0,
lista todos.
Function ShowFolderList(folderspec, extension)
Dim fso, f, f1, fc
Dim s() As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
n = 0
For Each f1 In fc
If extension = 0 Then
ReDim Preserve s(n + 1)
s(n) = f1.Name
n = n + 1
Else
ext = fso.GetExtensionName(f1)
If ext = extension Then
ReDim Preserve s(n + 1)
s(n) = f1.Name
n = n + 1
End If
End If
Next
ShowFolderList = s
End Function