El método BrowseForFolder puede hacer que la aplicación de Microsoft Office Excel más dinámico por no exigir a las rutas de código duro en su programa. El método BrowseForFolder le permite solicitar al usuario que busque una carpeta determinada en el equipo con Visual Basic para Aplicaciones ( VBA) . La ruta de la carpeta devuelto puede ser utilizado para otros fines de programación , tales como la lectura o guardar un archivo . Reducir la capacidad de mantenimiento al no tener que codificar los caminos en su programa. Instrucciones
1

lanzamiento Excel , haga clic en la pestaña de " desarrolladores" seguido de " Visual Basic ". Haga clic en el menú " Insertar" y seleccione " formulario de usuario " para insertar un nuevo formulario . Haga clic en el menú "Ver " y haga clic en "Caja de herramientas " para acceder a los controles que se pueden agregar al formulario.
2

clic " CommandButton " en la caja de herramientas y haga clic y arrastre en el formulario para crear el botón de control . Añadir un nuevo control de cuadro de texto con la misma técnica .
3

doble clic en el nuevo botón para abrir la ventana del editor de Visual Basic . Escriba el siguiente código de abajo "Private Sub CommandButton1_Click (): "

On Error GoTo Err_CommandButton1_Click :
4

Escriba el siguiente código para definir dos variables que se utilizarán en el programa :

Dim pathSelected As String Dim

ShellApp As Object
5

Escriba el siguiente código para iniciar el método " BrowseForFolder " y aparecerá una ventana de diálogo para que el usuario elija una carpeta:

Set ShellApp = CreateObject ( " Shell.Application ") . _

BrowseForFolder (0, " Seleccione una carpeta " , 0, abrirEn )
6

Escriba lo siguiente para obtener la carpeta seleccionada en la ventana de diálogo " BrowseForFolder ":

pathSelected = ShellApp.self.Path
7

Escriba lo siguiente para agregar la ruta seleccionada para el control de cuadro de texto en el formato:

Me.TextBox1.Text = pathSelected
8

Escriba lo siguiente para liberar el objeto de la memoria :

ShellApp Set = Nothing
9

Escriba lo siguiente para mostrar un cuadro de mensaje con cualquier posibles errores y terminar el procedimiento :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox Err.Description

Resume Exit_CommandButton1_Click :

End Sub
10

Press "F5 " para ejecutar el programa a continuación, haga clic en " CommandButton1 " para buscar una carpeta. Seleccione una carpeta y haga clic en " Aceptar". La ruta se mostrará en el cuadro de texto

.