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

El método BrowseForFolder puede hacer que la aplicación de Microsoft Office Excel más dinámica al no requerir que a duras rutas de código en su programa. El método BrowseForFolder le permite solicitar al usuario para buscar una carpeta en particular en su ordenador utilizando Visual Basic para Aplicaciones (VBA). La ruta de la carpeta devuelta puede ser utilizado para otros fines de programación tales como leer o guardar un archivo. Reducir la capacidad de mantenimiento al no tener que codificar las rutas de su programa.

Instrucciones

1 Lanzamiento de Excel, haga clic en la pestaña "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 ver los controles se pueden agregar a su formulario.

2 Haga clic en "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 usando la misma técnica.

3 Haga 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 va a utilizar en su programa:

Dim pathSelected As String

Dim ShellApp como objeto

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

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

BrowseForFolder (0, "Elija una carpeta", 0, OpenAt)

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

pathSelected = ShellApp.self.Path

7 Escribe lo siguiente para agregar la ruta seleccionada para el control de cuadro de texto en el formulario:

Me.TextBox1.Text = pathSelected

8 Escribe lo siguiente para liberar el objeto de la memoria:

Set ShellApp = Nothing

9 Escribe lo siguiente para mostrar un cuadro de mensaje con los posibles errores y terminar el procedimiento:

Exit_CommandButton1_Click:

Exit Sub

Err_CommandButton1_Click:

MsgBox Err.Description

Reanudar Exit_CommandButton1_Click:

End Sub

10 Pulse la tecla "F5" para ejecutar el programa y luego haga clic en "CommandButton1" para buscar una carpeta. Elija una carpeta y haga clic en "Aceptar". La ruta se mostrará en el control de cuadro de texto.