Crear menu de libros excel

Hola, tengo unos libros de excel, dentro de subcarpetas en un directorio de mi ordenador
¿Podría crear un índice que recogiera todos estos archivos automáticamente y generara un link para acceder a ellos directamente?
Gracias
Respuesta
1
Alnadur te adjunto una macro para que la pruebes:
Sub Listar()
Dim i As Long
Dim MiRuta As String
Dim MiNombre As String
i = 1
MiRuta = "Y:\TEMPO\BACKUP\*.xls"   'cambia la ruta de tua archivos
MiNombre = Dir(MiRuta, 0)
Do While MiNombre <> ""
If MiNombre <> "." And MiNombre <> ".." Then
Range("A" & i).Select
ruta1 = "Y:\TEMPO\BACKUP\" & MiNombre
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ruta1, TextToDisplay:=ruta1
i = i + 1
End If
MiNombre = Dir
Loop
End Sub
Estupendo!
La macro funciona perfectamente, solamente no me reconoce los archivos dentro de subdirectorios.
¿Podría aparecer como link el titulo de la hoja excel o el contenido de una celda en concreto en lugar de la ruta hasta el archivo?
Gracias
Para ver solo el nombre del directorio en lista tienes que realizar una pequeña modificación:
Sub Listar()
Dim i As Long
Dim MiRuta As String
Dim MiNombre As String
i = 1
MiRuta = "Y:\TEMPO\BACKUP\*.*"   'cambia la ruta de tua archivos
MiNombre = Dir(MiRuta, 0)
Do While MiNombre <> ""
If MiNombre <> "." And MiNombre <> ".." Then
Range("A" & i).Select
ruta1 = "Y:\TEMPO\BACKUP\" & MiNombre
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ruta1, TextToDisplay:=MiNombre
i = i + 1
End If
MiNombre = Dir
Loop
End Sub
Te adjunto una nueva macro para los sub directorios con la modificaiones que solicitas:
Sub ficheros_y_subdirectorios_del_directorio()
On Error Resume Next
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = "Y:\TEMPO\"
Set directorio = fso.GetFolder(ruta)
Set subdirectorios = directorio.subfolders
Set ficheros = directorio.Files
Range("D6").Select
ActiveCell = "Subdirectorios del directorio:"
ActiveCell.Font.Bold = True
ActiveCell.Font.Underline = xlUnderlineStyleSingle
ActiveCell.Offset(1, 0).Select
For Each subdirectorio In subdirectorios
ActiveCell = subdirectorio.Name
ruta1 = ruta & subdirectorio.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ruta1, TextToDisplay:=subdirectorio.Name
ActiveCell.Offset(1, 0).Select
Next
ActiveCell = "Ficheros del directorio:"
ActiveCell.Font.Bold = True
ActiveCell.Font.Underline = xlUnderlineStyleSingle
ActiveCell.Offset(1, 0).Select
For Each archivo In ficheros
ActiveCell = archivo.Name
ruta1 = ruta & archivo.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ruta1, TextToDisplay:=archivo.Name
ActiveCell.Offset(1, 0).Select
Next
Set fso = Nothing
Set directorio = Nothing
Set subdirectorios = Nothing
Set ficheros = Nothing
Application.ScreenUpdating = True
End Sub
Fuente:http://hojas-de-calculo-en-excel.blogspot.com/2008/11/listar-los-archivos-de-un-directorio.html

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para recorrer los Ficheros de un Carpeta

Necesito una macro para ir recorriendo todos los ficheros que tengo en una carpeta para abrir sólo los que necesito en cada momento. ¿Cómo podría hacerlo? Ya he sacado la ruta de la carpeta pero no se como ir recorriendo todos los workbooks. Pensaba...
2 respuestas

Macro para generar hipervínculos

Quisiera saber si existe la posibilidad de realizar una macro que tome secuencialmente textos celdas (p.e. Www.todoexpertos.com) y que la convierta automáticamente en un vinculo ( osea que al darle un click me lleve a la página) ya que hasta el...
1 respuesta

Listar rutas de carpetas dentro de otra carpeta

Soy muy nuevo en esto, he empezado hace poco con las macros y es algo que me parece interesante, de momento voy investigando con las que me bajo, las voy modificando a mis necesidades. Ahora necesito para el trabajo lo siguiente: Supongamos que tengo...
11 respuestas

Modificar hipervínculos en excel masivamente

Trabajo con un archivo de excel situado en un servidor determinado. Este archivo contiene celdas en las que se ha establecido un "hipervínculo" con otros archivos. A modo de ejemplo, al "pinchar" sobre el hipervínculo de una celda concreta, se abre...
1 respuesta

Como listar las distintas subcarpetas que hay dentro de una determinada carpeta.

Actualmente tengo una macro de Excel para listar los ficheros de una carpeta, pero querría listar también las subcarpetas que estén dentro de una determinada carpeta. ¿Es posible?
1 respuesta

Macro Para Listar Archivos Contenidos En Una Carpeta!

Los molesto de nuevo =)!! Necesito una macro que me liste los archivos contenidos dentro de la carpeta en la cual se encuentra el libro de calculo. Ojala especificando el nombre del archivo en una columna y en la otra un hipervínculo hacia el...
1 respuesta