.
En este post muestro como buscar archivos y determinar su ruta o path, existen otros post relacionados por ejemplo como guardar un archivo en el escritorio de cualquier PC o como recorrer una cadena de caracteres y determinar el nombre de un archivo sin su extensión.
Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizás también sea útil:
Como abrir otro libro copiar o exportar datos del libro actual
Como buscar datos y cargar imagen de catalogo en formulario
Como insertar imagen en comentario de Excel
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
path1 = ActiveWorkbook.Path & «322 PruebaHyper»
La macro denominada, como buscar archivos en una carpeta y determinar su Ruta o Path, busca los archivos listados en la hoja de Excel, más precisamente en la columna A, en todos los archivos que contiene la carpeta que se descargó o que cada uno determinó, en caso de encontrarlo establece y escribe su ruta, dirección o path en la columna F.
Código que se inserta en un módulo
Sub hiperlinkficheroURL()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim path1 As String, ruta As String, texhipv As String
Set a = Sheets(ActiveSheet.Name)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row
path1 = ActiveWorkbook.Path & «322 PruebaHyper»
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set carpeta = fso.getfolder(path1)
Set ficheros = carpeta.Files
NunFich = 0
For Each ficheros In ficheros
b = ficheros.Name
esp = InStr(b, » «)
nomfic = Val(Left(b, esp))
busco = nomfic
Set codigo = a.Range(«A5:A» & uf).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
ruta = path1 & «» & b
a.Range(«F» & codigo.Row) = ruta
NunFich = NunFich + 1
End If
Next ficheros
Set carpeta = Nothing
Set ficheros = Nothing
MsgBox («Se encontraron » & NunFich & » ficheros en la carpteta seleccionada»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Sub hiperlinkficheroURL()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim path1 As String, ruta As String, texhipv As String
Set a = Sheets(ActiveSheet.Name)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row
path1 = ActiveWorkbook.Path & «322 PruebaHyper»
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set carpeta = fso.getfolder(path1)
Set ficheros = carpeta.Files
NunFich = 0
For Each ficheros In ficheros
b = ficheros.Name
esp = InStr(b, » «)
nomfic = Val(Left(b, esp))
busco = nomfic
Set codigo = a.Range(«A5:A» & uf).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
ruta = path1 & «» & b
a.Range(«F» & codigo.Row) = ruta
NunFich = NunFich + 1
End If
Next ficheros
Set carpeta = Nothing
Set ficheros = Nothing
MsgBox («Se encontraron » & NunFich & » ficheros en la carpteta seleccionada»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends