.
La macro que se presenta permite determinar el nombre de un archivo, hay varias formas para ello, pero en esta ocasión se muestra como trabajar con una cadena de texto usando funciones de VBA, recorriendo la cadena de texto o string, que es el nombre del fichero, se puede determinar el mismo; en el link siguiente se muestra como determinar la extensión de un archivo.
La macro tiene por objeto mostrar como trabajar con cadenas de texto y poder extraer caracteres del de dicho string, en el siguiente link se muestra otra forma de determinar el nombre de un archivo, por si es de interés del lector saber otra forma de saber el nombre de un fichero.
Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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.
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);
}
}
La macro crea una copia de la hoja actual, para ello utiliza el siguiente código:
Al descargar el archivo se podrá observar un botón, presionando el mismo sale un msgbox (como crear un msgbox) que muestra cual es el nombre del archivo actual.
Para ello se recurre a funciones de VBA que permite trabajar con cadena de texto, la macro básicamente determina donde se encuentra el punto que se utiliza para separar el nombre del archivo de su extensión, se realiza con el siguiente código:
InStr(nomarchi1, «.»)
Luego se extrae la cadena de texto o cantidad de caracteres que se encuentran anteriores a donde se encuentra situado el punto que separa el nombre del fichero de su extensión, cargándose en una variable, que luego se usa en mensaje para mostrar el nombre del fichero determinado; quedando la línea de código completa que permite determinar el nombre de la siguiente manera.
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también
Como crear una factura con excel, guardarla y enviarla por mail automáticamente
Como enviar mail con archivo Excel y PDF mediante Outlook con Excel
Como hacer un link o hiperlink a google maps con Excel
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Las principales funciones de VBA para trabajar con cadena de texto son:
Mid: permite extraer una parte de una cadena de texto, se puede especificar de donde se debe empezar a extraer los caracteres y cantidad a extraer.
Left: extrae caracteres a la izquierda.
Right: extrae caracteres a la derecha.
InStr: determina en que posición se encuentra un carácter determinado.
InStrRev: permita invertir una cadena de caracteres.
Replace: permite reemplazar un carácter o cadena de caracteres por otro.
Código que se inserta en un módulo
Sub DeterminaNombre()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
nomarchi1 = ActiveWorkbook.Name
nom = Mid(nomarchi1, 1, InStr(nomarchi1, «.») – 1)
MsgBox («El nombre del archivo es: » & nom), vbInformation, «AVISO»
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
nomarchi1 = ActiveWorkbook.Name
nom = Mid(nomarchi1, 1, InStr(nomarchi1, «.») – 1)
MsgBox («El nombre del archivo es: » & nom), vbInformation, «AVISO»
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
.
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