¿Cómo obtiene VBA la ruta del archivo EXCEL actual?

1. Primero abra la hoja de datos de Excel y abra el editor VBA en la herramienta de desarrollo.

2. Ingrese algún contenido en el área de la celda.

3. Inserte el módulo en el editor VBA.

4. Sub obtiene la ruta del archivo ()Dim filess, tempfiles=Application.GetOpenFilename(, , "Abrir archivo") Si filess=False Entonces MsgBox "No has seleccionado un archivo, el programa está a punto ¡para salir!": Salir Subtemp=Split(archivos, "\").

5. MsgBox "La ruta que seleccionó "" & temp(UBound(temp)) & "" es: " & Chr(10) & filess _

& Chr( 10 ) & "La ruta de la tabla actual es:" & Chr(10) & ThisWorkbook.FullName, vbokonty+64, "Ruta de retorno" End Sub. Ingrese el código en el módulo y ejecútelo.

6. Luego haga clic en el botón "Ejecutar" y el programa abrirá el cuadro de diálogo "Seleccionar archivo". Después de seleccionar un archivo, el programa muestra inmediatamente la ruta al archivo seleccionado y luego la ruta al libro actual.