Código VB para encontrar una carpeta específica y obtener la ruta del archivo

1. Primero abra la hoja de cálculo de Excel y luego abra el editor VBA en la herramienta de desarrollo, como se muestra a continuación.

2. Ingrese algún contenido en el área de la celda, como se muestra a continuación.

3. Inserte el módulo en el editor VBA, como se muestra a continuación.

4. Ruta de acceso secundario del archivo ()Dimfiless, tempfiless=Application. GetOpenFilename(,, "Abrir archivo") Si archivos=False, entonces MsgBox "¡No tiene más remedio que seleccionar un archivo, el programa se cerrará!": ExitSubtemp=Split(archivos, "\").

5.MsgBox "tú eliges" & temp(UBound(temp)) & "la ruta es:" & Chr(10) & filess _& Chr(10) & "la ruta de la tabla actual es:" & Chr(10) & thisworkbook. "Nombre completo, vbokonty+64, "Ruta de retorno" final sub. Ingrese el código en el módulo y ejecútelo, como se muestra a continuación.

6. Luego haga clic en " Botón "Ejecutar", el programa muestra el cuadro de diálogo "Seleccionar archivo". Después de seleccionar el archivo, el programa muestra inmediatamente la ruta del archivo seleccionado y luego muestra la ruta del libro de trabajo actual, como se muestra a continuación.