Vincular archivos de forma masiva

30/03/2010 - 07:13 por Flinding | Informe spam
Buenos días.

Estoy intentando vincular archivos tif, ubicados en 40 carpetas distitntas a
un excell.

Mi intención es crear un DVD con esas 40 carpetas y un excell de índice.

Mi pregunta es: ¿Hay alguna forma de automatizar esta opción (dentro de las
40 carpetas tengo un total de 12. 000 archivos) para no tener que vincular
cada archivo uno a uno, o al menos hacerlo con cada carpeta?

Preguntas similare

Leer las respuestas

#1 Ignacio
04/05/2010 - 11:47 | Informe spam
¡Buenos días, Flinding!

Si lo que quieres es crear en Excel un índice con los hipervínculos de
los archivos tif que hay en una carpeta puedes utilizar un código
parecido a este en un módulo de Excel:
Sub VinculaArchivos()
Dim sCarpeta As String, sArchivo As String, i As Integer

sCarpeta = "C:\Documents and Settings\Mis documentos\Mis imágenes
\"
sArchivo = Dir$(sCarpeta & "*.'tif")
While Len(sArchivo)
i = i + 1
ActiveSheet.Hyperlinks.Add Cells(i, 1), sCarpeta &
sArchivo, , , sArchivo
sArchivo = Dir$
Wend
End Sub

El ejemplo está hecho para una carpeta. Lee todos los archivos con
extensión tif en la carpeta y genera un hipervínculo en la columna A
de la hoja activa de Excel.

Espero que te sirva de ayuda.

Un saludo,
Ignacio.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida