Como Determinar Nombre Archivo Trabajando con Cadena Texto





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.

  

El vídeo siguiente se muestra una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como renombrar un archivo con macro de Excel y muchos ejemplos más.








 


Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.
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.

nom = Mid(nomarchi1, 1, InStr(nomarchi1, ".") - 1)

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
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


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛


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