.
En este ejemplo se apela a las funciones de VBA para trabajar con cadenas de texto y se aplica al renombramiento de archivos, por ello el ejemplo se llama como buscar archivos y renombrarlo cambiando partes de su nombre, anteriormente se mostraron otros ejemplos que tratan sobre la búsqueda de archivos y los encuentras en como buscar un archivo en una carpeta y determinar su ruta o path o como buscar archivos en una carpeta y hacer un link al fichero.
En el caso que puedas considera aportar para sostener el sitio, el ejemplo será mucho más fácil de comprender si se descarga el archivo comprimido (ZIP) donde está el ejemplo y la carpeta con archivos con las que trabaja el ejemplo; aconsejo descargarlo con la única condición que se debe guardar juntos no importando en que parte del los directorios de la PC se guarden.
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Lee también
Listar archivos y carpetas de un directorio
Como abrir, modificar e imprimir arhivos de Word desde Excel con macro
Como abrir dos libros copiar datos de uno a otro y guardar en un tercer libro
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Antes de seguir lee 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.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Lo anterior es posible con está serie de códigos:
Con los códigos anteriores se busca a partir del nombre del archivo donde está el número que está inserto en el nombre del archivo por ello se busca el primer espacio y donde está el segundo espacio ya que entre ellos está el número que necesitamos extraer, luego mediante una resta entre la cantidad de caracteres de la cadena se determina cuantos caracteres se deben extraer, ya que el numero puede tener una cifra, dos cifras o tres cifras, entonces restando la cantidad de caracteres a la izquierda menos los caracteres a la derecha nos da la cantidad de caracteres a extraer del total, con ello se extrae el número que se requiere, y la cadena de texto que está antes del número y posterior al número para luego concatenarlos alterando su nombre.
Realizado lo mencionado, se renombra el archivo con este código:
Name nomold As nomnew
Una vez renombrado el archivo, se recorre todos los archivos del directorio con un bucle, buscando el número del fichero que ahora está al comienzo del nombre, porque fue renombrado; en la columna A del archivo de Excel donde se encuentra dicho número que es un código que hace referencia al archivo, una vez encontrado crea un link al archivo.
Para saber saber más sobre como crear un link, por favor visita como crear un link al archivo, el código completo del ejemplo denominado como buscar archivos y renombrarlo cambiando partes de su nombre, se expone a continuación.
Código que se inserta en un módulo
Sub hiperlinkficheroYURL()
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 & «324 PruebaHyper»
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set carpeta = fso.getfolder(path1)
Set ficheros = carpeta.Files
NunFich = 0
num = 0
For Each ficheros In ficheros
b = ficheros.Name
nomold = path1 & «» & b
esp1 = InStr(b, » «)
esp2 = InStr(esp1 + 1, b, » «)
num = Mid(b, esp1 + 1, esp2 – 1 – esp1)
pp = Left(b, esp1 – 1)
sp = Mid(b, esp2 + 1)
nomnew = path1 & «» & num & » » & pp & » » & spName nomold As nomnew
busco = num
Set codigo = a.Range(«A5:A» & uf).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
a.Range(«F» & codigo.Row) = nomnew
texhipv = a.Range(«A» & codigo.Row)
dire = codigo.Row
a.Hyperlinks.Add Anchor:=a.Range(«A» & dire), Address:=nomnew, TextToDisplay:=texhipv
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 hiperlinkficheroYURL()
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 & «324 PruebaHyper»
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set carpeta = fso.getfolder(path1)
Set ficheros = carpeta.Files
NunFich = 0
num = 0
For Each ficheros In ficheros
b = ficheros.Name
nomold = path1 & «» & b
esp1 = InStr(b, » «)
esp2 = InStr(esp1 + 1, b, » «)
num = Mid(b, esp1 + 1, esp2 – 1 – esp1)
pp = Left(b, esp1 – 1)
sp = Mid(b, esp2 + 1)
nomnew = path1 & «» & num & » » & pp & » » & spName nomold As nomnew
busco = num
Set codigo = a.Range(«A5:A» & uf).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
a.Range(«F» & codigo.Row) = nomnew
texhipv = a.Range(«A» & codigo.Row)
dire = codigo.Row
a.Hyperlinks.Add Anchor:=a.Range(«A» & dire), Address:=nomnew, TextToDisplay:=texhipv
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 hiperlinkficheroYURL()
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 & «324 PruebaHyper»
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set carpeta = fso.getfolder(path1)
Set ficheros = carpeta.Files
NunFich = 0
num = 0
For Each ficheros In ficheros
b = ficheros.Name
nomold = path1 & «» & b
esp1 = InStr(b, » «)
esp2 = InStr(esp1 + 1, b, » «)
num = Mid(b, esp1 + 1, esp2 – 1 – esp1)
pp = Left(b, esp1 – 1)
sp = Mid(b, esp2 + 1)
nomnew = path1 & «» & num & » » & pp & » » & sp
Name nomold As nomnew
busco = num
Set codigo = a.Range(«A5:A» & uf).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
a.Range(«F» & codigo.Row) = nomnew
texhipv = a.Range(«A» & codigo.Row)
dire = codigo.Row
a.Hyperlinks.Add Anchor:=a.Range(«A» & dire), Address:=nomnew, TextToDisplay:=texhipv
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
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