Cómo programar un botón Examinar en Excel VBA de obtener un nombre de carpeta

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

.