En este grupo En todos

Foro de Excel



Vincular archivos de forma masiva

FLINDING
Agricolas upm
Escrito por Flinding Bag
el 30/03/2010

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?

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 30/03/2010

Intenta con esto:
Sub HyperlinksToDirectory()
' puts hyperlinks to each of the files in a directory of your choice
' into the active sheet starting at the active cell
Dim stDir As String
Dim stFile As String
Dim R As Range
Set R = ActiveCell
stDir = InputBox("Directory? ", , Default:=CurDir())
stFile = Dir(stDir & "\*. *")
Do Until stFile = ""
R.Hyperlinks.Add R, stDir & "" & stFile, , , stFile
Set R = R. Offset(1)
stFile = Dir()
Loop
R.CurrentRegion.Sort key1:=R, order1:=xlAscending, header:=xlNo
End Sub