(adsbygoogle = window.adsbygoogle || []).push({});
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.
function onYtEvent(payload) {
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 & Âŧ Âŧ & 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
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 & Âŧ Âŧ & 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
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.
(adsbygoogle = window.adsbygoogle || []).push({});
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.
(adsbygoogle = window.adsbygoogle || []).push({});
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